Question

How to convert decimal to double in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub Main()
        Dim dec1 As Decimal = 87236.908D
        Dim dec2 As Decimal = 0.43071D
        Dim dec3 As Decimal = -7612.8702D
		
        Dim d1 As Double = Decimal.ToDouble(dec1)
        Dim d2 As Double = Decimal.ToDouble(dec2)
        Dim d3 As Double = Decimal.ToDouble(dec3)
		
        Console.WriteLine(d1)
        Console.WriteLine(d2)
        Console.WriteLine(d3)
    End Sub
End Class



' run:
'
' 87236.908
' 0.43071
' -7612.8702
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim x As Decimal = 21672.747D
        
		Dim d As Double = CDbl(x) / 20.0R
		
        Console.Write(d)
    End Sub
End Class




' run:
'
' 1083.63735
'

 

70+ SQL courses for beginners and professionals