Funções da VCL para Data e Hora com Delphi

Natal DevMedia: Assine hoje e ganhe 3 meses gr�tis

Artigo extra�do do site: www.planetadelphi.com.br

Autor: Andreano Lanusse (andreano.lanusse@codegear.com)

Fun��es da VCL para Data e Hora com Delphi

Amigos Delpheiros,
Em algum momento do dia-a-dia desenvolvendo aplica��es, surge a necessidade de manipularmos datas e hor�rios. Diante deste cen�rio, surgem determinadas d�vidas que requerem conhecimentos matem�ticos. Para n�o nos deixar de cabelo em p� com estes c�lculos, a VCL tem um vasto conjunto de classes e m�todos que ajuda nestes c�lculos. Neste artigo, vamos verificar que fun��es s�o essas e exemplificar atrav�s de situa��es reais a aplicabilidade das mesmas.

DateUtils a unit m�gica

As classes e m�todos que ir�o nos ajudar neste artigo fazem parte da unit DateUtils e foram testadas no Delphi 2005,2006 e 2007. A maior parte est� dispon�vel na vers�o 7 do Delphi tamb�m.
� importante saber que poderemos representar datas e hor�rios atrav�s do tipo TDateTime, que mapeia um tipo double, onde a parte inteira corresponde a Data e a parte decimal corresponde a Hora. O tipo TDate ou TTime podem ser utilizados e estes mapeiam o TDateTime.
Se uma vari�vel do tipo TDateTime recebe 0, a data equivalente ser� 30/12/1899 e a hora 00:00:00. Caso a data seja 29/12/1899 e o hor�rio 06:00, o valor no formato double ser� -1.25, mas n�o ser� necess�rio trabalhar com n�meros, pois a unit DateUtils ir� ajudar muito.

M�todos para cria��o de datas

Ao criar ou ler vari�veis do tipo TDateTime, muitos desenvolvedores se preocupam com o formato: DD/MM/AAAA, AAAA/DD/MM, MM/DD/AAAA.. Outras preocupa��es, em muitos casos, surgem devido ao formato de data da m�quina. Mas esta preocupa��o n�o � necess�ria, pois basta saber utilizar os m�todos EncodeDate, EncodeTime, DecodeDate.e DecodeTime.
O m�todo EncodeDate nos ajuda a criar vari�veis, passando como par�metro: dia, m�s e ano para o EncodeTime, tamb�m ser�o passados: hora, minuto, segundo e milesegundo.

// Criando uma Data
var
Data : TDateTime;
begin
Data := EncodeDate( 2006, 2, 28 );
ShowMessage( DateToStr(Data) );

Neste exemplo o showmessage ir� exibir a data 28/2/2006, se no par�metro dia do EncodeDate fosse passado dia 29 seria gerada uma Exception pois n�o existe dia 29 de fevereiro para 2006

// Lendo uma vari�vel Data
var
Dia, Mes, Ano : Word;
begin

DecodeDate(Date, Ano, Mes, Dia);

ShowMessage( 'Dia : ' + InttoStr(Dia) + #13 +
'M�s : ' + InttoStr(Mes) + #13 +
'Ano : ' + InttoStr(Ano) );

Neste exemplo ser� apresentando Dia : 4 // M�s : 4 // Ano : 2006, independente da configura��o de data e hora da m�quina.

Calculando Dias

Calcular quantos dias existem entre duas datas, quantos dias na semana, quantos dias no m�s, considerar o ano bissexto e outras informa��es s�o fundamentais quando voc� tem que fazer c�lculo de juros, dias �teis e outros c�lculos. Vejamos alguns m�todos que podem nos ajudar.

// Quantos dias existem em cada m�s do ano
Const
S : String = '%s: %d dias';
var
Y, M: Integer;
Meses: String;
begin

Y := 2006; //Ano que estar� sendo considerado neste exemplo
for M := 1 to 12 do
begin
Meses := Meses + Format(S, [ShortMonthNames[M],MonthDays[IsLeapYear(Y), M]]) +#13;
end;

ShowMessage(Meses);

O exemplo acima ir� resultar em quantos dias existem em cada m�s do ano de 2006. O resultado ser�:
jan: 31 dias // fev: 28 dias // mar: 31 dias // abr: 30 dias // mai: 31 dias // jun: 30 dias // jul: 31 dias // ago: 31 dias // set: 30 dias // out: 31 dias // nov: 30 dias // dez: 31 dias //
Perceba que utilizamos o array ShortMonthNames, que retorna o nome de cada m�s, abreviado de acordo com o idioma do Windows. Voc� poder� sobrescrever os nomes dos meses para cada um deles, caso queira que sua aplica��o utilize a sua maneira. Outro array utilizado � o MonthDays, que � bidimensional e ir� retornar o n�mero de dias para cada m�s considerando o ano bisexto atrav�s do m�todo IsLeapYear, que retorna True ou False (1 ou 0).

{Incrementando Dia, M�s, Ano, Semana, Hora, Minuto, Segundo, .....}
var
Y, M: Integer;
Hoje : TDateTime;
AnoQueVem : TDateTime;
begin

Hoje := Date; // considere que hoje � 25/04/2006

AnoQueVem := IncYear(Hoje, 1);

ShowMessage(DateToStr(AnoQueVem));
// resultado ser� 25/04/2007

O Exemplo acima ir� incrementar a data de hoje em 1 ano: diversas s�o as fun��es para o incremento de data e hora, s�o elas:

Nome da Fun��o	Unit
IncMonth	SysUtils
IncAMonth	SysUtils
IncYear	DateUtils
IncWeek	DateUtils
IncDay	DateUtils
IncHour	DateUtils
IncMinute	DateUtils
IncSecond	DateUtils
IncMilliSecond	DateUtils

As fun��es acima certamente ir�o lhe ajudar nas opera��es com data e hora.
Outro grupo de fun��es muito �til � o relacionado a intervalos de data e hora. Todas as fun��es abaixo citadas est�o na unit DateUtils e recebem um par�metro do tipo TDateTime.

Nome da Fun��o	Unit
YearsBetween	Retorna o n�mero de anos entre um intervalo
MonthsBetween	Retorna o n�mero de meses entre um intervalo
WeeksBetween	Retorna o n�mero de semanas entre um intervalo
DaysBetween	Retorna o n�mero de dias entre um intervalo
HoursBetween	Retorna a quantidade de horas entre um intervalo
MinutesBetween	Retorna a quantidade de minutos entre um intervalo
SecondsBetween	Retorna a quantidade de segundos entre um intervalo
MilliSecondsBetween	Retorna q quantidade de milesegundos entre um intervalo

Conclus�o

Atrav�s deste artigo, mostramos algumas das dezenas de utilidades da unit DateUtils. Muitas outras existem, basta voc� abrir esta unit ou acessar o Help do Delphi para conhecer todas as suas outras funcionalidade.

Links

http://blogs.codegear.com/andreanolanusse
Este � o link para o meu blog, onde disponibilizo diversas informa��es.
http://www.borlandopenuniversity.com.br
Treinamentos via web sobre os produtos CodeGear como o Delphi est�o dispon�veis.
http://dn.codegear.com/br
Site de relacionamento da CodeGear com os desenvolvedores, possui diversos artigos e tutoriais em portugu�s.
http://www.codegear.com
Site oficial da CodeGear, cont�m todas as informa��es sobre os produtos da CodeGear.