FormatNumber sobre un Double

flyk · #1 (**permalink**) 27/02/2005, 10:25

Hola quiero poder marcar los dos ultimos valores de una cadena como los decimales. Ejm:

Dim valor As Double
valor = Mid(str_linea, 15, 8) 'valor=43361716

y yo quiero que quede así:

valor = 433.617,16

¿Cómo le puedo dar formato?

GRACIAS

mamon · #2 (**permalink**) 27/02/2005, 23:24

cadena1 = left(valor,len(valor)-2)
cadena2 = right(valor,2)

valor_final = cadena1 & "," & cadena2

flyk · #3 (**permalink**) 28/02/2005, 05:02

Esa es la opción que habia pensado realizar. De momento tengo que probarlo en casa, así que ya te diré. Gracias.

flyk · #4 (**permalink**) 04/03/2005, 04:13

No era eso tras probarlo.

Es tan simple como dividirlo entre 100

mamon · #5 (**permalink**) 04/03/2005, 20:05

jajajajja.. si pes no? jajajja.. tienes razón.. solo divídelo entre 100! jajajja