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