In Stunden, Minuten, und Sekunden umrechnen

[Luckie]

Nun ja es ist logischewrweise sehr schwer Millisekunden umzurechnen, wenn man nicht weiß, dass eien Sekunde 1000 Millisekunden hat eine Minute 60 Sekunden, eine Stunde 60 Minuten und ein tag 24 Stunden.

Delphi-Quellcode:

function FormatTime(t: Cardinal): string;
begin
  t := t div 1000; // -> seconds
  result := IntToStr(t mod 60);
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
  t := t div 60; //minutes
  result := IntToStr(t mod 60) + ':' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
  t := t div 60; //hours
  result := IntToStr(t mod 24) + ':' + result;
  case t mod 60 < 10 of
    true: result := '0' + result;
  end;
end;

[Alex_ITA01]

danke schön, klar weiß ich das nur mir hat halt der göttliche funke gefehlt (eher noch zu müde zum proggen) :-)
trotzdem danke schön

[Alex_ITA01]

ok ich habe dein source probiert und er zeigt mit bei einer Mpg (279 <- MediaPlayer1.Length)
00:00:00 an

warum das nun obwohl der film 13 sekunden geht

[Tom]

Etwas kürzer:

Delphi-Quellcode:

  ShowMessage( FormatDateTime( 'hh:mm:ss', 60000 / (24*60*60*1000) ));

wobei 60000 dem gewünschten Wert in Millisekunden entspricht.

[Luckie]

Bei meiner Funktion, muss die Zeit Millisekundne angegeben werden. 13 Sekunden entsprechen dann 13000 Millisekunden.

[Alex_ITA01]

danke ich werde es mal probieren.

[Alex_ITA01]

danke habs getestet aber der zeigt mir auch nur 00:00:00 an obwohl der film so 13 sekunden oder so geht. MediaPlayer1.Length = 279

[Tom]

Auf was steht TimeFormat?

[Alex_ITA01]

wenn du meinst ich soll es auf tfhms oder wie das heißt setzen dann geht das bei mir nicht.
also läßt sich nicht setzen
gibts noch ne möglichkeit?

[Tom]

Zitat:

auf tfhms oder wie das heißt setzen

Wäre sinnvoll in der OH mal das "oder so" nachzuschlagen. Ansonsten: Was funktioniert nicht?