日期时间间隔比较.txt

来自「用于车辆监控数据的分析」· 文本 代码 · 共 15 行

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