[Fork] Calendar Day Difference

VbNet · Console

/Program.vb

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.Date, date2.Date)
		Dim msg = String.Format("Last date was {0} day(s) ago on {1}. ", daysAgo, date1.ToShortDateString())
		Console.WriteLine(msg)

		
	End Sub
	
End Module