funciones para extraer la parte entera y la parte decimal de un numero

pco_barny
29 de Enero del 2004
por ejemplo si tengo un 1,23 quiero una función que me devuelva el 1 y otra que me devuelva el 23.
Un saludo y gracias.

Baltasar
29 de Enero del 2004
int(X) devuelvela parte entera de X

para obtener los decimales, hay que usar un "truco":
1,23-1=0,23, por lo tanto . . .

X-int(X) devuelve sólo los decimales

Saludos

sdemingo
29 de Enero del 2004
Hola,

puedes hacerlo así:

Dim arrayNumero() as String
Dim entera as integer
Dim decimal As integer
arrayNumero = Split("1234,4567", ",", -1, vbBinaryCompare)
entera = Cint(arrayNumero(0))
decimal = Cint(arrayNumero(1))

Saludos
sdemingo