---

Hallo VB.net-Experten,

ich versteh meine Kiste nicht.

Ich bekomme durch eine Berechnung einen Double-Wert, den ich dann in Abhängigkeit von seiner Größe auf bestimmte Nachkommastellen runden will. Im Prinzip ganz einfach, in der Praxis klemmts.

Hier mein bisheriger Code:

Code:

---

Sub Berechne()
        Dim dblEndgewicht As Double
        Dim dblGewicht As Double
        Dim test As Double
        'Berechnet den endgültigen Wert aus dem Inhalt von tbGewicht und dem ausgewählten Zuschlag
        dblGewicht = CDbl(tbGewicht.Text)
        dblEndgewicht = dblGewicht + dblGewicht * Zuschlag(lbZuschlaege.SelectedIndex)

        'runden:
        Select Case dblEndgewicht
            Case dblEndgewicht > 1 And dblEndgewicht <= 10
                lblErgebnis.Text = Format(dblEndgewicht, "#,#0.00") + "0"
            Case dblEndgewicht > 10.0 And dblEndgewicht <= 50.0
                lblErgebnis.Text = Format(dblEndgewicht, "#,#0.0") + "00"
            Case dblEndgewicht > 50
                lblErgebnis.Text = Format(dblEndgewicht, "#0") + ",000"
            Case Else
                lblErgebnis.Text = Format(dblEndgewicht, "#,#0.000")
        End Select

        'Ergebnis in Zwischenablage:
        My.Computer.Clipboard.SetText(lblErgebnis.Text)
    End Sub

---

Das Problem: Egal, was für ein Wert in dblEndgewicht steht, ich lande immer im "Case Else"-Zweig.
Versteh die Welt nicht mehr, brauch ich für Double-Vergleiche andere Operatoren?

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Winzige Syntaxproblemchen?

Statt

Code:

---

Case dblEndgewicht > 1 And dblEndgewicht <= 10

---

ein

Code:

---

Case 1 To 10

---

oder als Beispiel für die nächsten Zeile

Code:

---

Case Is > 10# And dblEndgewicht <= 50#

---

verwendet, läuft's.
Hilft Dir das weiter?

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nach Case kann entweder ein Wert stehen, mehrere Werte durch Kommata getrennt oder zwei Werte mit allen Zwischenwerten mit einem To verbunden oder auch Is und ein Vergleichsoperator.

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Select Case True
            Case (dblEndgewicht > 1 AndAlso dblEndgewicht <= 10)
                lblErgebnis.Text = Format(dblEndgewicht, "#,#0.00") + "0"
            Case (dblEndgewicht >= 10 AndAlso dblEndgewicht <= 50)
                lblErgebnis.Text = Format(dblEndgewicht, "#,#0.0") + "00"
            Case (dblEndgewicht > 50)
                lblErgebnis.Text = Format(dblEndgewicht, "#0") + ",000"
            Case Else
                lblErgebnis.Text = Format(dblEndgewicht, "#,#0.000")
        End Select

---

wäre ebenfalls eine Variante.

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Asche über mein Haupt!
Die Syntax Case dblEndgewicht > ... ist natürlich Unsinn.

Die Variante

Code:

---

Case 1 To 10

---

usw. funktioniert zwar gundsätzlich, hier sind die Grenzen aber immer mit drin, passt mir also nicht.

Code:

---

Case Is > 10# And dblEndgewicht <= 50#

---

funzt nicht

Aber der letzte Vorschlag von Patrick ist der Hammer 

funktioniert prächtig, man muss wohl ab und an von hinten denken!

Herzlichen Dank! 

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus

Wegen den unterschiedlichen Dezimaltrennzeichen, würde ich es so schreiben:

Code:

---

Select Case True
    Case (dblEndgewicht > 1 AndAlso dblEndgewicht <= 10)
        lblErgebnis.Text = Math.Round(dblEndgewicht, 2).ToString("#,#0.000")
    Case (dblEndgewicht > 10 AndAlso dblEndgewicht <= 50)
        lblErgebnis.Text = Math.Round(dblEndgewicht, 1).ToString("#,#0.000")
    Case (dblEndgewicht > 50)
        lblErgebnis.Text = Math.Round(dblEndgewicht, 0).ToString("#,#0.000")
    Case Else
        lblErgebnis.Text = Math.Round(dblEndgewicht, 3).ToString("#,#0.000")
End Select

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

[Diese Nachricht wurde von HenryV am 25. Okt. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Henry: Auch das ist ein guter berechtigter Hinweis.

Da ich jedoch inzwischen nicht nur runden, sondern immer aufrunden muss, sieht's jetzt so aus:

Code:

---

  Sub Berechne()
        Dim dblEndgewicht As Double
        Dim dblGewicht As Double
        Dim Faktor As Integer
        'Berechnet den endgültigen Wert aus dem Inhalt von tbGewicht und dem ausgewählten Zuschlag
        dblGewicht = CDbl(tbGewicht.Text)
        dblEndgewicht = dblGewicht + dblGewicht * Zuschlag(lbZuschlaege.SelectedIndex)
        'runden:
        Select Case True
            Case (dblEndgewicht > 1 AndAlso dblEndgewicht <= 10)
                Faktor = 1000
            Case (dblEndgewicht > 10 AndAlso dblEndgewicht <= 50)
                Faktor = 100
            Case (dblEndgewicht > 50)
                Faktor = 10
            Case Else
                Faktor = 1
        End Select
        ' Auf definierte Dezimalstelle aufrunden
        dblEndgewicht = (Math.Ceiling(dblEndgewicht * Faktor)) / Faktor

        lblErgebnis.Text = Format(dblEndgewicht, "#,#0.000")

        'Ergebnis in Zwischenablage:
        My.Computer.Clipboard.SetText(lblErgebnis.Text)
    End Sub

---

Herzlichen Dank noch mal an die Runde für die prompte Hilfe! 

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP