I have dificulties with format of n

[Guest_imported]

I have dificulties with format of number in American English Ex: 64,924,332.99

And brazilian format Ex: 64.924.332,99



Do you have an easy way to transform english numbers to brazilian numbers?

Thank you in advance

 

[MichaelRed]

look up decimal seperator in help. International settings for numbers and dates are accomodated in Me. Access.

MichaelRed
mred@att.net

There is never time to do it right but there is always time to do it over

 

[Guest_imported]

aqui está como eu uso:

Function numFmtUsToNum(arg)
Dim x, a, tmp
arg = stripchar(arg, ",&quot
For x = 1 To Len(arg)
a = Mid(arg, x, 1): If a = "," Then a = "."
tmp = tmp & a
Next
If IsNumeric(tmp) Then numFmtUsToNum = Val(tmp) Else numFmtUsToNum =
Null
End Function
Function stripchar(arg, ch)
Dim x, tmp, a
For x = 1 To Len(arg)
a = Mid(arg, x, 1)
If a <> ch Then tmp = tmp & a
Next
stripchar = tmp
End Function

'? numFmtUsToNum(&quot;200,000,000.11&quot
' 200000000,11

 

[MichaelRed]

Hmmmmmmmmmm, want to SEE the CODE?

For the First example:

Public Function basUs2Brazil(ValIn As String) As String

    '? basUs2Brazil("64,924,332.99")
    '64.924.332,99

    Dim MyStr(1) As String

    MyStr(0) = Replace(ValIn, ",", "!")
    MyStr(1) = Replace(MyStr(0), ".", ",")
    MyStr(0) = Replace(MyStr(1), "!", ".")

    basUs2Brazil = MyStr(0)

End Function

The second (leaves out the Original Commas instead or replacing with dots:

Public Function basUs2BrazilII(ValIn As String) As String

    '? basUs2BrazilII("200,000,000.11")
    ' 200000000,11

    Dim MyStr(1) As String

    MyStr(0) = Replace(ValIn, ",", "")
    MyStr(1) = Replace(MyStr(0), ".", ",")

    basUs2BrazilII = MyStr(1)
    
End Function

MichaelRed
mred@att.net

There is never time to do it right but there is always time to do it over

 

[Guest_imported]

Thank you very much for your help.