Problem bei der Berechnung eines Wertes
19.06.2022 16:11:31
piedy25
Ich habe ein Textfeld lblGesamt, in dem ein Gesamtpreis angezeigt wird der durch eine Kostenfunktion berechnet wird. Man kann über ein Kombinationsfeld die Zahlungsart Bar auswählen und dann sich dann das Wechselgeld berechnen lassen. Dazu trägt man über ein eingefügtes Tastenfeld einen Wert in das Textfeld lblGegeben ein. Es funktioniert soweit gut, aber wenn nun der Gesamtbetrag unter 100 Euro liegt und der Wert bei Gegeben 100 Euro oder Mehr ist funktioniert es nicht, wenn der Wert bei Gesamt und bei Gegeben jedoch wieder über 100 Euro ist funktioniert es wieder. Ich habe leider keine Ahnung mehr woran es noch liegen kann.
Private Sub cmdZahlen_Click() 'Zahlung ausführen
lblGegeben.Caption = Format(lblGegeben, "#,##0.00")
If (cboZahlungsart.Text = "Bar") And lblGegeben.Caption = lblGesamt.Caption Then
lblWechselgeld.Caption = Format(lblGegeben.Caption - (sum), "#,##0.00")
lblGegeben.BackColor = RGB(245, 245, 245)
lblGesamt.BackColor = RGB(50, 205, 50)
End If
End Sub
Function Kostenfunktion() 'Funktion zur Berechnung des Nettobetrags, der Steuer und des Gesamtbetrags
sum = 0
For i = 0 To lstPreis.ListCount - 1 Step 1
sum = sum + CDbl(lstPreis.List(i))
Next i
Steuer = 1.19
lblGesamt.Caption = Format((sum), "#,##0.00")
lblSteuer.Caption = Format((sum) - ((sum) / Steuer), "#,##0.00")
lblNetto.Caption = Format(((sum) / Steuer), "#,##0.00")
End Function