Podział "dziesiętny" w VB.NET

Question

Jestem pewien, że jest to bardzo prosty problem, ale jestem nowy w VB.NET, więc mam z tym problem.

Mam zmienną Decimal i muszę podzielić ją na dwie oddzielne zmienne, jedną zawierającą część całkowitą i jedną zawierającą część ułamkową.

Na przykład dla x = 12.34 otrzymasz wartość y = 12 i z = 0,34.

Czy jest to dobre wbudowane funkcje do wykonania tej czynności lub czy muszę spróbować wykonać ją ręcznie?

Answer 1

Można użyć Math.Truncate(decimal), a następnie odjąć je od oryginału. Należy pamiętać, że to daje ujemną wartość dla obu stron, jeśli wejście jest dziesiętny (np -1.5 => -1, -.5)

EDIT: Tutaj jest wersja kodu Eduardo, który używa całej przecinku:

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

(Jak mówi Jon Skeet), należy uważać, że część całkowita liczby dziesiętnej może być większa niż liczba całkowita, ale ta funkcja pozwoli uzyskać pomysł.

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

Użyj wersji Jon, jeśli używasz dużych liczb.

Answer 3

prostu:

DecimalNumber - Int(DecimalNumber)