Imports System
 
Public Class Test
   Public Shared Sub Main()
       Console.Write("01/01/1900 : ")
       Console.WriteLine(DateDiff(DateInterval.Day, Cdate("01/01/2013"),Cdate("01/01/1900"))-2)
       Console.Write("01/01/1900 : ")
       Console.WriteLine(DateDiff(DateInterval.Day, Cdate("01/01/1900"),Cdate("01/01/2013"))+2)
       Console.Write("12/30/1899 : ")
       Console.WriteLine(DateDiff(DateInterval.Day, Cdate("01/01/2013"),Cdate("12/30/1899")))
       Console.Write("12/30/1899 : ")
       Console.WriteLine(DateDiff(DateInterval.Day, Cdate("12/30/1899"),Cdate("01/01/2013")))
   End Sub
End Class