[问题求助] [已解决]VBS如何获得两个日期之间/指定范围内的每一天的日期？

sepwolves

比如我想获得
20150101
20150102
……
20150131
20150201
……
20151231

要达到这个目的应该怎么做？

Abson

@echo off
set /p start="请输入开始日期，如20150101:"
set /p end="请输入结束日期，如20151231:"
for /l %%i in (%start%,1,%end%) do @echo %%i

你想要这样的结果么？

codegay

花钱让人
写程序实现。

pcl_test

date1 = DateValue("2015-01-01")
date2 = DateValue("2015-12-31")

Do Until date1 > date2
    s = s & FormatDate(date1)
    date1 = DateAdd("d", 1 , date1)

Loop
Msgbox s
'输出到文本
'CreateObject("Scripting.FileSystemObject").CreateTextFile("结果.txt", 2).Write s

Function FormatDate(d)
    FormatDate = right(year(d),4) & right("0" & month(d),2) & right("0" & day(d),2) &vbCrLf
ENd Function
复制代码

sepwolves

回复 4# pcl_test


    谢谢版主。

CrLf

回复 5# sepwolves


    问题解决了就把问题结帖了呗，还要记得给 pcl_test 加个分

sepwolves

回复 2# Abson


    你这个是批处理啊。。
我问的是VBS啊。。。咱们这不是VBS求助讨论吗？

sepwolves

回复 6# CrLf


    我还在学习当中。。。

sepwolves

回复 6# CrLf


    怎么加分？版主也需要加分？

CrLf

回复 9# sepwolves


那当然要，必须要，版主的绩效都是跟当月新增技术分挂钩的，这里的版主已经有好几位因为饮养不良去打吊瓶了
每层楼右下角都有一个评分项

sepwolves

回复 4# pcl_test


    原来vbs的函数可以放在后面啊。。
你们一般是怎么写vbs呢？是用一个notepad就开写呢？还是会有专门的开发环境？
比如说有debug功能之类的……

CrLf

回复 11# sepwolves


    vbsedit

codegay

这些人闭着眼睛能写的代码。

sepwolves

这些功能我最早原本想用python来实现。现在看来vbs也能实现得很好。。。。