StrToTime (38:30:00)

[No Voices]

Ich möchte mit mehr als 24 Stunden rechnen. Wenn ich eine String wie oben (38:30:00) habe, wie kann ich ihn in einen Time Wert Convertieren. Dieser Wert soll dann geteilt werden was ich bisher so gelöst habe. jedoch nur unter 24 Stunden

var
s : string;
t : TDateTime;
Begin
t := StrToTime(20:00:00)
t := t / 5;
s := TimeToStr(t);
end;

Wenn ich aber den String (38:30:00) benutze sagt er mir das das kein richtiger Timewert ist.

[Leuselator]

Du mußt Dir eine eigene StrToTime-Funktion schreiben.
TDatetime speichert Datum und Zeit als Double in der Form:

Vorkommawert.Nachkommawert

Wobei der Vorkommawert die Tage seit dem 30.12.1899 wiedergibt
und der Nachkommawert die Millisekunden seit 0 Uhr.

38 Stunden (wie alles über 24 Stunden) führt zu einem Konverterror.

Du müßtest also die Stunden div 24 teilen, den erhaltenen Wert als Vorkommawert benutzen (sind ja dann ganze Tage) und dann Stunden mod 24 + Minuten+Sekunden+MilliSekunden als Nachkommawert. Dazu brauchst Du nur den String an den Doppelpunkten zu teilen und dann kannst Du loslegen.
Gruß

[No Voices]

OK en String teilen ist kein Problem aber wie sollte der Rest aussehen. WIe kann ich den mit den werten arbeiten das habe ich noch nit hinbekommen. Wie kann ich Ihm sagen das ist der vorkommawert und das der andere?

[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ß

[No Voices]

Ich hab es jetzt mal testen wollen, bin aber nicht weit gekommen.

wie muß ich mir der funktion umgehen?

Wie rufe ich sie auf oder wo müssen nach sachen stehen? Wenn ich den String Teile und das ergebnist in 2 public Variabelen schiebe z.B. St und Min

Wie gehe ich jetzt vor?

[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?

[No Voices]

Ich mußß ehrlich gesehen das ich auf diesen zwischenteil nicht gekommen währe.

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;

Ich werde es gleich mal Testen...

Danke!

[Leuselator]

wenn Deine Frage gelöst ist, dann markier diesen Thread bitte als "beantwortet", er nicht weiter als offene Frage erscheint.
Gruß

[No Voices]

Ja ist geklärt Danke...
wollte nur noch vorher Testen bevor ich die Frage als erlädigt ansehe.

Grus NoVoices