[gelöst] HH:MM:SS in Sekunden

[betateilchen]

Edit: wo/wie kann ich mir das Ergebnis von hsm2secs anzeigen lassen?

In der Befehlszeile von FHEM {hms2secs(<hier kommt der Wert rein>)}

Auf die Klammerlogik wär ich nicht ansatzweise gekommen.

ich auch nicht, ich hätte ReadingsVal() verwendet, das ist nämlich logischer

[holle75]

In der Befehlszeile von FHEM {hms2secs(<hier kommt der Wert rein>)}

Danke dir

so:

Code Auswählen Erweitern

{hms2secs("AnwesenheitHaupt","statStateDaypresent")}
{hms2secs(AnwesenheitHaupt,statStateDaypresent)}



will er nicht. Wie wärs richtig?

[Damian]

Warum willst du überhaupt umrechnen, ein Stringvergleich sollte für deinen Zweck ausrechend sein.

Wenn das Format immer HH:MM:SS ist, dann kannst du ganz einfach vergleichen:

Code Auswählen Erweitern

([AnwesenheitHaupt:statStateDaypresent] gt "01:02:01")

[holle75]

Oh nee, wirklich jetzt? Hätte nicht gedacht, dass perl/DOIF auch Zeitstrings auf Größe vergleichen kann. Aber was gelernt.

Die Antwort darauf

Danke dir

so:

Code Auswählen Erweitern

{hms2secs("AnwesenheitHaupt","statStateDaypresent")}
{hms2secs(AnwesenheitHaupt,statStateDaypresent)}



will er nicht. Wie wärs richtig?

würde mich aber trotzdem noch sehr interessieren.

Vielen Dank an euch

[amenomade]

Oh nee, wirklich jetzt? Hätte nicht gedacht, dass perl/DOIF auch Zeitstrings auf Größe vergleichen kann. Aber was gelernt.

Die Antwort darauf
würde mich aber trotzdem noch sehr interessieren.

Vielen Dank an euch

Code Auswählen Erweitern

{hms2secs(ReadingsVal("AnwesenheitHaupt","statStateDaypresent",0))}

[holle75]

Merci!

[Per]

Hätte nicht gedacht, dass perl/DOIF auch Zeitstrings auf Größe vergleichen kann. Aber was gelernt.

Macht es auch nicht, aber im GGsatz zum deutschen Datumsformat passt der Textvergleich bei der Zeit, wenn du mit führender Null bzw. führendem Leerzeichen arbeitest. Sonst musst du auffüllen.

[Sailor]

In meiner 99_myUtils.pm gibt es dafür eine Funktion...

Code Auswählen Erweitern


sub hms2secs($){
my ($t) = @_;
return substr($t,0,2) * 3600 + substr($t,3,2) * 60 + substr($t,6,2);
}


Ich habe es mal ein bisschen verfeinert...

Code Auswählen Erweitern


sub hms2secs($) {
my ($t) = @_;
my $TimeSec;

### Time: HH:MM:SS
if ($t =~ /^(2[0-3]|[01]?[0-9]):([0-5]?[0-9]):([0-5]?[0-9])$/) {
$TimeSec = substr($t,0,2) * 3600 + substr($t,3,2) * 60 + substr($t,6,2);
}
### Time: HH:MM
elsif ($t =~ /^(2[0-3]|[01]?[0-9]):([0-5]?[0-9])$/) {
$TimeSec = substr($t,0,2) * 3600 + substr($t,3,2) * 60;
}
### Time: HH
elsif ($t =~ /^(2[0-3]|[01]?[0-9])/) {
$TimeSec = substr($t,0,2) * 3600;
}
### Time: Undefined as criteria above
else {
$TimeSec = 0;
}
### For debugging purpose only
Log 5, "mUtils - hms2secs - t                                               : " . $t;
Log 5, "mUtils - hms2secs - TimeSec                                         : " . $TimeSec;

return($TimeSec);
}


Gruß
    Sailor