Vbscript检查循环内的小时差异

Question

我想在循环中检查1小时的时差。将Do-loop运行，并且每次都会看到当前时间与上一时间段的差异是否为1小时。

我写了这个，但我想这很复杂

Dim ti_me
Public Function storetime(arg1,arg2)
  da_te = Time
  If (DateDiff("h",da_te,arg1)=1 Or -1) Then
    WScript.Echo DateDiff("h",da_te,arg1)&" hour"
  End If
  ti_me = arg2
End Function

Call storetime("1:18:22 PM",Time)

Do
  a = Time
  Call storetime(a,"")
  WScript.Sleep 2000
Loop

请纠正我。