[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Converts a TDateTime value to a systemtime structure.
Source position: datih.inc line 125
procedure DateTimeToSystemTime( |
DateTime: TDateTime; |
out SystemTime: TSystemTime |
); |
DateTimeToSystemTime converts a date/time pair in DateTime, with TDateTime format to a system time SystemTime.
None.
|
Convert a TDateTime value to a file age (integer) |
|
|
Convert a system time to a TDateTime value. |
|
|
Converts a TDateTime value to a TimeStamp structure. |
Program Example5; { This program demonstrates the DateTimeToSystemTime 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; End.