Module DecimalToSgl_DblDemo
Public Sub DecimalToSgl_Dbl(argument As Decimal)
Dim SingleValue As Single
Dim DoubleValue As Double
' Convert the argument to a Single value.
SingleValue = CSng(argument)
' Convert the argument to a Double value.
DoubleValue = CDbl(argument)
Console.WriteLine(SingleValue)
Console.WriteLine(DoubleValue )
End Sub
Public Sub Main( )
DecimalToSgl_Dbl(123d)
End Sub
End Module