[delph]dodanie 1h do biezacej godziny

[kammm]

czesc

 

chcialem zrobic program, ktory po wcisnieciu button do godziny pobranej z systemu zostaje dopisana 1h i do dnia zostaje dodany 1 dzien tzn mam taki kod

 

KODprocedure TForm1.FormActivate(Sender: TObject);

begin

Label1.Caption:=DateToStr(Date);//data

 

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label2.Caption:=TimeToStr(Time);//czas

end;

 

i teraz zalozmy ze w label1 wyswietlilo sie 2007-10-03

label2 wyswietlilo sie 18:45

 

i jak klikne w button to zeby w label3 bylo 2007-10-04

label4 bylo 19:45

 

czyli musi sprawdzic ktory jest dzien i ktora godzina i dodaje 1 albo 2 albo np 10 dni

 

bo nie moge zrobic np w button

KODlabel3.caption:='2007-10-04';

 

 

bo jak odpale program 5 pazdziernika to po wcisnieciu pojawi sie 4 pazdz a nie 6

 

moglby mi ktos to pomoc zrobic

z gory dziekuje za kazda ewentualna podpowiedz jak zapisac w labelach te dodanie godziny i dnia

[Brainer]

Pobaw się z modułem DateUtils i helpem Delphi.