TMyDate = record Date, Time: Integer; end;
Sowas gibt's doch schon in
System.SysUtils:
Delphi-Quellcode:
TTimeStamp = record
Time: Integer; { Number of milliseconds since midnight }
Date: Integer; { One plus number of days since 1/1/0001 }
end;
Eine simple Umwandlung (ohne Fehlerkontrolle) könnte in einem aktuellen Delphi etwa so aussehen:
Delphi-Quellcode:
var
arr: TArray<string>;
timeStamp: TTimeStamp;
dateTime: TDateTime;
S: string;
begin
S := '000B3DC6h0147DE2Ch';
arr := S.Split(['h']);
timeStamp.Date := Integer.Parse('$' + arr[0]);
timeStamp.Time := Integer.Parse('$' + arr[1]);
dateTime := TimeStampToDateTime(timeStamp);
end;