StrToTime (38:30:00)

[Leuselator]

Delphi-Quellcode:

function MyStrToTime(Value : String):TDatetime;
var MyDateTime : TDateTime
    Stunden
  , Minuten
  , Sekunden
  , MilliSekunden : WORD;
begin
  // ich gehe davon aus, das Du den String geteilt und mit
  // z.B. Stunden := StrToInt(StundenTeil) in die ensprechenden 
  // Variablen gepackt hast, dann nur noch:

  Result := Stunden div 24;
  Stunden = Stunden mod 24;
  EncodeTime(MyDatetime,Stunden,Minuten,Sekunden,Millisekunden);
  Result := Result+MyDateTime;
end;

Gruß