|
IV. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПЕРЕМЕННЫМИ РАЗЛИЧНЫХ ТИПОВ ДАННЫХ
4. Функции и процедуры для работы с датой и временем
Функция SystemTimeToDateTime (
const SystemTime: TSystemTime ): TDateTime;
Модуль: 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;
[Вернуться к содержанию]
|
