Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        dim LastPaymentDate As Date = "10/11/2019"

        Console.WriteLine("Last Date:" & LastPaymentDate)

        Dim startDate As Date = "6/14/2019"

        Console.WriteLine("startDate: " & startDate)

        If startDate > LastPaymentDate Then Console.WriteLine(0)

        Dim daysRemaining = Math.Abs(DateDiff(DateInterval.Day, startDate, LastPaymentDate))

        Console.WriteLine("daysRemaining: " & daysRemaining)

        If daysRemaining > 30 Then

            Console.WriteLine( Math.Floor(daysRemaining / 30) )

        Else

            Console.WriteLine(0)

       End If

        Console.WriteLine("")

    End Sub

End Module