pcl_test

//&cls&mshta "%~f0"|find /v ""&pause&exit

<script language=vbscript>
Set fso = CreateObject("Scripting.Filesystemobject")
date1 = DateValue("2007-01-01")
date2 = DateValue("2008-04-18")
s = FormatDate(date1)

Do Until date1 = date2
    date1 = DateAdd("d", 1 , date1)
    s = s & FormatDate(date1)
Loop

fso.CreateTextFile("字典.txt", 2).Write s
fso.GetStandardStream(1).Write s

Function FormatDate(d)
    FormatDate = right(year(d),2) & right("0" & month(d),2) & right("0" & day(d),2) &vbCrLf
ENd Function
Close()
</script>
复制代码