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:

Delphi-Quellcode:

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:

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

ausserdem: keine komplettlösungen

ich poste nie welche :angel2: :zwinker:

[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 :shock:
ich wollte doch keine KomplettLösungen mehr bieten :mrgreen: :zwinker:

[negaH]

Delphi-Quellcode:

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

[Matze]

Zitat:

Zitat von glkgereon

das sollte er doch selber finden mennesch.... :wall:

ausserdem: keine komplettlösungen

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