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:

markieren

Delphi-Quellcode:

			if (minutes mod 15) > 7 then

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

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

Ciao Frederic

**ByStones2**

Zitat von fkerber:

Hi!

Ich würds so machen:

markieren

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

markieren

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?

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:

markieren

Delphi-Quellcode:

			setroundmode(rmup);

min:=round(min/15)*15

**ByStones2**

Zitat von fkerber:

Hi!

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

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:

markieren

Delphi-Quellcode:

			if (timem mod 15) > 0 then

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

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

Ciao Frederic

**ByStones2**

Zitat von ichbins:

markieren

Delphi-Quellcode:

			setroundmode(rmup);

min:=round(min/15)*15

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

**A-M-X**

Zitat von ByStones2:

Zitat von ichbins:

markieren

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

runden

runden

Re: runden

Re: runden

Re: runden

Re: runden

Re: runden

Re: runden

Re: runden

Re: runden

Re: runden

Forumregeln

ByStones2 Registriert seit: 6. Okt 2005 Ort: Birenbach 133 Beiträge Turbo Delphi für Win32	#1 runden 12. Nov 2005, 12:38 Hi, ich schreibe gerade ein Zeit mess programm. Wie kann ich die minuten aufrunden ??? Immer auf 15, 30, 45, 00 minuten ??? ByStones2
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#2 Re: runden 12. Nov 2005, 12:43 Hi! Ich würds so machen: markieren Delphi-Quellcode: if (minutes mod 15) > 7 then minutes:=(((minutes div 15) + 1) 15) else minutes:=((minutes div 15)15); Ciao Frederic Frederic Kerber
	Zitat

ByStones2 Registriert seit: 6. Okt 2005 Ort: Birenbach 133 Beiträge Turbo Delphi für Win32	#3 Re: runden 12. Nov 2005, 12:50 Zitat von fkerber: Hi! Ich würds so machen: markieren 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 !!!
	Zitat

ichbins Registriert seit: 9. Jul 2005 Ort: Hohenaltheim 1.001 Beiträge Delphi 2005 Personal	#4 Re: runden 12. Nov 2005, 12:51 markieren Delphi-Quellcode: setroundmode(rmup); min:=round(min/15)*15 Michael Enßlin
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#5 Re: runden 12. Nov 2005, 12:52 Hi! Axo, das hatte ich überlesen... Kannst du den Code dann nicht dementsprechend abändern? minutes:=(((minutes div 15) + 1) *15); Ciao Frederic Frederic Kerber
	Zitat

ichbins Registriert seit: 9. Jul 2005 Ort: Hohenaltheim 1.001 Beiträge Delphi 2005 Personal	#6 Re: runden 12. Nov 2005, 12:53 In der neuen Version geht es auch nicht, dann rundet er nämlich genau 15,0 auch auf 30 auf. Mach's einfach so: markieren Delphi-Quellcode: setroundmode(rmup); min:=round(min/15)*15 Michael Enßlin
	Zitat

ByStones2 Registriert seit: 6. Okt 2005 Ort: Birenbach 133 Beiträge Turbo Delphi für Win32	#7 Re: runden 12. Nov 2005, 13:00 Zitat von fkerber: Hi! Axo, das hatte ich überlesen... Kannst du den Code dann nicht dementsprechend abändern? minutes:=(((minutes div 15) + 1) 15); Ciao Frederic wie geht das ganze dann mit immer* abrunden ???
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#8 Re: runden 12. Nov 2005, 13:07 Hi! Nein, es müsste dann so aussehen: markieren Delphi-Quellcode: if (timem mod 15) > 0 then timem:=(((timem div 15) + 1) 15); Abrunden: timem:=(((timem div 15) 15); Ciao Frederic Frederic Kerber
	Zitat

ByStones2 Registriert seit: 6. Okt 2005 Ort: Birenbach 133 Beiträge Turbo Delphi für Win32	#9 Re: runden 12. Nov 2005, 13:12 Zitat von ichbins: markieren Delphi-Quellcode: setroundmode(rmup); min:=round(min/15)*15 das geht nicht !!! setroundmode(rmup); da kommt immer ein fehler !!!!!!!!
	Zitat

A-M-X Registriert seit: 29. Sep 2005 Ort: Karlsruhe 152 Beiträge	#10 Re: runden 12. Nov 2005, 13:15 Zitat von ByStones2: Zitat von ichbins: markieren 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 10 Gründe, warum es besser wäre, auf diesen Link zu klicken
	Zitat