Sign in Join
FPDoc Onlineexperiment

DateTimeToTimeStamp function

In unit sysutils

Converts a TDateTime value to a TimeStamp structure.

Declaration

pascal
function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp

Description

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

Errors

None.

See also

Example: ex6

pascal
Program Example6;

{ This program demonstrates the DateTimeToTimeStamp function }

Uses sysutils;

Var TS : TTimeStamp;

Begin
  TS:=DateTimeToTimeStamp (Now);
  With TS do
    begin
    Writeln ('Now is ',time,' millisecond past midnight');
    Writeln ('Today is ' ,Date,' days past 1/1/0001');
    end;
End.

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