批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]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://www.bathome.net/)