[Resolvido] Formatoção de numero

[The Jhunior 0]

Olá.

 

Estou usando um calculador de frete e o retorno do valor do frete vem assim. 11.1 que seria R$ 11,10

 

Usei o FormatNumber(frete,2) e o FormatCurrency(frete) e ambos retornaram 110,00

 

Alguem pode me ajudar?

 

Obrigado.

[xanburzum 169]

MinhaMoeda = FormatCurrency(11.1)

[The Jhunior 0]

MinhaMoeda = FormatCurrency(11.1)

Obrigado pela resposta.

 

Quando coloquei MinhaMoeda = FormatCurrency(11.1) apareceu R$ 11.10

Mas quando coloco MinhaMoeda = FormatCurrency(resultado) fica 118.00

 

Veja o código

 

<%function getValorSedex( cep_origem, cep_destino, peso )

Dim Parsed(9,9)

webservice_url   = " http://webservice.uni5.net/web_frete.php"
webservice_query = "3e35e013731d9ce97131aba81d71a810" 'Chave de autenticação do WebService - Consultar seu painel de controle

set xml = Server.CreateObject ("Microsoft.XMLHTTP")
xml.open "GET", webservice_url&"?"&_
"auth="&webservice_query&"&"&_
"tipo=sedex&"&_
"formato=query_string&"&_ 
"cep_origem="& cep_origem &"&"&_
"cep_destino="& cep_destino &"&"&_
"peso="&peso, false

xml.send()

Resultado = Xml.responseText
Resultado = split( Resultado, "&")

' Montando parametros
for e = 1 To ubound( Resultado)
temporario = split( Resultado(e), "=")

Parsed(e,0) = temporario(0) 
Parsed(e,1) = replace( temporario(1), "+", " ")

next

getValorSedex = Parsed(3,1)

end function


cep_origem  = "02084-040"
cep_destino  = "03666-020"
peso  = "1000"
resultado = getValorSedex( cep_origem, cep_destino, peso )
FormatarEmNumber = FormatCurrency(resultado)
response.write FormatarEmNumber%>

[xanburzum 169]

coloca no inicio do code

 

Session.LCID = 1046

[The Jhunior 0]

coloca no inicio do code

 

Session.LCID = 1046

 

Tentei e não deu certo

 

A solução que encontrei foi dividir por 10

resultado = resultado / 10

 

Mas sei que não é a forma correta, vou deixar assim até encotrar um solução

 

Obrigado pela ajuda.