Sign in Join
FPDoc Onlineexperiment

DateTimeToSystemTime procedure

In unit sysutils

Converts a TDateTime value to a systemtime structure.

Declaration

pascal
procedure DateTimeToSystemTime(DateTime: TDateTime; 
 out SystemTime: TSystemTime)

Description

DateTimeToSystemTime converts a date/time pair in DateTime, with TDateTime format to a system time SystemTime.

Errors

None.

See also

Example: ex5

pascal
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.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.