pcl_test

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 FunctionCOPY