Gibts sowas wie die UNIX Time bei Delphi?

[JPSelter]

Gibt es bei Delphi sowas wie die UNIX-Time? Ich habe da zwar was von TDateTime gelesen, aber das zählt ja nur die Tage, nicht die Sekunden. Letztere bräuchte ich nämlich.

[alcaeus]

Die Onlinehilfe rettet: DateTimeToUnix

Manchmal wäre einfach ein bisschen Fantasie beim Suchen in der OH gefragt, ich habe die FUnktion auch nicht gekannt. Deshalb erstmal "DateTimeTo" eingeben, und dann sehen wohin sich DateTime konvertieren lässt

Greetz
alcaeus

[Kedariodakon]

Öhm TDateTime zähl alles mögliche ^^
Aber wenn du was zu unix-Zeit suchst: UnixTime


Bye

[chrisw]

Delphi-Quellcode:

function GetSeconds : String;
var Hour, Min, Sec, MSec: Word;
begin
  try
    DecodeTime(Now, Hour, Min, Sec, MSec);
  except
  end;
  Result := Inttostr(Sec);
end;

[alcaeus]

Moin chrisw,

er will nicht die Sekunden wissen, die diese Minute vergangen sind, sondern den Unix-Timestamp eines bestimmten DateTime-Wertes. Das sind die Sekunden seit dem 1.1.1970

Greetz
alcaeus

[SubData]

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;

Mal irgendwo gefunden ^^