Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Klaus01**

Delphi-Quellcode:

			function DateTimeToUnix(const AValue: TDateTime): Int64;

begin

  aValue := TTimeZone.Local.ToUniversalTime(AValue); 

  Result := Round((AValue - UnixDateDelta) * SecsPerDay);

end;

oder beim Aufruf

TimeStart := DateTimeToUnix(IncHour( TTimeZone.Local.ToUniversalTime(Now), 0)); Grüße
Klaus

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#4 AW: DateTimeToUnix 1 stunde zurück 18. Dez 2020, 07:18 markieren Delphi-Quellcode: function DateTimeToUnix(const AValue: TDateTime): Int64; begin aValue := TTimeZone.Local.ToUniversalTime(AValue); Result := Round((AValue - UnixDateDelta) * SecsPerDay); end; oder beim Aufruf TimeStart := DateTimeToUnix(IncHour( TTimeZone.Local.ToUniversalTime(Now), 0)); Grüße Klaus Klaus
	Zitat

Einzelnen Beitrag anzeigen

AW: DateTimeToUnix 1 stunde zurück