und datetimetostr. dann wird das Datum miteinberechnet. Alternativ könntest du es auch so machen:
Delphi-Quellcode:
var
d:tdatetime;
h,min,sec:integer;
begin
sec:=trunc((d-trunc(d))*24*3600);
min:=sec div 60;
sec:=sec-min*60;
h:=min div 60;
min:=min-h*60;
end;