LI.SubItems.Add(DateToSTr(DateTimePicker1.Time));
Also aus einer Zeit soll mit Datumtostr was werden ?
LI.SubItems.Add(TimeToSTr(DateTimePicker1.Time));
wohl eher
Edit:
OH ich glaube time ist vom type tdatetime
also
Timetostr und datetostring benutzen.
zu TDatetime und TTime und TDate das sind alles float werte d.h. der wert vor dem komma gibt das datum an der dahinter die zeit
Auch ist es manchmal hilfreich mit Zeiten als Zahlen zu rechnen
Edit2: hier noch einige zeit functionen aus meinen stundenplan
Delphi-Quellcode:
function isTimeInTimes(t, von, bis: TTime): boolean;
begin
result:= ( (von < t) and (t < bis) );
end;
function Zeitbis(jetzt, dann: TTime): TTime;
begin
result:= dann - jetzt;
end;
function timetominutes(t: TTime): integer;
begin
result:= Hourof(t)*60+MinuteOf(t);
end;
function timetoseconds(t: TTime): integer;
begin
result:= (Hourof(t)*60+MinuteOf(t))*60 + SecondOf(t);
end;