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
SW1wb3J0cyBTeXN0ZW0KIApQdWJsaWMgQ2xhc3MgVGVzdAogICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgIENvbnNvbGUuV3JpdGUoIjAxLzAxLzE5MDAgOiAiKQogICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoRGF0ZURpZmYoRGF0ZUludGVydmFsLkRheSwgQ2RhdGUoIjAxLzAxLzIwMTMiKSxDZGF0ZSgiMDEvMDEvMTkwMCIpKS0yKQogICAgICAgQ29uc29sZS5Xcml0ZSgiMDEvMDEvMTkwMCA6ICIpCiAgICAgICBDb25zb2xlLldyaXRlTGluZShEYXRlRGlmZihEYXRlSW50ZXJ2YWwuRGF5LCBDZGF0ZSgiMDEvMDEvMTkwMCIpLENkYXRlKCIwMS8wMS8yMDEzIikpKzIpCiAgICAgICBDb25zb2xlLldyaXRlKCIxMi8zMC8xODk5IDogIikKICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKERhdGVEaWZmKERhdGVJbnRlcnZhbC5EYXksIENkYXRlKCIwMS8wMS8yMDEzIiksQ2RhdGUoIjEyLzMwLzE4OTkiKSkpCiAgICAgICBDb25zb2xlLldyaXRlKCIxMi8zMC8xODk5IDogIikKICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKERhdGVEaWZmKERhdGVJbnRlcnZhbC5EYXksIENkYXRlKCIxMi8zMC8xODk5IiksQ2RhdGUoIjAxLzAxLzIwMTMiKSkpCiAgIEVuZCBTdWIKRW5kIENsYXNzIAoK