.Date und .Time sind im Printip das Selbe, da es intern als Eines gespeichert und beim Auslesen oftmals nicht getrennt wird.
es kann also nicht schaden, wenn du beim Auslesen sicherheitshalber nochmal filterst:
Delphi-Quellcode:
time = Frac(dtpTime.Time);
date = Trunc(dtpDate.Date);
hier wird nur typ-kontertiert, aber nicht der Inhalt umgewandelt.
Delphi-Quellcode:
function TCommonCalendar.GetDate: TDate;
begin
Result := TDate(FDateTime);
end;
function TCommonCalendar.GetTime: TTime;
begin
Result := TTime(FDateTime);
end;