Wer erklärt mir die function
ray
in einem Projekt habe ich diese Funktion, die bewirkt, dass in eine TextBox nur Zahlen bis 999,99 eingeben werden können. Kann mir mal jemand erklären wie das geht:
Private Function IstGanzzahl(tbEuro As String) As Boolean
If IsNumeric(tbEuro) And _
InStr(tbEuro, ".") = 0 Then
IstGanzzahl = True
Else
IstGanzzahl = False
End If
End Function
__________________________________________________________________
Hinter dem Button auf einer frm:
If IstGanzzahl(tbEuro) = False Then
MsgBox "Betrag im falschen Formal oder nicht als Zahl eingeben."
tbEuro.SetFocus
End If
Viele Grüße aus Hamburg
Ray