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