aktuelle Uhrzeit + 1

[Tim.exe]

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

Also quasi:

Delphi-Quellcode:

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. :zwinker:

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

[Matze]

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

[Hansa]

Tim, Du mußt in der Hilfe suchen :!: Nein, solche Antworten hasse ich. :lol: Wie wäre es mit

Delphi-Quellcode:

IncHour (now,1)

Das ist aus dem Kopf raus, deshalb trotzdem mal die Hilfe bemühen, :mrgreen: wegen Syntax und so.

[Matze]

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

[Hansa]

IncHour ist aber kürzer und eleganter. :mrgreen:

[Sharky]

Zitat:

Zitat von Hansa

IncHour ist aber kürzer und eleganter. :mrgreen:

Nicht immer *gg*

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