Funcao Format()

[Lello]

Dim Var1 As String

Dim Var2 As String

Var1 = "123,65"

Var2 = "867,01"

não Aparece as Casas Decimais Depois q uso a Funcao Format ()

Debug.Print "Funcao CCUR"

Debug.Print Format(CCur(Var1), "#######0,00")

Debug.Print Format(CCur(Var2), "#######0,00")

Debug.Print "Funcao Val"

Debug.Print Format(Val(Var1), "#########0,00")

Debug.Print Format(Val(Var2), "#########0,00")

Debug.Print "Funcao CDbl"

Debug.Print Format(CDbl(Var1), "#########0,00")

Debug.Print Format(CDbl(Var1), "#########0,00")

não Consegui Entender Isto ainda , No Help Do Vb diz o seguinte:

Você deve utilizar as funções de conversão de tipo de dados em vez de Val para fornecer conversões de dados internacionais de um tipo de dados para outro. Por exemplo, quando você utiliza CCur, separadores decimais diferentes, separadores de milhares diferentes e várias opções de moeda são reconhecidas apropriadamente dependendo da definição da localidade em seu computador.

Mas não fiz Funcionar, alguém pode Me Ajudar ?

[Lello]

Descobri o que estava errado , format(Variavel,"######,00" )

o correto e Format(Variavel,"######.##")

Mas Meu Problema e que eu pego Estes Valores de um Arquivo Texto de

outro Software e ele separa as casas com "." e não "," , posso usar a funcao Replace(Variavel,".",",") quando o Windows estiver configurado o tipo de Numeros "," e quando estiver com "." Vai Ocorrer erro .

como faço para corrigir este eventual erro ?

Muito obrigado

[Graymalkin]

Vai ser sempre ponto (.) no argumento do Format(), independente da configuração do Windows. O resultado da formatação é que vai obedecer a configuração. Então, você pode sim usar o Replace() como você exemplificou.

Abraços,

Graymalkin