TDateTimePicker mit modus Time kennt die Zeit nicht

[BerndS]

Hier mal eine einfache Funktion, die nur den Zeitanteil zum Errechnen den Sekunden verwendet.

Delphi-Quellcode:

  function DateTimeToMilliseconds(const ADateTime: TDateTime): Int64;
  begin
    Result := DateTimeToTimeStamp(ADateTime).Time div MSecsPerSec;
  end;

Das ganze ist aus der System.DateUtils abgekupfert.

Hier ein Beispiel für den Vergleich:

Delphi-Quellcode:

 ...
 Seconds := DateTimeToMilliseconds(Now) - DateTimeToMilliseconds(DateTimePicker1.Time);
 ...