2 TDate -> 1 Tdate

**Antigo**

Servus,
Ich habe 2 TDateTimePicker auf meiner Form. In dem einen kann der User ein Datum, in dem anderen eine Uhrzeit einstellen. Jetzt möchte ich aus diesen beiden Angaben ein Datum errechnen, das das Datum des ersten Pickers und die Uhrzeit des zweiten hat. Nur wie komme ich dadran?
Ich weiss, oder meine zumindest mal gelesen zu haben, dass der Vorkomma Teil eines TDates das Datum repräsentiert, und der Nachkomma Teil die Uhrzeit.
Ich komme aber trotzdem nicht drauf wie ich das bewerkstelligen sollte...

Mir kam jetzt doch eine Idee, aber gibts da nicht vielleicht eine sauberere Lösung? Ich find das ziemlich dämlich:

markieren

Delphi-Quellcode:

			var temp:TDate;

begin

  temp:=trunc(DateTimePicker1.DateTime)+(DateTimePicker2.date-trunc(DateTimePicker2.DateTime));

  edit1.text:=DateTimeToStr(temp)

end;

Funktioniert zwar, aber wie gesagt, etwas rumgetrickst...

2 TDate -> 1 Tdate

2 TDate -> 1 Tdate

Forumregeln