Hallo Leute...
ich hab nen dickes Problem...
ich hab folgende Rechnung
Private Sub cmdBerechnen_Click()
Dim Stückzahl As Integer
Dim Einzelbetrag As Double
warum Funktioniert
Me.txtRechnungsbetrag.text = Format(Summe,"Currency") nicht
wenn ichs so schreibe = Format("Summe", "Currency") schreibt er Summe
mit summe ist das bereits auf 2 Nachkommastellen gerundete Ergebnis gemeint!!!!
Wie geht der richtige Text??
Danke
Habs hinbekommen......
ich hab nen dickes Problem...
ich hab folgende Rechnung
Private Sub cmdBerechnen_Click()
Dim Stückzahl As Integer
Dim Einzelbetrag As Double
Visual Basic-Quellcode
- 'checken der Mwst
- If Me.optMwStKeine.Value = True Then
- MsgBox ("Blumen haben einen MwSt-Satz von 7 %")
- Me.optMwStKeine.Value = False
- Me.optMwSt7.Value = True
- End If
- If Me.optMwSt19.Value = True Then
- MsgBox ("Blumen haben einen MwSt-Satz von 7 %")
- Me.optMwStKeine.Value = False
- Me.optMwSt7.Value = True
- End If
- 'Stückzahlüberprüfung
- If Me.txtStückzahl.Text = "" Then
- MsgBox ("Bitte unbedingt Ihre Stückzahl angeben")
- Me.txtStückzahl.SetFocus
- Exit Sub
- End If
- 'Blumensorte
- If Me.cboProdukt.Text = "Nelken" Then
- Me.txtEinzelbetrag.Value = Format("2", "Currency")
- End If
- If Me.cboProdukt.Text = "Rosen" Then
- Me.txtEinzelbetrag.Value = Format("3", "Currency")
- End If
- If Me.cboProdukt.Text = "Gerbera" Then
- Me.txtEinzelbetrag.Text = Format("2,50", "Currency")
- End If
- If Me.cboProdukt.Text = "Tulpen" Then
- Me.txtEinzelbetrag.Text = Format("1,50", "Currency")
- End If
- If Me.cboProdukt.Text = "Sonnenblumen" Then
- Me.txtEinzelbetrag.Text = Format("5,00", "Currency")
- End If
- 'berechnen
- Dim Summe As Double
- Summe = (Me.txtStückzahl.Text * Me.txtEinzelbetrag) / 100 * 107
- Me.txtRechnungsbetrag.Text = Format$(Summe, "#,##0.00") 'funktioniert unter Office 2010 nicht
- 'wiedergabe mit Currency ebenfalls nicht möglich
- ' Currency s.o. kann nicht mit Variable erzeugt werden bei Format("Summe", "Currency") würde -> Summe in der Txt angezeigt
- End Sub
warum Funktioniert
Me.txtRechnungsbetrag.text = Format(Summe,"Currency") nicht
wenn ichs so schreibe = Format("Summe", "Currency") schreibt er Summe
mit summe ist das bereits auf 2 Nachkommastellen gerundete Ergebnis gemeint!!!!
Wie geht der richtige Text??
Danke
Habs hinbekommen......
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Angel07“ ()