Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Mai 2010
Es gibt doch immer wieder interessante neue Wortschöpfungen :mrgreen:
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Mai 2010
Ich weiss, ist ja nur für mich
als Gedankenstütze :)
Solche unnützen Funktionen haben die DateUtils von Delphi übigens
auch, z.B.
function Yesterday: TDateTime;
begin
Result := Date - 1;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Mai 2010
Ich habe mir es jetzt so gemerkt:
function DateTimeToFloat(Datetime:TDate):double;
begin
result:=DateTime;
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Mai 2010
Danke. klappt.
Auf die einfachsten Dinge komme ich manchmal nicht. :wall:
Muss am Alter liegen :)
Forum: Sonstige Fragen zu Delphi
Delphi
by Wolfgang Mix,
23. Mai 2010
Ich habe folgenden Code:
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