Olá pessoal nesta Quick iremos continuar vendo de datas no Delphi.
O programa anterior apresenta algumas novidades como a utilização das variáveis internas de configuração do ambiente de trabalho. DateSeparator, ShortDateFormat, ThousandSeparator e DecimalSeparator, que definem, respectivamente, os padrões de separação de data, formato de apresentação de data, formato de separação de milhares e o formato de separação decimal.
Note que estes formatos podem estar configurados no Windows, mas nunca se sabe como está a configuração de um computador que vai rodar o programa desenvolvido por um programador. Assim sendo, torna-se ideal garantir a configuração desejada do programa em relação ao ambiente de trabalho.
As variáveis internas de ambiente, ou simplesmente, variáveis de ambiente são elementos de apoio ao programador, para que ele consiga desenvolver programas de forma homogênea e que tenham o mesmo comportamento, independentemente de como está a configuração particular de um determinado computador.
Além dos formatos utilizados, existem outros mais que estão armazenadas no arquivo de unidade (unit) SysUtils.pas que fica dentro da pasta Source do Delphi.
Acrescentar dia
procedure TForm2.Button1Click(Sender: TObject);
var
DataAtual, DataAcres:TDateTime;
begin
DataAtual:=Date;
DataAcres:=Date+1;
label3.Caption:=DateToStr(DataAtual);
label4.Caption:=DateToStr(DataAcres);
end;
Acrescentar Mês a Data
procedure TForm2.Button1Click(Sender: TObject);
var
DataAtual, DataAcres:TDateTime;
begin
DataAtual:=Date;
DataAcres:=incMonth(Date,3); //Acrescentar Mês a data atual
label3.Caption:=DateToStr(DataAtual);
label4.Caption:=DateToStr(DataAcres);
end;
Entendendo o tipo TDateTime do Delphi
O tipo TDateTime do Delphi é usado quando precisamos representar datas e horas. Este tipo é mapeado para um Double. Assim, a parte integral de um TDateTime é o número de dias decorridos desde 30/12/1899. A parte fracionária representa a fração das 24 horas do dia decorrido.
Veja como declarar uma variável do tipo TDateTime:
procedure TForm1.Button1Click(Sender: TObject);
var
hoje: TDateTime;
begin
// vamos receber a data de hoje
hoje := Now;
// vamos exibir o resultado
ShowMessage(DateTimeToStr(hoje));
end;
Este trecho de código mostrará a data e hora atual. Note o uso da função DateTimeToStr()
para converter o valor de data e hora para uma string. O resultado será algo como
"25/03/2010 20:10:16".
As units SysUtils e DateUtils estão recheadas de constantes e funções que permitem a manipulação e formatação dos muitos aspectos de datas e horas. Por exemplo, se quisermos obter o dia do mês da data atual, podemos usar a função DayOfTheMonth(). Veja:
procedure TForm1.Button1Click(Sender: TObject);
var
hoje: TDateTime;
dia_mes: integer;
begin
// não esqueça de incluir DateUtils no uses
// vamos receber a data de hoje
hoje := Now;
// vamos obter o dia do mês
dia_mes := DayOfTheMonth(hoje);
// vamos exibir o resultado
ShowMessage('O dia do mês é: ' + IntToStr(dia_mes));
end;
Vou ficando por aqui, na próxima continuaremos trabalhando com Data no Delphi
Um abraço
Rubens Antunes
