Logo

Programming-Idioms

History of Idiom 98 > diff from v12 to v13

Edit summary for version 13 by Bart:
New Pascal implementation by user [Bart]
↷

Version 12

2016-02-18, 16:58:02

Version 13

2016-04-17, 21:20:55

Idiom #98 Epoch seconds to date object

Convert a timestamp ts (number of seconds in epoch-time) to a date with time d. E.g. 0 -> 1970-01-01 00:00:00

Idiom #98 Epoch seconds to date object

Convert a timestamp ts (number of seconds in epoch-time) to a date with time d. E.g. 0 -> 1970-01-01 00:00:00

Imports 
SysUtils
Code 
var
  D: TDateTime;
  TS: TTimeStamp;
begin
  D := TimeStampToDateTime(TS);
end.