PostHeaderIconDelphi. Функция SystemTimeToDateTime ( const SystemTime: TSystemTime ): TDateTime;

Функция 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;

 
Copyright © 2007-2010 IsIProg.ru. All Rights Reserved.