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

sepwolves · 发表于 2016-4-15 17:09:15

本帖最后由 pcl_test 于 2016-7-17 23:00 编辑

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

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

Abson · 发表于 2016-4-15 17:56:11

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

你想要这样的结果么？

codegay · 发表于 2016-4-15 18:11:47

花钱让人
写程序实现。

pcl_test · 发表于 2016-4-15 20:12:57

本帖最后由 pcl_test 于 2016-7-24 15:04 编辑

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 · 发表于 2016-4-15 22:09:58

回复 4# pcl_test

谢谢版主。

CrLf · 发表于 2016-4-15 22:16:31

回复 5# sepwolves

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

sepwolves · 发表于 2016-4-15 22:41:35

回复 2# Abson

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

sepwolves · 发表于 2016-4-15 22:41:59

回复 6# CrLf

我还在学习当中。。。

sepwolves · 发表于 2016-4-15 22:42:22

回复 6# CrLf

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

CrLf · 发表于 2016-4-15 22:45:08

回复 9# sepwolves

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

sepwolves · 发表于 2016-4-15 22:45:27

回复 4# pcl_test

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

CrLf · 发表于 2016-4-15 22:46:07

回复 11# sepwolves

vbsedit

codegay · 发表于 2016-4-15 23:01:56

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

sepwolves · 发表于 2016-4-19 01:15:48

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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