Ich habe folgenden Code:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var jetzt:TDateTime;
begin
jetzt :=40330.25; //01.06.2010 06:00:00
showmessage(DatetimeToStr(jetzt));
end;
Nun kann ich ja mit EncodeDateTime(Datum+Zeitwerte) das TDate
vom 1.6.2010 06:00.00 erzeugen. Wie komme ich am einfachsten
an den Doublewert 40330.25 heran? Muss ich selbst basteln oder
wie macht ihr das?