VB 计算时间差的函数DateDiff
DateDiff 函数            返回 Variant ...