Imports System

Imports Microsoft.VisualBasic

​

​

Public Module Module1

    Public Sub Main()

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

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

        Dim daysAgo = DateDiff(DateInterval.Day, date1, date2)

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

        Console.WriteLine(msg) ' Last date was 0 day(s) ago on 3/1/2017. 

    End Sub

End Module