Herzlich willkommen in der Delphi-PRAXiS, Deichkind_228.
Die Eigenschaften Date und Time von TDateTimePicker sind zwar mit dem Typ TDateTime vereinbart, aber niemand hätte Borland davon abgehalten den erwarteten Wert zurückzuliefern - die beiden Funktionen Date() und Time() aus der
Unit SysUtils funktionieren ja auch wie erwartet. Bei der Komponente TDataTimePicker wird aber immer der Wert der Eigenschaft DateTime zurückgeliefert, egal auf welche Eigenschaft (Date, Time, DateTime) man zugreift. Ein ewiger Stolperstein.
Delphi-Quellcode:
function DtpDate(dtp: TDateTimePicker): TDateTime;
begin
Result := Trunc(dtp.DateTime);
end;
function DtpDate(dtp: TDateTimePicker): TDateTime;
begin
Result := Frac(dtp.DateTime);
end;
Freundliche Grüße vom marabu