Dim d1 as Date = #3/17/2002 12:30:29#Dim d2 as Date = #1/1/2008 10:11:49#Dim t As TimeSpan = d2 - d1Output.Show(t.Days & "天" & t.Hours & "小时" & t.Minutes & "分" & t.Seconds & "秒")