Imports System

Imports Microsoft.VisualBasic

​

​

Public Module Module1

    Public Sub Main()

        Dim date1 As DateTime = #1/1/2017 5:00 PM#

        Dim date2 As DateTime = #11/2/2017 10:00 AM#

        Dim date3 As DateTime = #11/16/2017 10:00 AM#

        Dim daysAgo = DateDiff(DateInterval.Day, date1.Date, date3.Date)

        Dim msg = String.Format("Last date was {0} day(s) ago on {1}. ", daysAgo, date1.ToShortDateString())

        dim sixtyfivedays as double = daysAgo/65

        Console.WriteLine(msg)

​

        Console.WriteLine(Math.Truncate(sixtyfivedays))

    End Sub

End Module