Hola qué tal,
Este es el codigo:
Código:
Function MiRedondeo(numero As Double) As Double
Dim entero As Long
Dim decima As Double
entero = Int(numero) 'Obtenemos el entero
decima = numero - entero 'Obtenemos la parte decimal
'Hacemos un condicional
If decima = 0.3 Then
MiRedondeo = 1
Else
MiRedondeo = 0
End If
End Function
Así, sin mas complicaciones lo que debería hacer es que si mi numero dado tiene un decimal igual a 0.3 ese numero se convierte en 1, pero no lo hace, bueno sí lo hace, unicamente para los numeros 0.3 y 1.3 para cualquier otro numero, digase 2.3, 33.3, 104.3 me devuelve 0 (cero).
WTH!
Me gustaría saber que pedo, porqué hace eso, como lo soluciono?
Saludos y gracias de antemano