Zeit in Sekunden umrechnen

[Monday]

Für diejenigen die es brauchen könnten...

Mit dieser Funktion kann man eine Zeit in Sekunden umrechnen:

Code:

function Zeit_In_Sekunden_Umwandeln(std_min_sek:string): integer;
{ Rechnet eine Zeit im Format Std:mm:ss in Sekunden um. Beispiel:
ShowMessage( IntToSTr( Zeit_In_Sekunden_Umwandeln('0:10:00') )); // 10 min, result 600 (sekunden}  //SH
var
    zeit : TStringList;
begin
    zeit  := TStringList.Create;
    zeit.Delimiter:=':';;
    zeit.DelimitedText:=std_min_sek;
    result := StrToInt(zeit[0])*60*60+StrToInt(zeit[1])*60+StrToInt(zeit[2]);
end;

Wahrscheinlich gibt es dafür eine hauseigene Funktion, doch bevor ich stundenlange suche und probiere, habe ich selbst diese kleine Funktion geschrieben. Wollte das in die CodeLibrary schreiben, habe dort aber keine Schreibrechte.

LG
Monday