Dim d1 as Date = 登记日期
Dim d2 as Date = 完成日期
Dim t As TimeSpan = d2 - d1Output.Show(t.TotalDays & "天")
详见帮助,编程基础,时段