DateTimeToUnix 1 stunde zurück

[venice2]

Zitat von Klaus01:

.. den Link hast Du schon gesehen?
https://stackoverflow.com/questions/...t-it-back-from

ja Danke.
Nutzt mir nichts die Rückgabe von DateTimeToUnix ist Int64 kein TDateTime.
Verstehe ich nicht wie hat man das denn unter D2010 geregelt denn das dürfte ja so neu nicht sein.

[Klaus01]

.. wen Du das TDateTime Ergebnis zu einem Unix-Timestamp wandelst - dann hast Du wieder Int64.

[venice2]

Zitat von Klaus01:

.. wen Du das TDateTime Ergebnis zu einem Unix-Timestamp wandelst - dann hast Du wieder Int64.

Beispiel?
Keine Ahnung was ich da jetzt von benutzen soll.

Habe mal gesucht . .. DateTimeToUnix to local time delphi D2010
Result so gut wie nichts

[Moombas]

@venice2: Müsste nicht folgendes etwas sein was da passt wegen der Zeitzone?

https://www.delphipraxis.net/523002-post5.html

[venice2]

Zitat von Moombas:

@venice2: Müsste nicht folgendes etwas sein was da passt wegen der Zeitzone?

https://www.delphipraxis.net/523002-post5.html

Danke es wird überall TDateTime zurückgegeben ich brauche aber Int64

Keine Idee im Moment wie ich TDateTime wieder zurück nach Int64 setzen soll.
Bin vielleicht zu blöd dafür.

[Moombas]

Zitat von venice2:

Zitat von Moombas:

@venice2: Müsste nicht folgendes etwas sein was da passt wegen der Zeitzone?

https://www.delphipraxis.net/523002-post5.html

Danke es wird überall TDateTime zurückgegeben ich brauche aber Int64

Keine Idee im Moment wie ich TDateTime wieder zurück nach Int64 setzen soll.
Bin vielleicht zu blöd dafür.

Naja, also ich würde es so machen:
Zeit ermitteln als TDateTime und ggf. Zeitzone anpassen (was ich oben im Link meinte)
Danach erst die Umwandlung mit DateTimeToUnix in dein gewünschtes Format und übergeben.

Müsste es nicht dann passen?

[Klaus01]

.. wenn Du aus dem SO link Beitrag 11 diese Routine
Function DateTime2UnivDateTime(d:TDateTime):TDateTime benutzt

unixUTCTimeStamp := DateTimeToUnix(DateTime2UnivDateTime(now))

[venice2]

Zitat von Klaus01:

.. wenn Du aus dem SO link Beitrag 11 diese Routine
Function DateTime2UnivDateTime(d:TDateTime):TDateTime benutzt

unixUTCTimeStamp := DateTimeToUnix(DateTime2UnivDateTime(now))

Danke habe es versucht immer noch 1 Stunde zurück.
Frühstücksfernsehen fängt dann um 4:30 an.

Delphi-Quellcode:

function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation; var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall;
function TzSpecificLocalTimeToSystemTime; external kernel32 name 'TzSpecificLocalTimeToSystemTime';
//...
Function DateTime2UnivDateTime(d:TDateTime):TDateTime;
var
 TZI:TTimeZoneInformation;
 LocalTime, UniversalTime:TSystemTime;
begin
  GetTimeZoneInformation(tzi);
  DateTimeToSystemTime(d,LocalTime);
  TzSpecificLocalTimeToSystemTime(@tzi,LocalTime,UniversalTime);
  Result := SystemTimeToDateTime(UniversalTime);

end;

TimeStart := DateTimeToUnix(DateTime2UnivDateTime(IncHour(Now, 0)));