Formatnumber

[mr.jango]

Amigos, não consigo descobrir o erro, por favor alguém me ajude, segue a baixo a função o valor passado é 1055,55 o resultado deveria ser 1.055,55 mas está saindo 1.050,.55 .(com virgula e ponto)

'Mostrar Moeda Formato Brasileiro

Function FormataMoedaForm(valor)

dim sp, sv, v, p,

sp = Mid(FormatNumber(1000,0,-1,0,-1),2,1)

sv = Mid(FormatNumber(0.1,1,-1,0,-1),2,1)

if IsNumeric(valor) then

'LINHA ONDE ESTA O ERRO

v = FormatNumber(valor, 2, 0, -1, -1) else

v = FormatNumber(0,2,-1,0,-1)

end if

v = Replace(v, sp, "p")

v = Replace(v, sv, "v")

v = Replace(v, "p", ".")

v = Replace(v, "v", ",")

FormataMoedaForm = v

End Function

valeu.

[explore]

Tenta Assim:

if IsNumeric(valor) then
v = FormatNumber(valor(2, 0, -1, -1)) else
v = FormatNumber(0,2,-1,0,-1)
end if

Falo!!!!!!!!!!!!!

[mr.jango]

Não deu certo!

[explore]

Qual o erro???????

[mr.jango]

Wrong number of arguments or invalid property assignment

[explore]

Function FormataMoeda(valor)
  sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1)
  sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1)
  If isNumeric(valor) Then
    v = FormatNumber (valor, 2, -1, 0, -1)
  Else
    v = FormatNumber (0, 2, -1, 0, -1)
  End If
  v = Replace(v, sp, "p")
  v = Replace(v, sv, "v")
  v = Replace(v, "p", ".")
  v = Replace(v, "v", ",")
  FormataMoeda = v
End Function 

Falo!!!!!!!!!!!!

[TIO CARNEGO]

Alguém tem algo contra

FormatCurrency(Valor) ?

[explore]

Alguém tem algo contra

FormatCurrency(Valor) ?

Não entendi???

[TIO CARNEGO]

Teste = FormatCurrency(15487)

Teste será string igual a "R$ 15.487,00"

Isso se o servidor tiver as configurações regionais do Brasil ou seja todos servidores dos serviços de hospedagem decentes.

[smez]

olá tenho um sistema de login que desenvolvir, se quizer posso passar pra você