' Betrag in Typ Long konvertieren unter
' Berücksichtigung der Anzahl der Nachkommastellen
Public Function SaveAsLong(ByVal Betrag As String, _
  Optional ByVal Nachkomma As Integer = 2) As Long
 
  Betrag = Trim$(Betrag)
  If Betrag <> "" Then
    If InStr(Betrag, ",") > 0 Then _
      Mid$(Betrag, InStr(Betrag, ","), 1) = "."
    Betrag = Format$(Int(Val(Betrag) * Val("1" + _
      String$(Nachkomma, "0")) + 0.5))
  End If
 
  SaveAsLong = Val(Betrag)
End Function
 
' Betragseingabe formatieren
Public Function Format_Decimal(sValue As String, _
  Optional ByVal nDecimals As Integer = 2) As String
 
  Dim nBetrag As Double
 
  nBetrag = Int(Val(Replace(sValue, ",", ".")) * 10 ^ nDecimals)
  Format_Decimal = Format$(nBetrag / 100, _
    "0." + String$(nDecimals, "0"))
End Function