Unit DateUtils no Delphi - Parte I

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)

Veja nesta Quick os métodos da unit DateUtils.

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

 

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