StrToTime (38:30:00)

[Leuselator]

Delphi-Quellcode:

function MyStrToTime(Value : String):TDatetime;
var MyDateTime : TDateTime
    Stunden
  , Minuten
  , Sekunden
  , MilliSekunden : WORD;
    LastPos
  , NextPos : Integer;
begin
  // Jede Annahme endet mit einer Katastrophe...
  try 
    NextPos  := pos(':',Value);
    Stunden  := StrToInt(copy(Value,1,NextPos-1));
    LastPos  := NextPos+1;
    NextPos  := pos(':',copy(Value,LastPos,MaxInt));
    Minuten  := StrToInt(copy(Value,LastPos,NextPos-1));
    LastPos  := LastPos+NextPos+1;
    NextPos  := pos('.',copy(Value,LastPos,MaxInt));
    if NextPos > 0 then begin
      Sekunden := StrToInt(copy(Value,LastPos,NextPos-1));
      MilliSek := StrToInt(copy(Value,NextPos+1,MaxInt));
    end else begin 
      Sekunden := StrToInt(copy(Value,LastPos,MaxInt));
      MilliSek := 0;
    end;
    Result := Stunden div 24;
    Stunden = Stunden mod 24;
    EncodeTime(MyDatetime,Stunden,Minuten,Sekunden,MilliSek);
    Result := Result+MyDateTime;
  except
    raise Exception.Create('Der übergebene String ist faul!');
  end
end;

Verwendung:

Delphi-Quellcode:

var DeinZiel : TDatetime;
begin  
  DeinZiel := MyStrToTime('38:25:59.999');
end;

nu is aba gut oder?