Nesta dica iremos continuar vendo sobre datas no Delphi.
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
DataAtual, DataAcres:TDateTime;
DataAtual:=Date;
DataAcres:=Date+1;
label3.Caption:=DateToStr(DataAtual);
label4.Caption:=DateToStr(DataAcres);
Acrescentar Mês a Data
DataAcres:=incMonth(Date,3); //Acrescentar Mês a data atual
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:
ShowMessage(DateTimeToStr(hoje));
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: