Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.177 Beiträge
 
Delphi 12 Athens
 
#3

AW: proprietäres Datumsformat in DB-Tabelle analysieren

  Alt 16. Jan 2018, 13:50
Jupp, sind erstmal zwei Integer Cardinal
000B3DC6h 0147DE2Ch

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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (16. Jan 2018 um 13:56 Uhr)
  Mit Zitat antworten Zitat