DateTimeToTimeStamp

Converts a TDateTime value to a TimeStamp structure.

Declaration

Source position: datih.inc line 113

Description

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

Errors

None.

See also

Example

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.

---

Documentation generated on: May 14 2021