Artigos Delphi Unit DateUtils no Delphi - Parte III



Olá galera, nesta Quick Tips, irei continuar a mostrar a Unit DateUtils do Delphi. Agora veremos como acrescentar valores em horas, minutos, segundos, dias, meses, anos, semanas.Veja que todos os valores são iguais a 2, porém se você quiser decrementar qualquer um destes, basta colocar o valor negativo, exemplo : -2.

 

IncYear

Descrição: Podemos adicionar um determinado número de anos a uma data.

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton1Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncYear(DateTimePicker1.DateTime,2)) + #

13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

IncWeek

Descrição: Podemos adicionar um determinado número de semanas a uma data.

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton2Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncWeek(DateTimePicker1.DateTime,2)) + #

13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

IncDay

Descrição: Podemos adicionar um determinado número de dias a uma data.

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton3Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncDay(DateTimePicker1.DateTime,2)) + #1

13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

IncHour

Descrição: Podemos adicionar um determinado número de horas a uma data/hora.

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton4Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncHour(DateTimePicker1.DateTime,2)) + #

13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

IncMinute

Descrição: Podemos adicionar um determinado número de minutos a uma data/hora.

 

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton5Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncMinute(DateTimePicker1.DateTime,2)) +

#13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

IncSecond

Descrição: Podemos adicionar um determinado número de segundos a uma data/hora.

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton6Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncSecond(DateTimePicker1.DateTime,2)) +

#13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

IncMilliSecond

Descrição: Podemos adicionar um determinado número de milésimos de segundo a uma data/hora.

 

Exemplo:

procedure TFrmPrincipal_Increment_Decrement.ToolButton7Click(Sender: TObject);

begin

ShowMessage('Novo : ' + DateTimeToStr(IncMilliSecond(DateTimePicker1.DateTime,2)) + #13 +

'Atual : ' +DateTimeToStr(DateTimePicker1.DateTime));

end;

 

Fico por aqui ate à próxima Quick Tips.

 

Um abraço

 

Wesley Y

wyamazack@rwsolution.com.br