Fórum Calcular Datas #190381
23/10/2003
0
Como faço para acrescentar uma quantidade de dias a uma data informada e exibir o resultado em um Edit ???
Ex.:
Data: 23/10/2003 + 10 dias = 02/11/2003
A data informada (23/10/03) está em um Componente Edit e o resultado (02/11/03) deve ser apresentado também em um componente Edit.
Obrigado
CBier
Ex.:
Data: 23/10/2003 + 10 dias = 02/11/2003
A data informada (23/10/03) está em um Componente Edit e o resultado (02/11/03) deve ser apresentado também em um componente Edit.
Obrigado
CBier
Cbier
Curtir tópico
+ 0
Responder
Posts
23/10/2003
Luineumann
sendo edit1 a variável com a data base, edit2 o número de dias a somar e edit3 a data resultado faça
edit3.text := formatdatetime(´dd/mm/yyyy´, strtodate(edit1.text) + strtoint(edit2.text);
edit3.text := formatdatetime(´dd/mm/yyyy´, strtodate(edit1.text) + strtoint(edit2.text);
Responder
Gostei + 0
24/10/2003
Raydem
Tente isso:
var
X,Y:TDateTime;
begin
Edit1.text := ´23/10/2003´;
X := StrToDate(Edit1.text);
Y := X + 10; //O nº 10 é o número d dias...
Edit2.text := DateToStr(Y);
end;
Valeu!!!!!
Raydem.
var
X,Y:TDateTime;
begin
Edit1.text := ´23/10/2003´;
X := StrToDate(Edit1.text);
Y := X + 10; //O nº 10 é o número d dias...
Edit2.text := DateToStr(Y);
end;
Valeu!!!!!
Raydem.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)