Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

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

    Delphi
    by bodycounter, 29. Jan 2010
  Hier meine schnelle eigene Lösung:
  
  function bytes2datetime(const date,time:integer):Tdatetime;
  begin
  result := -109571 + date + (time/86400); // -109571 = 1.1.1600 | 86400 = Sekunden pro Tages
  end;
  
  
  Danke für die Tipps :D
• Forum: Object-Pascal / Delphi-Language

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

    Delphi
    by bodycounter, 29. Jan 2010
  Hab nun herrausgefunden wie die Daten aufgebaut sind.
  
  49 BA 01 00 C4 95 00 00 ist der 1.1.1910 um 10:39Uhr
  
  Zu erst kommen 4 byte in Litte Endian als Integer und stellen ganze Tage nach dem 1.1.1600 dar.
  Danach kommen 4 byte in Litte Endian als Integer und stellt ganze Sekunden nach 00:00 dar.
  
  48ba0100 byte swap = 0001ba48 = 113224 Tage nach 1.1.1600 = 1.1.1910
  c4950000 byte swap =...
• Forum: Object-Pascal / Delphi-Language

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

    Delphi
    by bodycounter, 28. Jan 2010
  Ich code in Delphi und nicht in TP. Heiß das, das es keine Extra Datumsvariable unter TP gibt? Und wie sieht es mit DOS aus? gab es da was? Wenn man das Datum über GetDate holt und es dann abspeichern wollen würde, bräuchte man ja 3 x ein Word also 6 Byte. Ich Probiere das mal aus.
  
  
  
  Ja klar kann man.
  6BB0 ist z.B. 27568 oder
  B06B mit Byte Swap ist 45163.
  Der 1.Feb.2003 ist aber als...
• Forum: Object-Pascal / Delphi-Language

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

    Delphi
    by bodycounter, 28. Jan 2010
  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?