在VB.NET中拆分'Decimal'

Dim originalValue As Decimal = 12345.6789D
Dim valueString As String = originalValue.ToString()
Dim parts() As String = valueString.Split(".")

Dim integerPart As Decimal = Decimal.Parse(parts(0))
Dim fractionalPart As Decimal = Decimal.Parse("0." & parts(1))

MsgBox("整数部分：" & integerPart)
MsgBox("小数部分：" & fractionalPart)