Unit DateUtils no Delphi - Parte I

Olá galera, nesta Quick Tips, irei mostrar a Unit DateUtils do Delphi. Nesta unit conseguimos encontrar métodos para trabalharmos diretamente com Data, como extrair ano, dia, mês, e por ai vai. Vamos começa com uma descrição e um exemplo funcional dos mais importantes métodos.

IsInLeapYear

Descrição: Podemos verificar se um ano é bissexto ou não.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton1Click(Sender: TObject);

begin

if IsInLeapYear(DateTimePicker1.DateTime) then

ShowMessage('Ano Bissexto')

else

ShowMessage('Não ano Bissexto')

end;

IsPM

Descrição: Podemos verificar se estamos no horário da tarde ou não.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton2Click(Sender: TObject);

begin

if IsPM(DateTimePicker1.DateTime) then

ShowMessage('Boa tarde/Noite')

else

ShowMessage('Bom dia')

end;

WeeksInYear

Descrição: Podemos verificar quantas semanas temos em um ano, informando uma determinada data.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton3Click(Sender: TObject);

begin

ShowMessage(IntToStr( WeeksInYear(DateTimePicker1.DateTime) ));

end;

WeeksAInYear

Descrição: Podemos verificar quantas semanas temos em um ano, informando somente o ano.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton3Click(Sender: TObject);

begin

ShowMessage(IntToStr( WeeksInAYear(2010) ));

end;

DaysInYear

Descrição: Podemos verificar quantos dias temos em um ano, informando uma determinada data.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton4Click(Sender: TObject);

begin

ShowMessage(IntToStr( DaysInYear(DateTimePicker1.DateTime) ));

end;

DaysInAYear

Descrição: Podemos verificar quantos dias temos em um ano, informando somente o ano.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton5Click(Sender: TObject);

begin

ShowMessage(IntToStr( DaysInAYear(2012) ));

end;

DaysInMonth

Descrição: Podemos verificar quantos dias temos em um ano, informando somente o ano.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton6Click(Sender: TObject);

begin

ShowMessage(IntToStr( DaysInMonth(12) ));

end;

DaysInAMonth

Descrição: Podemos verificar quantos dias temos em um mês, informando somente o ano e o mês.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton7Click(Sender: TObject);

begin

ShowMessage(IntToStr( DaysInAMonth(2012,2)));

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br