Time to Integer

[juergen]

Welche Genauigkeit soll das Ergebnis haben?
Wenn Sekunden reichen, dann könnte man etwa sowas machen. Vorteil: Der Wert lässt sich auch wieder als Time zurück konvertieren.

Delphi-Quellcode:

StrToIntDef(FormatDateTime(‚hh‘, <dein Datntyp Time>,  0) * 3600 +
StrToIntDef(FormatDateTime(‚nn‘, <dein Datntyp Time>,  0) * 60 +
StrToIntDef(FormatDateTime(‚ss‘, <dein Datntyp Time>,  0)

Das Ergbnis wäre in Sekunden und ein Integerwert, wenn die Anzahl der Sekunden im Bereich eines Integers passen, aber dazu ist die Frage zu ungenau
Habe grad keine Möglichkeit am PC, nur über Tablet

[himitsu]

Das perverse rumgestringe sollte man sich garnicht erst angewöhnen
HourOf
MinuteOf
SecondOf, SecondOfTheMinute
bzw.
SecondOfTheDay
MilliSecondOfTheDay
SecondsBetween
usw.

DateUtils
SysUtils
...


für Zeiten pro Tag oder Zeitdifferenzen, kann man auch direkt rechnen,
denn TDateTime ist ein Float (Double), wo im Nachkommateil die Uhrzeit steht, und vor dem Komma die Tage seit X.
Trunc(TimeOf(DT) * 24 * 60) ergibt also die Minuten seit Mitternacht