Konvertering af dato

Det lugter langt væk af noget "antal sekunder siden 01-01-1970"
Nogen der har en snippet som kan holde styr på skudår og alt det snask?

Fandt ud af det

Fint. Men så skriv lige svaret til os andre, hvis du gider. Det kan jo være nogen søger en løsning på samme spørgsmål senere herinde.

Kode taget fra SwissDelphiCenter

unit unix_utils;

interface

implementation

const
  // Sets UnixStartDate to TDateTime of 01/01/1970
  UnixStartDate: TDateTime = 25569.0;

function DateTimeToUnix(ConvDate: TDateTime): Longint;
begin
  //example: DateTimeToUnix(now);
  Result := Round((ConvDate - UnixStartDate) * 86400);
end;

function UnixToDateTime(USec: Longint): TDateTime;
begin
  //Example: UnixToDateTime(1003187418);
  Result := (Usec / 86400) + UnixStartDate;
end;

end.