Question

VB里面，两个时间相减得到的数是什么啊，

比如
mytime = TimeSerial(22, 12, 11)
youttime = TimeSerial(23, 12, 11)
Print mytime - youttime
得到的结果是
-4.16666666666666E-02

Answer 1

VB里面，两个时间相减得到的数是需要看其差被声明为啥数据类型。

1）当差被声明为Date数据类型，则两个时间相减得到是一个日期。

相应代码：

Option Explicit
    Dim rq As Date
    Dim rq1 As Date
    Dim sj As Date

Private Sub Command1_Click()
    sj = rq1 - rq
    Text3 = sj
    Debug.Print sj
End Sub

Private Sub Form_Load()
    rq = #1/1/2015#
    rq1 = Now
    Text1 = rq
    Text2 = rq1
End Sub

2）当差被声明为Variant数据类型，则两个时间相减得到是双精度浮点数。

相应代码档旦：

Option Explicit
    Dim rq As Date
    Dim rq1 As Date
    Dim sj As Variant

Private Sub Command1_Click()
    sj = rq1 - rq
    Text3 = sj
    Debug.Print sj
End Sub

Private Sub Form_Load()
    rq = #1/1/2015#
    rq1 = Now
    Text1 = 哗蠢亩rq
    Text2 = rq1
End Sub

Date 数据类型：

Date 变量存储为 IEEE 64 位（8 个字节）浮点数值形式，其可以表示的日期范围从 100 年 1 月 1 日到 9999 年 12 月 31 日，而时间可以从 0:00:00 到
23:59:59。任何可辨认的文本日期都可以赋值给 Date 变量。日期文字须以数字符号 (#)
扩起来，例如，#January 1, 1993# 或 #1 Jan 93#。

Double 数据类型：

Double（双精度浮点型）变量存储为 IEEE 64 位（8 个字节）浮点数值的形乱森式，它的范围在负数的时候是从 -1.79769313486232E308 到 -4.94065645841247E-324，而正数的时候是从 4.94065645841247E-324 到 1.79769313486232E308。

Answer 2

得到时间的差使用DateDiff函数
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
其中 interval表示，计算差值的类型
yyyy-年；q-季 ；m-月 ；y-一年的日数 ；
d-日 ；w-一周的日数 ；ww-周 ；纳弯猛
h-时 ；n-分钟 ；s-秒洞桥

比如：计算A到B
之闹唤间的分钟使用DateDiff("n",CDate(A),CDate(B))