Dividir un 'Decimal' en VB.NET

Question

Estoy seguro de que este es un problema muy simple, pero soy nuevo en VB.NET, así que estoy teniendo un problema con él.

Tengo una variable Decimal, y necesito dividirla en dos variables separadas, una que contiene la parte entera y otra que contiene la parte fraccionaria.

Por ejemplo, para x = 12.34 terminaría con una y = 12 y una z = 0.34.

¿Existe alguna buena función integrada para hacer esto o debo intentar resolverlo manualmente?

Answer 1

Puede usar Math.Truncate(decimal) y luego restarlo del original. Sé consciente de que le dará un valor negativo para ambas partes si la entrada es decimal (por ejemplo, -1.5 => -1, -.5)

EDIT: He aquí una versión de código de Eduardo decimal que utiliza a lo largo:

Sub SplitDecimal(ByVal number As Decimal, ByRef wholePart As Decimal, _ 
       ByRef fractionalPart As Decimal) 
    wholePart = Math.Truncate(number) 
    fractionalPart = number - wholePart 
End Sub 

Answer 2

(Como dice Jon Skeet), tenga en cuenta que la parte entera de un decimal puede ser mayor que un entero, pero esta función le dará la idea.

Sub SlipDecimal(ByVal Number As Decimal, ByRef IntegerPart As Integer, _ 
        ByRef DecimalPart As Decimal) 
     IntegerPart = Int(Number) 
     DecimalPart = Number - IntegerPart 
    End Sub 

Utilice la versión de Jon si está utilizando números grandes.

Answer 3

Simplemente:

DecimalNumber - Int(DecimalNumber)