Imports System
Imports Microsoft.VisualBasic
Module DecimalToU_Int32Demo
Sub DecimalToU_Int32( argument As Decimal )
Dim Int32Value As Object
Dim UInt32Value As Object
Try
Int32Value = Decimal.ToInt32( argument )
Catch ex As Exception
Console.WriteLine( ex )
End Try
Try
UInt32Value = Decimal.ToUInt32( argument )
Catch ex As Exception
Console.WriteLine( ex )
End Try
Console.WriteLine( Int32Value )
Console.WriteLine( UInt32Value )
End Sub
Sub Main( )
DecimalToU_Int32( 123.999D )
End Sub
End Module