标题: [问题求助] [已解决]VBS如何获得两个日期之间/指定范围内的每一天的日期? [打印本页]
作者: sepwolves 时间: 2016-4-15 17:09 标题: [已解决]VBS如何获得两个日期之间/指定范围内的每一天的日期?
本帖最后由 pcl_test 于 2016-7-17 23:00 编辑
比如我想获得
20150101
20150102
……
20150131
20150201
……
20151231
要达到这个目的应该怎么做?
作者: Abson 时间: 2016-4-15 17:56
@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
花钱让人
写程序实现。
作者: pcl_test 时间: 2016-4-15 20:12
本帖最后由 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
回复 4# pcl_test
谢谢版主。
作者: CrLf 时间: 2016-4-15 22:16
回复 5# sepwolves
问题解决了就把问题结帖了呗,还要记得给 pcl_test 加个分
作者: sepwolves 时间: 2016-4-15 22:41
回复 2# Abson
你这个是批处理啊。。
我问的是VBS啊。。。咱们这不是VBS求助讨论吗?
作者: sepwolves 时间: 2016-4-15 22:41
回复 6# CrLf
我还在学习当中。。。
作者: sepwolves 时间: 2016-4-15 22:42
回复 6# CrLf
怎么加分?版主也需要加分?
作者: CrLf 时间: 2016-4-15 22:45
回复 9# sepwolves
那当然要,必须要,版主的绩效都是跟当月新增技术分挂钩的,这里的版主已经有好几位因为饮养不良去打吊瓶了
每层楼右下角都有一个评分项
作者: sepwolves 时间: 2016-4-15 22:45
回复 4# pcl_test
原来vbs的函数可以放在后面啊。。
你们一般是怎么写vbs呢?是用一个notepad就开写呢?还是会有专门的开发环境?
比如说有debug功能之类的……
作者: CrLf 时间: 2016-4-15 22:46
回复 11# sepwolves
vbsedit
作者: codegay 时间: 2016-4-15 23:01
这些人闭着眼睛能写的代码。
作者: sepwolves 时间: 2016-4-19 01:15
这些功能我最早原本想用python来实现。现在看来vbs也能实现得很好。。。。
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |