Float in zwei Integer zerlegen

[Popov]

Ich hab die letzten paar Tage in einer Zeitschleife zu hängen, alternativ permanent Deja-Vus zu erleben. Jeder will plötzlich Datum und Zeit zerlegen.

Ich hab jetzt keine Zeit um zu zeigen wie das mit Objekten klappt, vielleicht später (Edit: Dalai hat es gerade gemacht). Hier die Integer-Variante:

Delphi-Quellcode:

  Datum := Trunc(Now);
  Zeit := Trunc(Frac(Now) * 24 * 60 * 60 * 1000);

  //und zurück

  DatumUndZeit := Datum + (Zeit / 24 / 60 / 60 / 1000);
  ShowMessage(DateTimeToStr(DatumUndZeit));