Imports Microsoft.VisualBasic
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(Math.Truncate(sixtyfivedays))