Systemzeit als integer auslesen

[XXcD]

Hallo,

ich bin auf der Suche nach einer Möglichkeit die Systemzeit mit Datum als Integer auszulesen.
Soweit ich weiß speicher ein Computer die Uhrzeit ja auch als langen Integer aber wie komme ich da dran?

MfG
XXcD

[DeddyH]

Meinst Du evtl. GetSystemTime?

[himitsu]

Such dir einfach eine Funktion als TimeToUnixTime oder rechne selber irgendwas.
DOS-DateTime wäre auch eine Möglichkeit, wofür Delphi, bzw. die WinAPI eine Umwandlungsfunktion bietet.

z.B.

Delphi-Quellcode:

i := Round(Now * 24*60*60);

paßt aktuell noch in einen LongWord rein und für ein Datum ab dem Jahr 2000

Delphi-Quellcode:

Round((Now - 36526) * 24*60*60)

paßt dieses auch noch für einige Jährchen in einen Integer.
(36526 = 01.01.2000 00:00)

Es kommt ja auch darauf an, in welchem Format du es nun wirklich haben willst.
Denn es gibt mehrere Möglichkeiten/Formate, um dieses als "Integer" darzustellen.

[add]
GetSystemTime sind 4 Integer

[XXcD]

Ich versuche die Uhrzeit mit Datum in die Registry zu schreiben.

Und zwar als Integer: sieht ungefähr so aus 1254856663321

Ich denke mal GetSystemTime wird mir so eine Zahl ausgeben, aber wie bekomme ich die als Integer???

[himitsu]

Zitat:

Zitat von XXcD (Beitrag 1037693)

Ich denke mal GetSystemTime wird mir so eine Zahl ausgeben, aber wie bekomme ich die als Integer???

garnicht, da (wie schon gesagt) GetSystemTime 4 Integer, bzw. 8 WORD (für jedes Feld "Tag,Monat,Jahr,Stunde,Minute,Sekunde") belegt.

die UnixTime wäre eine Möglichkeit, allerdings nicht für Integer, denn dafür ist der Wert (Sekunden seit 1970) schon zu groß.
In einen LongWord/DWORD paßt es aber noch, wobei die Registry auch eigentlich das unsigned DWORD und nicht das signed Integer kennt. :)


Ansonsten hab ich da oben auch noch Rechenbeispiele angegeben.

[Andreas L.]

Delphi-Quellcode:

uses ..., DateUtils;

...


function GetIntDate:Int64;
begin
  Result := DateTimeToUnix(Now);
end;

Den Wert kannst du dann mit TRegistry.WriteInteger in die Registry schreiben.