Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) Dim date1 As Date = #7/20/2004# Dim date2 As Date = #8/7/2004# Dim elapsed_time As TimeSpan elapsed_time = Date.op_Subtraction(date2, date1) Console.WriteLine(elapsed_time.Days.ToString) End Sub End Class