Конвертируем TDateTime to Unix Timestamp

{
 Sometimes you want to communicate with mySQL or other databases using
 the unix timestamp. To solve this difference you may want to convert your
 TDateTime to the unix timestamp format and vice versa.
}

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.

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...