workaround for CCur from string

[berndnoetscher]

Just found a bug in CCur. Here is the workaround.

Function myCCur(s As String)
Dim d As Double = CDbl(s)
Dim c As Currency = d
c = c - Int(d) * 2
Return c
End Function


betrag = myCCur("9931.2349")

[berndnoetscher]

Just found a bug in CCur. Here is the workaround.

Function myCCur(s As String)
Dim d As Double = CDbl(s)
Dim c As Currency = d
c = c - Int(d) * 2
Return c
End Function


betrag = myCCur("9931.2349")

Update:

Code: Select all

Function myCCur(s As String)
  Dim d As Double = CDbl(s)
  Dim c As Currency = d
  if d < 0 then
  else
    c = c - Int(d) * 2
  end if
  Return c
End Function