Calcular Datas
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
Curtidas 0
Respostas
Luineumann
23/10/2003
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);
GOSTEI 0
Raydem
23/10/2003
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.
GOSTEI 0