Unit DateUtils no Delphi - Parte II

Olá galera, nesta Quick Tips, irei continuar a mostrar a Unit DateUtils do Delphi. Esta unit é muito extensa e bem poderosa, às vezes queremos saber o dia de amanhã e criamos uma função para isso, mas isso já tem no Delphi, assim como outras, veja abaixo mais algumas funções.

Today

Descrição: Podemos verificar a data de hoje.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton8Click(Sender: TObject);

begin

ShowMessage(DateToStr(Today));

end;

Yesterday

Descrição: Podemos verificar a data de ontem.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton9Click(Sender: TObject);

begin

ShowMessage(DateToStr(Yesterday));

end;

Tomorrow

Descrição: Podemos verificar a data de amanhã.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton9Click(Sender: TObject);

begin

ShowMessage(DateToStr(Tomorrow));

end;

IsToday

Descrição: Podemos verificar se a data informada é igual à data de hoje.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton11Click(Sender: TObject);

begin

if IsToday(DateTimePicker1.DateTime) then

ShowMessage('Date de Hoje')

else

ShowMessage('Não é data de hoje')

end;

IsSameDay

Descrição: Podemos verificar se os dias são iguais.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton12Click(Sender: TObject);

begin

if IsSameDay(DateTimePicker1.DateTime,DateTimePicker2.DateTime) then

ShowMessage('Dias iguais')

else

ShowMessage('Dias Diferentes')

end;

MonthOf

Descrição: Podemos verificar o número do mês, informando uma determinada data.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton13Click(Sender: TObject);

begin

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

end;

WeekOf

Descrição: Podemos verificar o número da semana até a presente data, informando uma determinada data.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton14Click(Sender: TObject);

begin

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

end;

DayOf

Descrição: Podemos verificar o número do dia, informando uma determinada data.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton15Click(Sender: TObject);

begin

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

end;

YearOf

Descrição: Podemos verificar o número do ano, informando uma determinada data.

Exemplo:

procedure TFrmPrincipal_Datas.ToolButton16Click(Sender: TObject);

begin

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

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br