TDateTimeToDouble?

[Wolfgang Mix]

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?

[daywalker9]

Ganz einfach:

Delphi-Quellcode:

var s : TDateTime;
    d : double;
begin s:=now;
      d:=s; 
end;

[Wolfgang Mix]

Danke. klappt.
Auf die einfachsten Dinge komme ich manchmal nicht.
Muss am Alter liegen

[daywalker9]

Macht ja nichts. TDateTime ist ja nur ein type Double.

[Wolfgang Mix]

Ich habe mir es jetzt so gemerkt:

Delphi-Quellcode:

function DateTimeToFloat(Datetime:TDate):double;
begin
  result:=DateTime;
end;

[mkinzler]

Welch Verschwendung dafür eine Funktion zu basteln

[Wolfgang Mix]

Ich weiss, ist ja nur für mich
als Gedankenstütze

Solche unnützen Funktionen haben die DateUtils von Delphi übigens
auch, z.B.

Delphi-Quellcode:

function Yesterday: TDateTime;
begin
  Result := Date - 1;
end;

[himitsu]

Zitat von mkinzler:

Welch Verschwendung dafür eine Funktion zu basteln

Wenn man die als Inline deklariert, wird diese im Programm oftmals wenigstens wieder wegoptimiert.

[Wolfgang Mix]

[OT]

Zitat:

Wenn man die als Inline deplariert, wird diese im Programm oftmals wenigstens wieder wegoptimiert.

Es gibt doch immer wieder interessante neue Wortschöpfungen [/OT]