VBS计算今天日期距离指定日期还有多少天

你说的两种 都可以用以下代码来解决 代码中一个是用Inputbox输入 一个是直接输入date函数获取今天的日期 ，像 你第二种要求就可以直接将date函数 替换成一个自定义的日期 赋值到变量中 然后再继续使用datediff求得两个日期的间隔

y=cint(inputbox("年"))

m=cint(inputbox("月"))

d=cint(inputbox("日"))

msgbox datediff("d",date,cdate(y & "-" & m & "-" & d)) & "天"

获取当前时间：

代码如下:

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)

m = "当前时间"&CurrentTime

msgbox m

获取当前日期方法一：

代码如下:

Currentdate1=date()

msgbox Currentdate1

获取当前日期方法二：

代码如下:

Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)

msgbox Currentdate2

复制粘贴到记事本，另存为xx.vbs，编码选ANSItoday=right(Year(date),4) & "-" & right("0" & Month(date),2) & "-" & right("0" & Day(date),2)

d=inputbox("格式为yyyy-MM-dd","输入日期")

If d <> "" Then

    If today = d Then

        msgbox "Bingo"

    Else

        msgbox "Input Error"

    End If

End If

---