Formato con decimales

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]

Hola,

además de la función que comenta Chema, también se podría hacer así:

Format(Str(tu_numero), "0000000000")
Saludos desde Barcelona,
Juan M. Afán de Ribera
http://accessvbafaq.mvps.org


"José Mª Fueyo" wrote:

Mostrar la cita

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]

.

Hola,

Funciona pero tengo un pequeño problema, si el valor es 20,35 tengo
0000002035 (perfecto) pero si el valor termina con decimal en cero 20,30
tengo 0000000203. Estoy creando un fichero de texto que posteriormente
importará otro programa por lo que en el último caso tendré 2,03 en vez de
20,30.

Gracias de nuevo por vuestra ayuda.

"José Mª Fueyo" escribió en el mensaje de noticias
news:
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]

Hola
Modifica el código, para usar la función format en lugar de la CStr.
Así te aseguras de obtener siempre dos cifras decimales, aunque la
segunda sea un cero

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

Salu2
José Mª Fueyo
[MS MVP Access]

Hola José Mª,

Funciona perfecto

Mil gracias.

Saludos,

J. D.

"José Mª Fueyo" escribió en el mensaje de noticias
news:
Hola
Modifica el código, para usar la función format en lugar de la CStr.
Así te aseguras de obtener siempre dos cifras decimales, aunque la
segunda sea un cero

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

Salu2
José Mª Fueyo
[MS MVP Access]