Omregning til dato

Kig på delphi\'s dato rutiner, prøv evt timestamp

Hvis du kører D6 er der rigtig mange rutiner

Du burde kunne bruge:
  FileDateToDateTime(x: LongInt): TDateTime;
som omregner fra DOS-tid til Delphi-tid.
Dos-tiden også et antal sekunder, men siden 1980.
Der er 3632 dage mellem 1970 og 1980 hvilket er 313804800 sekunder.
Dos-tiden starter ved x=2162688 d. 01-01-1980 00:00:00
Så du burde kunne bruge:
  FileDateToDateTime(x-311642112);
Prøv at se om det giver noget fornuftigt.

//hreiff

Det er faktisk lettere at bruge:
var
  day: TDateTime;
Begin
  day:=719163+x/86400;
end;

hvor x er antal sekunder siden 1970
(719163 er d. 1-1-1970 og 86400 er antal sekunder pr. dag)

Eller hvis det skal udskrives:
  label1.caption := DateTimeToStr(719163+StrToInt(Edit1.text)/86400);

//hreiff