Fórum Somar Dias em Datas #146482

17/03/2003

0

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

Responder

Posts

17/03/2003

Rodrigo Costa

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


Acho que isso funciona


Responder

Gostei + 0

17/03/2003

Anonymous

Infelismente não consegui :(


Responder

Gostei + 0

17/03/2003

Jc

Tente assim:

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


Responder

Gostei + 0

17/03/2003

Aroldo Zanela

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar