Imports System
Imports Microsoft.VisualBasic
Module DecimalToSgl_DblDemo
Sub DecimalToSgl_Dbl( argument As Decimal )
Dim SingleValue As Object
Dim DoubleValue As Object
SingleValue = Decimal.ToSingle( argument )
DoubleValue = Decimal.ToDouble( argument )
Console.WriteLine( SingleValue)
Console.WriteLine( DoubleValue )
End Sub
Sub Main( )
DecimalToSgl_Dbl( 123D )
End Sub
End Module