Thema: Label-Zahlenwerte berechnen

Home

Abbildung - Label-Zahlenwerte berechnen

Prozedur: txtPercent_Exit
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Label-Zahlenwerte berechnen
Ablaufbeschreibung:
- Variablendeklaration
- Aufschrift des ersten Labels zu Double konvertiert an eine Variable übergeben
- Double-Variable unter Einsatz des zu Double konvertierten TextBox-Wertes neu berechnen
- Zu String konvertierten Double-Wert konvertiert mit zwei Nachkommastellen in das zweite Label eintragen

Code:


Private Sub txtPercent_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   Dim dValue As Double
   dValue = CDbl(Label1.Caption)
   dValue = dValue - ((CDbl(txtPercent.Text) / 100) * dValue)
   Label2.Caption = Format(dValue, "0.00")
End Sub