IncHour-Prozedur in DateUtils

Question

Ich habe das folgende Bit von Delphi 7-Code, um einen TDateTime-Wert um eine Stunde zu erhöhen. Aus irgendeinem Grund funktioniert es nicht.

StatusMemo.Lines.Add('prior '+DateTimeToStr(dtval)); 
IncHour(dtval,1); // add an hour for DST 
StatusMemo.Lines.Add('after '+DateTimeToStr(dtval)); 

Inhalt von StatusMemo nach Code ausgeführt:

prior 6/24/2009 5:35:40 AM 
after 6/24/2009 5:35:40 AM 

Es verhält sich wie IncHour nicht funktioniert. Ich habe versucht, mit IncMinute (dtval, 60), und habe das gleiche Ergebnis. Was fehlt mir?

Answer 1

IncHour gibt den inkrementierten Wert zurück, die übergebene Variable wird nicht aktualisiert.

So was Sie tun müssen:

dtval := IncHour(dtval, 1);