En una publicación anterior, demostré varias formas en que podríamos extraer el número completo de un valor decimal:
Extracción del número completo de un decimal en VBA
A veces deseamos extraer el número completo de un valor decimal. Entonces, digamos que está haciendo un aritmático como: 43/5 que devuelve un valor de: 8.6 y desea extraer únicamente el número completo, por lo que desea obtener: 8 Aquí hay algunas técnicas que puede emplear en VBA.
Hoy, pensé que deberíamos examinar la otra cara de ese mismo problema y ver cómo podemos recuperar solo la porción decimal de un número (o operación matemática) usando VBA.
Obviamente, hay múltiples formas en que podríamos atacar este problema, pero lo más simple probablemente sería obtener el número completo y restarlo del valor original, dejándonos con la porción decimal. Entonces, si ponemos ese concepto en código, obtenemos:
Function GetDecimal(dNumber As Double) As Double
GetDecimal = dNumber - Fix(dNumber)
End Functionque los resultados
GetDecimal(43/5) ' => 0.6
GetDecimal(-43/5) ' => -0.6
GetDecimal(8.6) ' => 0.6
Es así de simple.
