'//保存我为new.vbs，然后运行即可

Dim intDays,intLines,strLast,strOut
Dim FirstDate,i,outDate,newDate,f

strLast="XXX" '//此处为日期后面的文本后面
FirstDay=InputBox("请输入第一天,格式为 年-月-日 如"&vbCrLf&"2011-1-1：")
intDays=InputBox("请输入时间间隔（天）：")
intLines=InputBox("请输入行数：")

intDays=intDays+1
strOut=FormatDate(FirstDay) & strLast
newDate=DateAdd("d",intDays,FirstDay)

For i=1 To intLines-1
	strOut=strOut & vbCrLf & FormatDate(newDate) & strLast
	newDate=DateAdd("d",intDays,newDate)
Next

Set f=CreateObject("scripting.filesystemobject").CreateTextFile("1.txt",True)
f.Write strOut
f.Close
MsgBox "保存在当前目录下1.TXT"
Set f=Nothing


'//定义函数判断日期格式
Function FormatDate(strDate)
	Dim strYear,strMonth,strDay
	strYear=DatePart("yyyy",strDate)
	strMonth=FormatNum(DatePart("m",strDate))
	strDay=FormatNum(DatePart("d",strDate))
	FormatDate=strYear & strMonth & strDay
End Function

'//定义过程判断日期格式2
Function FormatNum(intNum)
	If Len(intNum)=1 Then
		FormatNum="0" & intNum
	Else 
		FormatNum=intNum
	End If
End Function
复制代码

@echo off&setlocal enabledelayedexpansion
set "name=1.txt"&set/pp=请依次输入开始年 月 日 递增 行数,以空格分隔:
for /f "tokens=1-5" %%a in ("%p%") do set/a Y=%%a,M=%%b,D=%%c,N=%%d,C=%%e
(set M_=0%M%&set D_=0%D%&echo !Y!!M_:~-2!!D_:~-2!
for /l %%a in (2,1,%C%) do (
    set/a D+=N,"K=^!(M-4)|^!(M-6)|^!(M-9)|^!(M-11)","E=^!(M-2)*(28+((^!(Y%%4)&^!^!(Y%%100))|^!(Y%%400)))+K*30+(^!^!(M-2)&^!K)*31"
    if !D! gtr !E! (call:a) else set M_=0!M!&set D_=0!D!&echo !Y!!M_:~-2!!D_:~-2!
))>"%name%"&exit
:a:溢出运算
set/a D-=E,M+=1,"Y+=^!(M-13)","M-=^!(M-13)*12","K=^!(M-4)|^!(M-6)|^!(M-9)|^!(M-11)","E=^!(M-2)*(28+((^!(Y%%4)&^!^!(Y%%100))|^!(Y%%400)))+K*30+(^!^!(M-2)&^!K)*31"
if %D% gtr %E% goto:a
复制代码