Contact: aviboots(AT)netvision.net.il
41,683 questions
54,351 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim dec As Decimal = 23.837D Dim dbl As Double = CDbl(dec * 3.14D * 0.005D) Console.WriteLine(dbl) End Sub End Module ' run: ' ' 0.3742409 '