Sekunden prüfen

[chicky]

Guten Morgen,

Ich habe eine Zeitangabe (hh:mm:ss). Wie kann ich in Delphi prüfen, ob die Sekunden 00 sind?

Habs momentan mit if posEx('00',Wli.Strings[1],6) <> 0 then gemacht. GIbts ne bessere Lösung?

[mkinzler]

Man sollte eine Zeitwert niemals in eine String packen. Und für TTime- und TDateTime-Werte gibt es Funktionen in der Unit DateUtils

[chicky]

Ich finde leider keine passende Funktion. Kannst du mir evtl. helfen?

[TeronG]

auf die schnelle:
if ((SecondOf(now) mod 60) = 0) then ... //bisl viel klammern aber da trau ich Delphi net immer ^^

[Sharky]

Zitat von chicky:

Ich finde leider keine passende Funktion. Kannst du mir evtl. helfen?

Schaue doch mal in der Hilfe unter den Zeit-/Datumsfunktionen.
z.B. EncodeTime , DecodeTime

[chicky]

Das von TeronG klappt aber

[Sharky]

Zitat von chicky:

Das von TeronG klappt aber

Weisst Du auch warum es funktioniert? Ausserdem lernst Du nie die Funktionen kennen wenn Du einfach fertigen Code in ein Projekt einfügst.

[chicky]

Es macht ein DecodeTime() und bekommt dann als Ergebnis die Sekunden zurück.
Durch mod wird dann halt auf 60 Sek getestet

[himitsu]

Zitat von TeronG:

//bisl viel klammern aber da trau ich Delphi net immer ^^

kannst die Klammern ruhig weglassen ... des paßt scho

[TeronG]

Genau genommen kann man da noch mehr weglassen ....

Und zwar das "mod 60"

ähhm ... tja... hmmm ... ahh! Das war n Test ob's jemand auffällt! Ist aber niemanden! HA! Ihr seit alle durchgefallen! Genau so war das!!