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.
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.
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 |
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.
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.
Andreano Lanusse (andreano.lanusse@codegear.com) é Product Line Manager da CodeGear para a América Latina, em Scotts Valley – Califórnia. É líder do time de evangelistas da CodeGear em toda América Latina, que trabalha ounvindo as solicitações das comunidades de desenvolvedores. Possui vasta experiência em desenvolvimento de aplicações, além de estar certificado em todos os produtos Borland/CodeGear e MCP em SQL Server e Windows 2000.
|