Question

我只是在now()超过开始日期和开始时间时才尝试让else下的代码执行。

出于某种原因，它不是返回strresponse而是在else之后执行代码。

如果我删除starttime，代码工作正常，但我也需要它在当天的特定时间运行。

startdate= dateserial(2015, 08, 27 )
starttime =timevalue ("12:00:00 pm")
IF date() < startdate and time() < starttime then 

strResponse ="Auction begins at " & startdate & " " &starttime & " please wait untill auction has started"

else

Answer 1

VBScript的日期数据类型（技术上是Variant）存储日期和时间，因此不需要两个单独的变量。

Dim dt
dt = DateSerial(2015, 8, 27) + TimeSerial(12, 0, 0)

然后您可以使用Now()函数获取当前日期和时间进行比较：

If Now() < dt Then

    strResponse = "Auction begins at " & dt & "."

Else

    ' Time for auction

End If

说实话，我没有看到任何理由说明您的原始代码不起作用。你的意思是中午，而不是午夜，我认为。

仅在特定日期和时间内运行条件

1 个答案: