Einzelnen Beitrag anzeigen

bodycounter

Registriert seit: 13. Jul 2004
12 Beiträge
 
#1

Wie kann man ein DOS Datum in Tdate umwandeln ???

  Alt 28. Jan 2010, 19:18
Hallo.

Ich habe eine uralte DOS Anwendung, die Ihre Daten(bank) als Binär Datei speichert.
Diese Datei will ich mit Delphi einlesen um es dann weiter zu verarbeiten.

String und Integer Werte sind kein Problem, doch wie sieht es mit dem Datum aus?

Unter Delphi ist es ja ein Tdate als Double mit 8 Byte (64bit).
Wie ist/war das unter DOS/TurboPascal?

Ich weiß, das
6BB001hex der 1. Feb. 2003,
6CB001hex der 2. Feb. 2003 und
8D2C02hex der 2. Feb. 1995 (vlt. auch 2095, man kann nur 2 Zahlen eingeben) ist.


Wie zu sehen erhöht ein Tag den HexWert auch um Eins. Es scheinen auch die Bytes vertauscht zu sein.
Wie kann ich diesen 32Bit Wert in ein TDate umwandeln?

Hier noch mal das Datum mit ein paar mehr Byte davor und dahinter.

31 31 6F 00 6B B0 01 00 C8 55 = 1.Feb.2003
31 31 6F 00 6C B0 01 00 C8 55 = 2.Feb.2003
31 31 6F 00 8D 2C 02 00 C8 55 = 2.Feb.1995

Danke, für das lesen
  Mit Zitat antworten Zitat