最简单的方法是直接把DTPicker2减去DTPicker1,这样得出的是两者相差的天数,比如:
DTPicker2.Value - DTPicker1.Value = 4.2586342592622
把小数部分再乘以24就可以得出小时数,依此可逐步算出分钟、秒
标准的方法是用DateDiff函数:
DateDiff("h", DTPicker2.Value, DTPicker1.Value)
这是算出两个日期间的小时数
DateDiff("s", DTPicker2.Value, DTPicker1.Value)
这是秒数
用DateDiff函数
参考:http://baike.baidu.com/view/674204.htm
Private Sub DTPicker2_CloseUp()
Me.Caption = DateDiff("d", DTPicker1.Value, DTPicker2.Value)
End Sub