Модуль: SysUtils

type TDateTime = type Double;

type TSystemTime = record
   wYear: Word;
   wMonth: Word;
   wDayOfWeek: Word;
   wDay: Word;
   wHour: Word;
   wMinute: Word;
   wSecond: Word;
   wMilliseconds: Word;
   end;

Описание
Функция конвертирует значение даты и времени формата Win32 API TSystemTime в Delphi-формат TDateTime.

Пример
var
   SystemTime: TSystemTime;
   DelphiTime: TDateTime;
begin
   GetLocalTime(SystemTime);
   DelphiTime:= SystemTimeToDateTime(SystemTime);
...
end;