Thema: FreePascal Zeit in Sekunden umrechnen

Einzelnen Beitrag anzeigen

Monday

Registriert seit: 24. Aug 2012
83 Beiträge
 
FreePascal / Lazarus
 
#1

Zeit in Sekunden umrechnen

  Alt 12. Dez 2015, 11:09
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
  Mit Zitat antworten Zitat