PEÇO AJUDA

Delphi

27/10/2003

Sou um usuário iniciante e gostaria de saber como fazer para acrescentar 30 dias a partir de determinada data.
Ex.: 12/05/2003, apos digitar a data eu digitaria 05 em outro campo e gostaria que fosse processado 05 novos registros exatamente iguais sendo que com as datas da seguinte maneira 12/06/2003, 12/07/2003, 12/08/2003, 12/09/2003 e 12/10/2003.

Agradeço toda ajuda disponível... :wink:


Costa

Costa

Curtidas 0

Respostas

Joilson_gouveia

Joilson_gouveia

27/10/2003

Se forem dias corridos, faça assim:

function AcrescentaDias(dData:TDateTime;nDias:Integer):TDateTime;
begin
Result := dData+nDias;
end;

procedure Button1Click(sender:TObject);
var
Data1,Data2,Data3,Data4,Data5:TDateTime;
begin
if Edit1.Text <> ´´ then
begin
Data1 := StrToDate(Edit1.Text);
Data2 := AcrescentaDias(Data1,30);
Data3 := AcrescentaDias(Data2,30);
Data4 := AcrescentaDias(Data3,30);
Data5 := AcrescentaDias(Data4,30);
ShowMessage(´Data 1: ´+DateToStr(Data1)+#13+
´Data 2: ´+DateToStr(Data2)+13+
´Data 3: ´+DateToStr(Data3)+13+
´Data 4: ´+DateToStr(Data4)+13+
´Data 5: ´+DateToStr(Data5)+´!´)
end;
end;


GOSTEI 0
POSTAR