Board logo

标题: [问题求助] [已解决]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 编辑
  1. date1 = DateValue("2015-01-01")
  2. date2 = DateValue("2015-12-31")
  3. Do Until date1 > date2
  4.     s = s & FormatDate(date1)
  5.     date1 = DateAdd("d", 1 , date1)
  6. Loop
  7. Msgbox s
  8. '输出到文本
  9. 'CreateObject("Scripting.FileSystemObject").CreateTextFile("结果.txt", 2).Write s
  10. Function FormatDate(d)
  11.     FormatDate = right(year(d),4) & right("0" & month(d),2) & right("0" & day(d),2) &vbCrLf
  12. 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