Imports System

​

Public Class Program

    Public Shared Sub Main()

        DecimalMath()

        DecimalWithImplicitMath()

        DoubleMath()

    End Sub

​

    Public Shared Sub DoubleMath()

        Dim myDuration As Integer = 60

        Dim myRatio As Double = 1/60

        Dim myRate As Decimal = 0.0017

        Dim myCharge As Decimal = (myDuration * myRate * myRatio)

        Console.WriteLine($"{NameOf(DoubleMath)}: {myCharge}")

    End Sub

​

    Public Shared Sub DecimalWithImplicitMath()

        Dim myDuration As Integer = 60

        Dim myRatio As Decimal = 1/60 'Without the D here for a decimal literal, it is a double, and then converted to a Decimal it corrupts the value

        Dim myRate As Decimal = 0.0017

        Dim myCharge As Decimal = (myDuration * myRate * myRatio)

        Console.WriteLine($"{NameOf(DecimalWithImplicitMath)}: {myCharge}")

    End Sub

    Public Shared Sub DecimalMath()

        Dim myDuration As Integer = 60

        Dim myRatio As Decimal = 1/60D

        Dim myRate As Decimal = 0.0017

        Dim myCharge As Decimal = (myDuration * myRate * myRatio)

        Console.WriteLine($"{NameOf(DecimalMath)}: {myCharge}")

    End Sub

End Class