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

Question

做一个VBS程序，计算系统今天的日期距离一个指定日期（比如2019年2月25日）还有多少天？最好有两种代码，第一种是按年月日输入一个日期，再计算；第二种是直接在代码里输入一个日期，用这个程序直接计算距离天数。过程写清楚一些，谢谢！

基本过程如下↓
第一种：（如果实在做不出来也可以不做）
打开vbs程序，在inputbox1中输入年，inputbox2中输入月，inputbox3中输入日，单击确定键计算今天日期距离指定日期的距离天数。

第二种：
在vbs代码编辑中输入两个不同的日期，在vbs界面窗口（打开vbs文件）中直接显示“距离A日期还有 %date1% 天”+“距离B日期还有 %date2% 天”，标题为“日期计算器”，设定第一个日期为2019年2月16日，第二个日期为2019年3月5日，最好代码能方便更改日期，简单一点。

Answer 1

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

y=cint(inputbox("年"))
m=cint(inputbox("月"))
d=cint(inputbox("日"))
msgbox datediff("d",date,cdate(y & "-" & m & "-" & d)) & "天"

Answer 2

1.桌面新建一个文本文件 2.内容为: Dim startdate, enddate startdate = InputBox("请输入开始日期,格式为年-月-日!") enddate = InputBox("请输入结束日期,格式为年-月-日!") MsgBox "一共有" & DateDiff("d", startdate, enddate) + 1 & "天!" 3.重命名这个文件为: 日期计算.vbs 4.运行它.按提示输入2个日期,就能提示有多少天..只是输入一定要规范 比如: 2007-1-1 2007-11-20

Answer 3

日期一个是用Inputbox输入 一个是直接输入date函数获取今天的日期 ，再继续使用datediff求得两个日期的间隔

Answer 4

使用datediff求得两个日期的间隔