runden

[ByStones2]

Hi,

ich schreibe gerade ein Zeit mess programm. Wie kann ich die minuten aufrunden ???
Immer auf 15, 30, 45, 00 minuten ???

ByStones2

[fkerber]

Hi!

Ich würds so machen:

Delphi-Quellcode:

if (minutes mod 15) > 7 then
 minutes:=(((minutes div 15) + 1) *15) else
 minutes:=((minutes div 15)*15);

Ciao Frederic

[ByStones2]

Zitat:

Zitat von fkerber

Hi!

Ich würds so machen:

Delphi-Quellcode:

if (minutes mod 15) > 7 then
 minutes:=(((minutes div 15) + 1) *15) else
 minutes:=((minutes div 15)*15);

Ciao Frederic

Das geht nicht richtig, denn er muss immer aufrunden !!!

[ichbins]

Delphi-Quellcode:

setroundmode(rmup);
min:=round(min/15)*15

[fkerber]

Hi!

Axo, das hatte ich überlesen...
Kannst du den Code dann nicht dementsprechend abändern?

Delphi-Quellcode:

minutes:=(((minutes div 15) + 1) *15);

Ciao Frederic

[ichbins]

In der neuen Version geht es auch nicht, dann rundet er nämlich genau 15,0 auch auf 30 auf.
Mach's einfach so:

Delphi-Quellcode:

setroundmode(rmup);
min:=round(min/15)*15

[ByStones2]

Zitat:

Zitat von fkerber

Hi!

Axo, das hatte ich überlesen...
Kannst du den Code dann nicht dementsprechend abändern?

Delphi-Quellcode:

minutes:=(((minutes div 15) + 1) *15);

Ciao Frederic

wie geht das ganze dann mit immer abrunden ???

[fkerber]

Hi!

Nein, es müsste dann so aussehen:

Delphi-Quellcode:

if (timem mod 15) > 0 then
timem:=(((timem div 15) + 1) *15);

Abrunden:

Delphi-Quellcode:

timem:=(((timem div 15) *15);

Ciao Frederic

[ByStones2]

Zitat:

Zitat von ichbins

Delphi-Quellcode:

setroundmode(rmup);
min:=round(min/15)*15

das geht nicht !!!
setroundmode(rmup);
da kommt immer ein fehler !!!!!!!!

[A-M-X]

Zitat:

Zitat von ByStones2

Zitat:

Zitat von ichbins

Delphi-Quellcode:

setroundmode(rmup);
min:=round(min/15)*15

das geht nicht !!!
setroundmode(rmup);
da kommt immer ein fehler !!!!!!!!

hab zwar nix zu sagen aber wenn dir geholfen werden soll , sollteste was netter sein

OT ich weiss :roll: :dance: