Somar Dias em Datas

Delphi

17/03/2003

Eu gostaria de fazer uma variavel que retornasse a data por exemplo 10 dias depois de uma data inicial especificada no campo edit1.

Grato
Michel


Anonymous

Anonymous

Curtidas 0

Respostas

Rodrigo Costa

Rodrigo Costa

17/03/2003

vdataini : datetime; vdataini:=strtodate(formatdatetime(´dd/mm/yyyy´,edit1.text)); edit2:=datetostr(vdataini+10);


Acho que isso funciona


GOSTEI 0
Anonymous

Anonymous

17/03/2003

Infelismente não consegui :(


GOSTEI 0
Jc

Jc

17/03/2003

Tente assim:

edit2 := (datetostr(dateini))+10;


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

17/03/2003

Infelismente não consegui :(

Michel,

Coloque dois componentes edit em um formulário e um button. No evento clique (´OnClick´), copie a código abaixo e entre com uma data no seguinte formato (dd/mm/aa), onde dd=dia, mm=mês, aa=ano.

[b:25525aaa3c]Recomendação:[/b:25525aaa3c] Utilize o DateTimePicker (componente-Win32) para capturar dados de datas, ao invés de edit ou maskedit, pois além de ser mais elagante é mais fácil de manipular.

var nDias: Integer;
begin 
  nDias := 10;
  Edit2.Text := DateToStr( StrToDate(Edit1.Text)+nDias );
end;



GOSTEI 0
POSTAR