Hallo,

ich habe einen String der wie folgt ausschaut: xxxx.
Das x steht für eine Zahl zwischen 0 - 9.

Jetzt möchte ich diesen String prüfen, ob Dieser eine aktuelle Zeit beinhaltet.
Also hh:mm:ss (h = Stunde, m = Minute, s = Sekunde).

Sollte dies keine gültige Zeit sein (z. B. bei 99:99:99), dann soll daraus automatisch 23:59:59 werden.

Ich hab das schon mal mit StrToTime probiert, aber diese function erlaubt, laut OH, nur zweistelle Uhrzeiten.

Weiss jemand, wie ich das machen könnte?

Zitat von Helmi:

Ich hab das schon mal mit StrToTime probiert, aber diese function erlaubt, laut OH, nur zweistelle Uhrzeiten.

Komisch, bei mir erlaubt StrToTime 2 oder 3stellige Uhrzeiten (D6)

markieren

Delphi-Quellcode:

try
  MyTime := StrToTime(MyTimeAsString);
except
  MyTime := StrToTime('23:59:59');
end;

Zitat von Bernhard Geyer:

Zitat von Helmi:

Ich hab das schon mal mit StrToTime probiert, aber diese function erlaubt, laut OH, nur zweistelle Uhrzeiten.

Komisch, bei mir erlaubt StrToTime 2 oder 3stellige Uhrzeiten (D6)

markieren

Delphi-Quellcode:

try
  MyTime := StrToTime(MyTimeAsString);
except
  MyTime := StrToTime('23:59:59');
end;

Ja, du hast recht!
Als ich das getestet habe, hatte ich einen Fehler im String deswegen konnte der das nicht in eine Zeit ändern!

Es geht auch mit 3 stelliger Uhrzeit!

Trotzdem Danke!

Zitat von Helmi:

Jetzt möchte ich diesen String prüfen, ob Dieser eine aktuelle Zeit beinhaltet.
Also hh:mm:ss (h = Stunde, m = Minute, s = Sekunde).
Sollte dies keine gültige Zeit sein (z. B. bei 99:99:99), dann soll daraus automatisch 23:59:59 werden.
Weiss jemand, wie ich das machen könnte?

Indem Du prüfst

• ob an der dritten und sechsten Position Doppelpunkte stehen.
• ob die Ziffern an den Positionen eins und zwei eine Zahl im Bereich 0 bis 23 ergeben.
• ob die Ziffern an den Positionen vier und fünf eine Zahl im Bereich 0 bis 59 ergeben.
• ob die Ziffern an den Positionen sieben und acht eine Zahl im Bereich 0 bis 59 ergeben.

Wenn alle Prüfungen positiv verlaufen, dann ist es eine gültige Zeit, sonst gibst Du als Resultat der Prüfung '23:59:59' zurück.

Oder man verlässt sich auf innere Heilungskräfte:

markieren

Delphi-Quellcode:

function CheckTime(const sTime: String): String;
var
  dtTest: TDateTime;
begin
  if TryStrToTime(sTime, dtTest)
    then Result := TimeToStr(dtTest)
    else Result := '23:59:59';
end;

Grüße vom marabu

Es kann sein, dass mein String eine Zeichenfolge wie diese hat: 00:00:04.

Dann bekomm ich leider immer nur die 23:59:59 zurück.

Ich nicht - Gott sei Dank.

marabu