Nenhuma resposta neste tópico

[rcol36]

Estou tentando trazer do banco uma variavel do tipo varchar2 e transfoma-la em double, quando o numero vem inteiro, ele transforma numa boa mas como o numero vem por exemplo 3.5 ele da esse erro de conversão, alguem pode me dizer, se naum é possivel converter, ou onde estou errando:

CODIGO:

[codebox]Sub MontaTabRemuneracao()
Dim conexao
Dim valor

set conexao = CreateObject("ADODB.Recordset")
valor = CDbl(conexao("VALOR_ATUAL"))
Response.Write FormatCurrency(valor,2)

End Sub%>[/codebox]

Ae Galera, só para deixar como material pra quem tiver este problema:
O problema era no formato do numero, ele vinha com ponto do banco mais o FormatCurrency não conseguia formata-lo ai eu fiz este For e tranformei os pontos em virgulas, e funcionou.

Valeu
E ai vai o Codigo:

[codebox]
Sub MontaTabRemuneracao()
Dim conexao
Dim valor

set conexao = CreateObject("ADODB.Recordset")

valor = ""
For i = 1 to len(conexao("VALOR_ATUAL"))
If Mid(conexao("VALOR_ATUAL"),i,1) = "." then
valor = valor & ","
Else
valor = valor & Mid(conexao("VALOR_ATUAL"),i,1)
End If
Next

Response.Write FormatCurrency(valor,2)

End Sub%>[/codebox]

Edição feita por: Renan L. Queiroz, 03/09/2009, 16:28.