werte auf nächsten 1000er runden

**Christian18**

Hallo,

wie kann ich werte auf den nächsten tausender runden??? also wenn der wert 1 dann 1000 wenn der wert 1003 dann 2000 wenn der wert 10100 dann 11000. Wie mache ich das???

mfg christian18

**nailor**

durch tausend, runden, mal tausend

**glkgereon**

auf runden!

ich würde es so machen:

Result:=(trunc(Value/1000)+1)*1000; also durch tausend
nachkommastellen abschneiden
plus 1 (AUFrunden)
mal tausend

kleiner fehler für dich: wenn die zahl 1000 ist, käme 2000 raus....

is aber nicht schwer

**Nothine**

oder solange du mit ordinalen werten arbeitest mit mod:

markieren

Delphi-Quellcode:

			  if Value mod 1000 > 0 then //1000 soll ja nich 2000 werden *g*

    Result := Value + (1000 - (Value mod 1000) );

**glkgereon**

das sollte er doch selber finden mennesch....

ausserdem: keine komplettlösungen

ich poste nie welche

**nailor**

der code ist immer noch keine komplettlösung, weil bei eingabe von ner 1000er zahl verreckt er, so wie er ist.

**glkgereon**

och jaa.......aber das is zu einfach.......er muss doch dann nur die übergebene zahl zurückgeben.....

Uuups

ich wollte doch keine KomplettLösungen mehr bieten

**negaH**

markieren

Delphi-Quellcode:

			Value := Trunc((Value + 999) / 1000) * 1000;

Value := (Value + 999) div 1000 * 1000;

**Matze**

Zitat von glkgereon:

das sollte er doch selber finden mennesch....

ausserdem: keine komplettlösungen

Natürlich sind hier Komplettlösungen erlaubt, man soll ja kein komplettes Programm schreiben.

werte auf nächsten 1000er runden

werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Re: werte auf nächsten 1000er runden

Forumregeln

Christian18 Registriert seit: 9. Dez 2003 Ort: Hamburg 1.279 Beiträge	#1 werte auf nächsten 1000er runden 9. Nov 2004, 15:14 Hallo, wie kann ich werte auf den nächsten tausender runden??? also wenn der wert 1 dann 1000 wenn der wert 1003 dann 2000 wenn der wert 10100 dann 11000. Wie mache ich das??? mfg christian18
	Zitat

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#2 Re: werte auf nächsten 1000er runden 9. Nov 2004, 15:16 durch tausend, runden, mal tausend Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#3 Re: werte auf nächsten 1000er runden 9. Nov 2004, 15:20 auf runden! ich würde es so machen: Result:=(trunc(Value/1000)+1)1000; also durch tausend nachkommastellen abschneiden plus 1 (AUFrunden) mal tausend kleiner fehler für dich: wenn die zahl 1000 ist, käme 2000 raus.... is aber nicht schwer »Unlösbare Probleme sind in der Regel schwierig...«*
	Zitat

Nothine Registriert seit: 3. Jul 2004 Ort: Mülheim an der Ruhr 198 Beiträge Delphi 5 Enterprise	#4 Re: werte auf nächsten 1000er runden 9. Nov 2004, 15:44 oder solange du mit ordinalen werten arbeitest mit mod: markieren Delphi-Quellcode: if Value mod 1000 > 0 then //1000 soll ja nich 2000 werden g Result := Value + (1000 - (Value mod 1000) ); if ThisPost is senseless then ThisPost.WasPostedBy := SomeoneElse();
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#5 Re: werte auf nächsten 1000er runden 9. Nov 2004, 15:52 das sollte er doch selber finden mennesch.... ausserdem: keine komplettlösungen ich poste nie welche »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

nailor Registriert seit: 12. Dez 2002 Ort: Karlsruhe 1.989 Beiträge	#6 Re: werte auf nächsten 1000er runden 9. Nov 2004, 16:47 der code ist immer noch keine komplettlösung, weil bei eingabe von ner 1000er zahl verreckt er, so wie er ist. Michael N. http://nailor.devzero.de/code/sharpmath/testing/ --- Tests, Feedback, Anregungen, ... aller Art sehr willkommen! ::: don't try so hard - it'll happen for a reason :::
	Zitat

glkgereon Registriert seit: 16. Mär 2004 2.287 Beiträge	#7 Re: werte auf nächsten 1000er runden 9. Nov 2004, 17:05 och jaa.......aber das is zu einfach.......er muss doch dann nur die übergebene zahl zurückgeben..... Uuups ich wollte doch keine KomplettLösungen mehr bieten »Unlösbare Probleme sind in der Regel schwierig...«
	Zitat

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#8 Re: werte auf nächsten 1000er runden 9. Nov 2004, 19:08 markieren Delphi-Quellcode: Value := Trunc((Value + 999) / 1000) * 1000; Value := (Value + 999) div 1000 * 1000;
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#9 Re: werte auf nächsten 1000er runden 9. Nov 2004, 19:18 Zitat von glkgereon: das sollte er doch selber finden mennesch.... ausserdem: keine komplettlösungen Natürlich sind hier Komplettlösungen erlaubt, man soll ja kein komplettes Programm schreiben.
	Zitat