|
Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge
Delphi XE8 Professional
|
Re: got longint expected ansistring
11. Mär 2005, 08:08
Delphi-Quellcode:
function GetUnixTime(Zeit: TDateTime): LongInt;
const UnixDateDelta = 25569;
begin
// Liefert die Zeit als Unix TimeStamp zurück...
Result := Round(((Zeit-UnixDateDelta)*24*60*60)-7200.5);
end;
Christian Wahl
me, myself and I, die lustigen Drei !!
|