millisekunden umrechnen

hibbert · Verfasst: Fr 15.10.04 23:05

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

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Ehemaliges Mitglied Erhaltene Danke: 1

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 · Verfasst: 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:

markieren

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...

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Ehemaliges Mitglied Erhaltene Danke: 1

Kuck mal hier:

markieren

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 · Verfasst: 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

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme