public class Test public Shared Sub Main 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