vbscript中的時間間隔之間的時間

Question

我正在嘗試調整讀取的時間，因爲字符串位於使用VBScript的指定時間間隔之間。以下是該腳本：

dim splitString, currentTime 
splitString = Split("12 59 00") 
currentTime = TimeSerial(splitString(0),splitString(1), splitString(2)) 
If ((DateAdd("n",-1,time())) <= currentTime < DateAdd("n", 1,time())) Then 
    Wscript.Echo currentTime 
End If 

這似乎並沒有工作。即使當前時間超出時間間隔也會獲得回顯。

Answer 1

在Python你可以檢查「是一個區間」使用短

if x <= y < z: 
    ... 

，但在VBScript中，你需要更長的

If x <= y And y < z Then 
    ... 

Answer 2

你需要獨立評估兩個條件。

dim splitString, currentTime 
splitString = Split("3 39 00") 
currentTime = TimeSerial(splitString(0),splitString(1), splitString(2)) 
If (DateAdd("n",-1,time()) <= currentTime) And (currentTime < DateAdd("n", 1,time())) Then 
    Wscript.Echo currentTime 
End If 

Answer 3

我用DateDiff。將IF語句修改爲：

If (DateDiff("n",DateAdd("n",-1,time()),currentTime) = 1 AND DateDiff("n",currentTime,DateAdd("n",1,time())) = 1) Then 
    Wscript.Echo currentTime 
End If 

按預期工作。