Time to Integer

[Nine9]

Guten Tag Community,

wie kann ich einen Datentyp 'Time' aus der DB zu einem Integer wandeln?


Grüße

[Sinspin]

Hallo,

In Delphi ist ein Datumswert intern Gleitkomma. Der Ganzahlanteil sind Tage, nach dem Komma kommt alles was kürzer als ein Tag ist.
Also wird in deinem Time-Wert eine Zahl zwischen 0 und 1 stehen.
Es gibt Functionen mit denen man Datum/Zeit in Windows/Unix/whatever Datum umwandeln kann.

Allerdings wäre erstmal interessant wie der wirkliche Datentyp des Feldes ist um das es hier geht. Sonst ist hier alles nur Stochern im trüben.

[KodeZwerg]

Da du recht viel zeigst wie du es machst und womit und gut beschrieben hast wofür das ganze gut sein soll,
gibts nur eine rudimentäre Antwort: Query1.FieldByName('Time').AsInteger; .
Frag mich aber nicht wie Du daraus wieder einen Zeitwert erhalten kannst.

[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