Somando data com numero inteiro

Delphi

08/03/2005

Ola amigos.. preciso somar X data com um numero qualquer para que a data adiante os dias:

8/3/2005 + 5 = 12/3/2005

como fazer?


Njuniorba

Njuniorba

Curtidas 0

Respostas

Tnaires

Tnaires

08/03/2005

Olá
Use a função IncDay.
Data := IncDay(Data, NumeroDeDias);

Abraços


GOSTEI 0
Sandra

Sandra

08/03/2005

[quote:e8ed3a90a3=´njuniorba, no outro tópico,´]Como uso a funçao IncDay??[/quote:e8ed3a90a3]

Faça assim:
Edit2.Text := DateToStr(IncDay(StrToDate(Edit1.Text), 4));

Declare na uses do seu form, a unit [b:e8ed3a90a3]DateUtils[/b:e8ed3a90a3].


Boa sorte! :wink: :D


GOSTEI 0
POSTAR