aktuelle Uhrzeit + 1

[Tim.exe]

Hallo, wie kann ich den die aktuelle Uhrzeit + 1 Std anzeigen lassen?

Also quasi:
Label1.Caption := TimeToStr(Now);// + 1 Std also wenn es jetzt 12:44:23 ist dann soll 13:44:23 angezeigt weden.

[axelf98]

Das ist eigentlich ganz einfach:

Delphi-Quellcode:

var A,B,C,D : word;
begin

decodetime(time,A,B,C,D);   // A: Std  B: Min  C: Sek   D:Msek
label1.caption := Timetostr(encodetime(A+1,B,C,D));  // A + 1
end;

[Luckie]

Finde es selber raus:

Zitat:

The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.

Following are some examples of TDateTime values and their corresponding dates and times:

0 12/30/1899 12:00 am
2.75 1/1/1900 6:00 pm
-1.25 12/29/1899 6:00 am
35065 1/1/1996 12:00 am

Kurz auf Deutsch:
DateTime ist eine Fleißkommazahl. Der Teil vor dem Komma gibt dei Tage seit 1899-12-30 an und der nachkommaanteil den Bruchteil des Tages. Jetzt streng deinen Grips mal etwas an und du weißt, wie es geht.

Oder man greift auf EncodeDate / EnmcodeTime / DecodeDate / DecodeTime zurück.

[Matze]

@Luckie:
bin gespannt, ob er's rausbekommt.
Siehe ein Beitrag über dir.

[Hansa]

Tim, Du mußt in der Hilfe suchen Nein, solche Antworten hasse ich. Wie wäre es mit IncHour (now,1) Das ist aus dem Kopf raus, deshalb trotzdem mal die Hilfe bemühen, wegen Syntax und so.

[Matze]

@Hansa: Er hat doch schon die Lösung!

[Hansa]

IncHour ist aber kürzer und eleganter.

[Sharky]

Zitat von Hansa:

IncHour ist aber kürzer und eleganter.

Nicht immer *gg*

Mein D5 kennt diese Funktion z.B. nicht! D7 hingegen hat sie!