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!!

Sekunden prüfen

Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Re: Sekunden prüfen

Forumregeln

chicky Registriert seit: 11. Aug 2009 40 Beiträge	#1 Sekunden prüfen 12. Aug 2009, 07:15 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?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.861 Beiträge Delphi 11 Alexandria	#2 Re: Sekunden prüfen 12. Aug 2009, 07:39 Man sollte eine Zeitwert niemals in eine String packen. Und für TTime- und TDateTime-Werte gibt es Funktionen in der Unit DateUtils Markus Kinzler
	Zitat

chicky Registriert seit: 11. Aug 2009 40 Beiträge	#3 Re: Sekunden prüfen 12. Aug 2009, 09:53 Ich finde leider keine passende Funktion. Kannst du mir evtl. helfen?
	Zitat

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#4 Re: Sekunden prüfen 12. Aug 2009, 10:02 auf die schnelle: if ((SecondOf(now) mod 60) = 0) then ... //bisl viel klammern aber da trau ich Delphi net immer ^^ 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.252 Beiträge Delphi 2006 Professional	#5 Re: Sekunden prüfen 12. Aug 2009, 10:27 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 Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

chicky Registriert seit: 11. Aug 2009 40 Beiträge	#6 Re: Sekunden prüfen 12. Aug 2009, 10:36 Das von TeronG klappt aber
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.252 Beiträge Delphi 2006 Professional	#7 Re: Sekunden prüfen 12. Aug 2009, 10:39 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. Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

chicky Registriert seit: 11. Aug 2009 40 Beiträge	#8 Re: Sekunden prüfen 12. Aug 2009, 10:59 Es macht ein DecodeTime() und bekommt dann als Ergebnis die Sekunden zurück. Durch mod wird dann halt auf 60 Sek getestet
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.184 Beiträge Delphi 12 Athens	#9 Re: Sekunden prüfen 12. Aug 2009, 11:13 Zitat von TeronG: //bisl viel klammern aber da trau ich Delphi net immer ^^ kannst die Klammern ruhig weglassen ... des paßt scho $2B or not $2B
	Zitat

TeronG Registriert seit: 19. Jul 2004 Ort: München 960 Beiträge Delphi 2007 Professional	#10 Re: Sekunden prüfen 12. Aug 2009, 13:14 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!! 龍 Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.
	Zitat