Convertir de Decimal a entero

28/09/2003 - 19:13 por Rene | Informe spam
Me pueden decir como convertir un numero decimal a entero
ejemplo : 123.255 a 000123255

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
29/09/2003 - 06:15 | Informe spam
Hola, Rene !

... como convertir un numero decimal a entero ejemplo : 123.255 a 000123255



==> no indicas si 'solo' tres decimales [siempre] o... 'las que sean' :)
para los ceros [a la izquierda] podrias 'aplicar' [un estilo con] un formato numerico de "000000000"

1) suponiendo que el numero [123.255] esta en 'a1' [ya sea como dato 'directo' o 'resultado' de una formula]
a) 'sustituye' el simbolo de decimales [por 'nada'] y lo conviertes a valor
[p.e.] =Valor(Sustituir(a1,".",""))
b) multiplica 'el numero' por 10 'elevado' a la potencia 'n_decimales' [si hay decimales]
[p.e.] ¡*10^(Largo(a1)-(Largo(Entero(a1))+(Largo(a1)>Largo(Entero(a1)))))

2) si es un dato que se introduce 'manualmente' y quieres que se 'auto-convierta' cada vez que se cambia
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("a1") Then Exit Sub
If Target.HasFormula Then Exit Sub
If Val(Target) = 0 Then Exit Sub
Dim sL As String
sL = Application.International(xlDecimalSeparator)
On Error GoTo Salir
Application.EnableEvents = False
Target = Replace(Target, sL, "") ' para XL-'97 cambia esta linea a: Target = Application.Substitute(Target, sL, "")
Salir:
Application.EnableEvents = True
End Sub
_______
Saludos,
Héctor.
MS-MVP

P.D. [si puedo preguntarte...] ¿porque 'preguntas en ingles' en un grupo de noticias en español? ;)
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida