Модуль: 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;

Описание
Функция преобразовывает дату и время из Delphi-формата TDateTime в формат TSystemTime Win32 API. Исходное значение передается в параметре DateTime, результат записывается в переменную SystemTime.