sexta-feira, 9 de maio de 2014

Função em Excel para trocar vírgula por ponto

Function Virgula2Ponto(Dado As Variant, CasasDecimais As Integer) As String
    Dim sDado As String
    Dim dDado As Double

    Dim PosicaoVirgula As Integer
   
    dDado = Round(Dado, CasasDecimais)
    sDado = CStr(dDado)
    PosicaoVirgula = InStr(1, sDado, ",")
    sDado = Left(sDado, PosicaoVirgula + CasasDecimais)
    Virgula2Ponto = Replace(sDado, ",", ".")
End Function