Delphi-PRAXiS - Delphi Sekunden prüfen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Sekunden prüfen (https://www.delphipraxis.net/138532-sekunden-pruefen.html)

chicky

12. Aug 2009 06:15

Sekunden prüfen

Guten Morgen,

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

Habs momentan mit

Delphi-Quellcode:

if posEx('00',Wli.Strings[1],6) <> 0 then

gemacht. GIbts ne bessere Lösung?

mkinzler

12. Aug 2009 06:39

Re: Sekunden prüfen

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

chicky

12. Aug 2009 08:53

Re: Sekunden prüfen

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

TeronG

12. Aug 2009 09:02

Re: Sekunden prüfen

auf die schnelle:

Delphi-Quellcode:

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

Sharky

12. Aug 2009 09:27

Re: Sekunden prüfen

Zitat:

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

12. Aug 2009 09:36

Re: Sekunden prüfen

Das von TeronG klappt aber

Sharky

12. Aug 2009 09:39

Re: Sekunden prüfen

Zitat:

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

12. Aug 2009 09:59

Re: Sekunden prüfen

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

himitsu

12. Aug 2009 10:13

Re: Sekunden prüfen

Zitat:

Zitat von TeronG

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

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

TeronG

12. Aug 2009 12:14

Re: Sekunden prüfen

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

Und zwar das "mod 60" :oops:

ä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!! :mrgreen:

Alle Zeitangaben in WEZ +1. Es ist jetzt 13:47 Uhr.