Quick Tips: Data no Delphi - Parte II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

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

 

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

Leia todos artigos da série

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?