[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Convert a system time to a TDateTime value.
Source position: datih.inc line 126
function SystemTimeToDateTime( |
const SystemTime: TSystemTime |
):TDateTime; |
SystemTimeToDateTime converts a TSystemTime record to a TDateTime style date/time indication.
None.
|
Converts a TDateTime value to a systemtime structure. |
Program Example22; { This program demonstrates the SystemTimeToDateTime function } Uses sysutils; Var ST : TSystemTime; Begin DateTimeToSystemTime(Now,ST); With St do begin Writeln ('Today is ',year,'/',month,'/',Day); Writeln ('The time is ',Hour,':',minute,':',Second,'.',MilliSecond); end; Writeln ('Converted : ',DateTimeToStr(SystemTimeToDateTime(ST))); End.