Hallo ich bin relativ neu in VB (und hier im Forum) und ich hoffe ihr könnt mir helfen. Also ich suche ein Code der mir diese Funktion verienfacht:

100 => 500
155 => 500
365 => 500
298 => 500
500 => 500
501 => 1000
896 => 1000
1498 => 1500
1354 => 1500
1001 => 1500

und so weiter..

also im prktischen sinne:
1 bis 500 = 500
500 bis 1000 = 1000
1000 bis 1500 = 1500
...
aber ich ich möchte keine 6000 If-Befehle benutzen oO
könnt ihr mir weiterhelfen bitte ?

mfg socke

Weiß nicht ob es genau so funktioniert, aber ien Verusch wäre es wert



Oder willst du noch mehr Rundungszahlen haben? Dann würde sich ein Array anbieten, in denen du die Limits angibst und eine Funktion dann überprüft



So oder so ähnlich, denke das dürfe anreize liefern.

danke für die schnelle Antwort ich probiers mal eben aus ob ichs hinbekomme.

msg socke

---

hey danke habs grad ausprobiert (den ersten code) funktionert einwandfrei
danke nochmal jz kann ich endlich weitercode

mfg socke

kürzer wäre:

textbox2.text = ((int(cint(textbox1.text-1)/500)+1)*500).tostring

gruss mono

Ich weiß nicht ob ich das richtig verstanden habe aber ich glaube du meinst sowas:

@djsky:

dieSocke3000 schrieb:

aber ich ich möchte keine 6000 If-Befehle benutzen oO

Vorher mal gucken und Überlegen, dein Beispiel ist das wohl Schlechteste. Zudem ist das Thema bereits erledigt, somit war dein Post mehr als nur überflüssig.