Entwickler-Ecke

Sonstiges (Delphi) - millisekunden umrechnen


hibbert - Fr 15.10.04 23:05
Titel: millisekunden umrechnen
Hi,
ich habe eine Zahl, genauergesagt millisekunden (zB. 125485475)
nun möchte ich gerne diese Zahl umrechnen, undzwar so, dass ich zum schluss
Tage Stunden Minuten und Sekunden erhalte.

Dies soll dann über einen Timer geschehen, und wenn die errechnetten sekunden > 60 sind, dann sollten sich die Minuten erhöhren.

Ich weiß leider nicht so genau, wie ich das umrechne :oops:

hibbert


Delete - Sa 16.10.04 00:04
Mathematik, fünfte Schuljahr:
1 Sekunde hat 1.000 Millisekunden
1 Minute hat hat 60 Sekunden
1 Stunde hat 60 Minuten und
ein Tag hat 24 Stunden.

Dann kuck dir noch mal die Operatoren div und mod an bzw. benutzt die Forensuche, das hatten wir bestimmt schon mal.


hibbert - Sa 16.10.04 02:14
Luckie hat folgendes geschrieben:
Mathematik, fünfte Schuljahr:
1 Sekunde hat 1.000 Millisekunden
1 Minute hat hat 60 Sekunden
1 Stunde hat 60 Minuten und
ein Tag hat 24 Stunden.


(1) Das ist jetzt schon 6 Jahre her :wink:
(2) das weiß ich ja auch, doch ich habe das bis jetzt so gemacht:

Delphi-Quelltext 
1:
2:
3:
4:
 
sekunden:= millisec div 1000;
min:= sekunden div 60;
std:= min div 60;
tage:= std div 24;

doch das führt nicht zum gewünschten Ergebnis...aber ich werde mich nochmal hier im forum umsehen...


Delete - Sa 16.10.04 02:44
Kuck mal hier:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
 
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;


hibbert - Sa 16.10.04 02:49
mhh danke...
aber ich habe doch noch was im orum gefunden (mhh hab ich entweder vorher überlesen oder einfach nur falsch gesucht).

naja, ich habe gefunden was ich gesucht habe...

thx

hibbert


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!