[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'sysutils' (#rtl)

DateTimeToSystemTime

Converts a TDateTime value to a systemtime structure.

Declaration

Source position: datih.inc line 115

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

DateTimeToFileDate

  

Convert a TDateTime value to a file age (integer)

SystemTimeToDateTime

  

Convert a system time to a TDateTime value.

DateTimeToTimeStamp

  

Converts a TDateTime value to a TimeStamp structure.

Example

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.
The latest version of this document can be found at lazarus-ccr.sourceforge.net.