关于VBS的时间判断

判断输入的时间是否是大于或者等于当前时间时间格式是月日年如： 080909请问vbs怎么实现？是日期不是时间 080909是输入的日期意思是08月09日09年我要的是代码怎么写的

2026年09月19日 00:24

有3个网友回答

网友（1）：

加上1000000万后再进行判断。。。

如：1080909<1080910

网友（2）：

Dim sDate, sMonth, sDay, sYear, dtTest

sDate = InputBox("", "", "080909")
If sDate = "" Then WSH.Quit 1

sMonth = Left(sDate, 2)
sDay = Mid(sDate, 3, 2)
sYear = "20" & Right(sDate, 2)
dtTest = DateSerial(sYear, sMonth, sDay)

If DateDiff("d", dtTest, Now()) > 0 Then
WSH.Echo "小于当前时间"
Else
WSH.Echo "大于或者等于当前时间"
End If

网友（3）：