Fórum Somar Dias em Datas #146482
17/03/2003
0
Grato
Michel
Anonymous
Curtir tópico
+ 0Posts
17/03/2003
Rodrigo Costa
Acho que isso funciona
Gostei + 0
17/03/2003
Anonymous
Gostei + 0
17/03/2003
Jc
edit2 := (datetostr(dateini))+10;
Gostei + 0
17/03/2003
Aroldo Zanela
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
Clique aqui para fazer login e interagir na Comunidade :)