Converts a Decimal to a double-precision floating-point number.
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