Formato con decimales

29/04/2010 - 17:43 por Jose Dubonnet | Informe spam
Hola a tod@s,

Tomando un valor con decimales, como ejemplo 20,03 necesito convertirlo a
un campo de texto con una logitud de 10 caracteres, eliminar el símbolo ','
y completar a la izquierda con ceros. Es decir que quede del siguiente modo
0000002303.

Gracias de antemano por la ayuda.
 

Leer las respuestas

#1 José Mª Fueyo
29/04/2010 - 17:56 | Informe spam
Hola
Utiliza ésta función

<pego>
Public Function FormatearDecimales(dNum As Double) As String
Dim sIntermedio As String
sIntermedio = Right("0000000000" & Replace(CStr(dNum), ",", ""),
10)
FormatearDecimales = sIntermedio
End Function
</pego>

Salu2
José Mª Fueyo
[MS MVP Access]

Preguntas similares