Uhrzeit direkt in Sekunden umwandeln!

[Mitchl55]

Hallo,

wie kann ich denn noch einmal eine Uhrzeit z.B. 05:45:09 direkt in die
Sekunden (20709) oder Millisekunden umwandeln und als integer ausgeben lassen? Hab leider meine Handbücher alle verliehen! :-(

Gruß

Mitchl

[Luckie]

Das ist gar nicht so schwer, aber ich bin jetzt zu faul, das weiter zu denken.
Nur so viel:
Der die Funktion date liefert dir einen Fließkommawert dessen ganzahliger Anteil die Tage angibt, die seit dem 30.12.1899 verstrichen sind und der Nachkommaanteil den Bruchteil des Tages (1,5 wäre also der 31.12.1899 12:00). So jetzt mußt du selber mal versuchen meinen Gedankengang weiterzuführen. Ich bin jetzt zu träge das auch noch zu machen.
Wenn du also... falsch - einfacher.

sekunden = std*60*60+min*60+sec

Dann müßtest du die Uhrzeit in Sekunden haben.

[Mitchl55]

Das bringt mich für dieses Wochenende auch nicht weiter! Vielleicht hat ja jemand anderes noch ein Lösung? Totzdem erstmal Danke

Gruß

Mitchl

[Luckie]

Zitat:

Zitat von Mitchl55

Das bringt mich für dieses Wochenende auch nicht weiter! Vielleicht hat ja jemand anderes noch ein Lösung? Totzdem erstmal Danke

Also fertigen Code wirst du von mir nicht bekommen.

Mit EncodeTime oder war es jetzt DecodeTime, holst du dir die Stunden, Minuten und Sekunden. Und falls du damit nicht klar kommst, nimm zur Not copy. Wie es weitergeht, habe ich gepostet.

[Gast]

O „Gott“ Luckie bist Du aber streng mit uns... :mrgreen:

Jetzt muss ich die Differenz zwischen zwei Uhrzeiten ausrechnen...

na ja... diese Time/Date Funktionen hasse ich... aber was soll’s...

Ich sage nur ERBARME Dich... :angle:

Gruß 8)

Paul Jr.

[MrSpock]

Hallo Mitchl55,

wie Luckie schon vermutet hat, gibt es eine Decode... Funktion. In deinem Fall die DecodeTime:

Delphi-Quellcode:

var
  std,
  min,
  sec,
  msec  : Word;
  zeit  : TDateTime;
  insec : LongInt;
...
{ zeit sei die Zeit in TDateTime Format }
DecodeTime(zeit, std, min, sec, msec);
insec := std*3600 +min*60 +sec;

[Mitchl55]

Nochmal ein dickes Dankeschön an euch!
Hat soweit geklappt!

Besten Gruß

Mitchl
:coder: