Zeitinterval in Millisekunden.... [erledigt] :-)

[SeeAALi]

.....,aber in Minuten und Sekunden anzeigen lassen.

hi,

so habe nun etliche seiten hier im forum durchforstet, aber irgendwie find ich nicht das richtige.
Oder ich überlese es irgendwie.

Also folgendes, ich habe einen Zeitinterval in Millisekunden. Den möchte ich gerne mir in Minuten und Sekunden per
Timer anzeigen lassen. Quasi ein Countdown.
Alles was ich bis jetzt aber hier gefunden habe, nutzt in irgendeiner Art und Weise TDatetime o.ä. Ich habe aber nur diese Zeitspanne, wann es los geht und wann es endet, ist mir eigentlich völlig egal.

Ich will eigentlich nur die viele Schreibarbeit vermeiden, die kommt wenn ich mit If then anfange, und mir aus den
Millisekunden dann die Minuten und sekunden ausrechne.

Da gibt es doch bestimmt was einfaches, oder nicht?!

mfg SeeAALi


ich seh mich schon bei den ersten antworten da entgeistert sitzen , und denk mir bestimmt "das hast du doch schon mal gesehen"

[blink182]

wie wärs mit einer einfachen Division?
Sekunde einfach durch 1000 teilen und Minute halt durch 60000?
bzw wenn du es halt in Minuten haben und Sekunden haben willst, musst du den Rest (modulo) Minuten noch berücksichtigen

[SeeAALi]

hatte mich wohl nicht so klar ausgedrückt

will das ganze halt als quasi countdown haben. per timer und einer sekunde genauigkeit.
soll halt von meinen millisekunden die ich habe, auf 0 runterzählen.
das runterzählen, soll ja nun nicht das prob sein, nur halt die anzeige, ohne das ich jetzt wirklich den ganzen mist
mit verschachtelten if then machen muss..

if minute > 59 then ...... sowas möcht ich ja eigentlich nicht haben.






p.s. mir ist grad eine idee eingefallen, werd sie aber erst morgen testen. für weiter anregungen bin ich aber dankbar

[Sir Rufo]

Dann schreib doch mal auf, wie das auf der Anzeige aussehen soll.

Weil klar ist das immer noch nicht (wenn die erste Antwort nicht zutrifft).

Also, was soll denn z.B. bei 9000ms Restzeit auf der Anzeige zu sehen sein:

das -> 00:00:09

so wie rechnet man das jetzt in einen Datetimewert um?
EncodeTime

[SeeAALi]

also habe 602000ms, was genau 10minuten und 2 sekunden entspricht.

encodetime habe ich auch schon gefunden, aber die obergrenze für ms sind 999. und wenn ich das richtig verstanden habe, gibt mir ja encodetime ja eine zeit aus , und ich habe ja im prinzip nur eine differenz.

und wegen der anzeige, hatte doch schon geschrieben, das ich dann nur minuten und sek haben will, z.b. 9:23min

hatte jetzt überlegt, wenn ich jetzt pro timer aufruf, halt einfach 1000ms abziehe und dann halt zu fuss mir min und sek berechne.

also nciht vorher umrechnen und dann abziehen, sondern erst die sekunde weniger und dann umrechnen.

so , hoffe ich habe mich um kurz vor 5 noch klar genug ausdrücken können


mfg SeeAALi

[samso]

Also, Du hast die Zeit im Millisekunden (hier t). Wenn Du diese Zahl durch die Anzahl der Millisekunden pro Tag teilst, erhältst Du den passenden TDatetime-Wert. Der Bezugswert ("wann es los geht und wann es endet, ist mir eigentlich völlig egal.") spielt dabei keine Rolle (die Tagesanzahl bleibt einfach Null). Die Funktion "TimeToStr" wandelt Deine Millisekunden in einen String. DecodeTime wandelt in die Einzelkomponenten.

Delphi-Quellcode:

TimeToStr(t/MSecsPerDay);
DecodeTime(t/MSecsPerDay, h, m, s, ms);

[angos]

oder so:


602000 / 1000 = 602 Sekunden

602 / 60 = 10 Minuten (Rest 2 entspricht den Sekunden)

Das ist doch wirklich nur einfaches Mathe . Da brauchst du keine Datumsfunktionen oder irgendetwas spezielles.

Minuten := 602000 div 60000
Sekunden := Trunc((602000 mod 60000) / 1000)


Gruß
angos

[oldmax]

Hi
Wenn du es etwas "universeller" brauchst, dann rechne deine Zielzeit aus und Ziehe davon die aktuelle Zeit ab. Da das Zeitformat einer Real entspricht, dürfte es kein allzugroßes Problem sein...
Gruß oldmax

[alzaimar]

Delphi-Quellcode:

Function MilliSecsToTimeString (aMilliSecs : Cardinal) : String;
Var
  h,m,s : Word;

Begin
  s := (aMilliSecs div 1000) mod 60;
  m := ((aMilliSecs div 1000) div 60) mod 60;
  h := ((aMilliSecs div 1000) div 60) div 60;
  Result := Format('%d:%.2d:%.2d',[h,m,s]);
End;

So irgendwie. Ungetestet.

[SeeAALi]

danke alzaimar

hab ich doch wieder was gelernt

ich hätte es etwas komplizierter geschrieben, aber nur unwesentlich