日期时间间隔比较.txt

用于车辆监控数据的分析

Dim a As Date
Dim b As Date
Dim c As Integer
a=Format("2004-9-1 22:00:02","yyyy-mm-dd hh:nn:ss")
b=Format("2004-9-1 22:25:00","yyyy-mm-dd hh:nn:ss")
c=CInt(DateDiff("n",a,b))
If c>CInt(Text1.Text) Then
    MsgBox "差值大于文本框中的值"
ElseIf c=CInt(Text1.Text) Then
    MsgBox "差值等于文本框中的值"
Else
    MsgBox "差值小于文本框中的值"
End If