Module DecimalToU_Int64Demo
Public Sub DecimalToU_Int64(argument As Decimal)
Dim Int64Value As Object
Dim UInt64Value As Object
Try
Int64Value = CLng(argument)
Catch ex As Exception
Console.WriteLine(ex.GetType().Name)
End Try
' Convert the argument to a ulong value.
Try
UInt64Value = CULng(argument)
Catch ex As Exception
Console.WriteLine(ex.GetType().Name)
End Try
Console.WriteLine(Int64Value)
Console.WriteLine(UInt64Value)
End Sub
Public Sub Main( )
DecimalToU_Int64(123d)
End Sub
End Module