参考
Dim d1 as Date = #3/17/2002 12:30#Dim d2 as Date = #1/1/2008 18:30#Dim t As TimeSpan = d2 - d1Output.Show(t.TotalDays & "天")
http://www.foxtable.com/help/topics/0287.htm