Hallo liebe VB-Gemeinde,
ich habe ein Problem. Ich möchte gerne ein Offset auf bestimmte Werte in einer Textdatei draufrechnen und dann abspeichern. Der Punkt besteht darin dass die Werte immer auf die nächste ganze Zahl gerundet werden. Ich möchte aber dass er immer auf die nächste 10 Zahl rundet.
Beispiel:
ich habe 100.00 in der Datei stehen und will dass er mir da 15% draufrechnet wären ja logischerweise 115, ist ja auch richtig. Ich will aber dass er dann auf 120 rundet und bei 14% dann auf 110.00, bei 26 Prozent auf 130 usw.
Das ist der Code den ich habe, der auch funktioniert aber eben nur auf die nächste größere bzw. kleinere Ganzzahl.
habt ihr ne idee?
ich habe ein Problem. Ich möchte gerne ein Offset auf bestimmte Werte in einer Textdatei draufrechnen und dann abspeichern. Der Punkt besteht darin dass die Werte immer auf die nächste ganze Zahl gerundet werden. Ich möchte aber dass er immer auf die nächste 10 Zahl rundet.
Beispiel:
ich habe 100.00 in der Datei stehen und will dass er mir da 15% draufrechnet wären ja logischerweise 115, ist ja auch richtig. Ich will aber dass er dann auf 120 rundet und bei 14% dann auf 110.00, bei 26 Prozent auf 130 usw.
Das ist der Code den ich habe, der auch funktioniert aber eben nur auf die nächste größere bzw. kleinere Ganzzahl.
VB.NET-Quellcode
- txtGrundwert.Text = Replace(txtGrundwert.Text, ".", ",")
- Dim percent As Integer = CInt(txtPercent.Text)
- Dim grundwert As Integer = CInt(txtGrundwert.Text)
- Dim ergebnis As Integer = CInt(grundwert * (percent / 100))
- Dim offset As Integer = ergebnis + grundwert
- txtErgebnis.Text = CType(offset, String)
- Dim betrag As Double = CDbl(txtErgebnis.Text)
- txtgerundet.Text = CType(Math.Round(betrag, 0), String)
- txtgerundet.Text = String.Format("{0:F2}", betrag)
- txtgerundet.Text = Replace(txtgerundet.Text, ",", ".")
habt ihr ne idee?