Jupp, sind erstmal zwei
Integer Cardinal
000B3DC6
h 0147DE2C
h
000B 3DC6 = 736.710 Tage seit 01.01.0001 = 16.01.2018
((05 * 60 + 58) * 60 + 07) * 1000 = 21.487.000
0147 DE2C = 21.487.148
also genau 16.01.2018 05:58:07.
148
Unit SysUtils
Delphi-Quellcode:
{ Units of time }
HoursPerDay = 24;
MinsPerHour = 60;
SecsPerMin = 60;
MSecsPerSec = 1000;
MinsPerDay = HoursPerDay * MinsPerHour;
SecsPerDay = MinsPerDay * SecsPerMin;
SecsPerHour = SecsPerMin * MinsPerHour;
MSecsPerDay = SecsPerDay * MSecsPerSec;
{ Days between 1/1/0001 and 12/31/1899 }
DateDelta = 693594;
Von Wert 1 das DateDelta abziehen,
Wert 2 durch MSecsPerDay teilen,
beides addieren
und schon hast du ein TDateTime.