本帖最后由 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
| 
发表于 2016-4-15 20:12
|