|
|
Postada em 18/06/2009 22:27 hs
Olá!!!Boa Noite... Por favor gostaria da ajuda de vcs em como poderia fazer, p/a pegar esta simples função q fiz e implementá-la, com a opção de especificar, por exemplo, 2 ou 3 ou 4 casas decimais. Exemplo : o nº 15 com três casas decimais 15.000 , ou 15 com duas casas 15.00. A função q fiz força sempre, 4 casas, gostaria de escolher + ou - menos assim: virgulaponto(15,3) o resultado seria 15.000 Function VirgulaPonto(txt As Double) As String
Dim result As String result = Replace(Format(txt, "###,##0.0000"), ",", ".")
VirgulaPonto = result
End Function Agradeço desde já... |
|
|
|
|
|
Maxcim
|
GUARULHOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2009 23:10 hs
Private Function ConveteNumero(Dnum As Double, Ncasa%) As String
Dim sNun$
sNun = FormatNumber(Dnum, Ncasa)
sNun = Replace(sNun, ".", "") 'aqui remove ponto divisor de milhar ( no caso da NFE)
sNun = Replace(sNun, ",", ".") ' aqui troca virgula por ponto
ConveteNumero = sNun
End Function |
|
|
|
|
|
Postada em 19/06/2009 08:39 hs
Bom dia.
Outra alternativa seria:
Function VirgulaPonto(txt As Double, iCasas As Integer) As String
Dim result As String, sFormato As String
sFormato = "###,##0." & String(iCasas, "0")
result = Replace(Format(txt, sFormato), ",", ".")
VirgulaPonto = result
End Function
Até mais.
|
|
|
|
|
