Imports System
Imports Microsoft.VisualBasic
Module DecimalFromDoubleDemo
Sub DecimalFromDouble( argument As Double )
Dim decValue As Object
' Convert the Double argument to a Decimal value.
Try
decValue = Decimal.op_Explicit( argument )
Catch ex As Exception
Console.WriteLine( ex )
End Try
Console.WriteLine( decValue )
End Sub
Sub Main( )
DecimalFromDouble( 1.234567890123E-30 )
End Sub
End Module