namejm

Re FOR：
　　运行了你修改后的代码，发现生成350多K的数据竟然只花费了0秒——嘿嘿，貌似 echo %time% 要改成 call echo %%time%% 才对。

FOR

输出格式已改，但对系统日期作统一处理不会。

namejm

　　hanyeguxing在4楼的代码没有做准确的平年闰年检测；FOR在7楼的代码输出的格式为 2010-4-1 ，由于未做充分测试，其他问题尚未发现。

namejm

　　对第2点做稍许变动：如果只输入一个日期，则和系统当前日期做比较，以较早的日期为起点，较晚的日期为终点，按照第1条的要求输出数据。

FOR

计算 100 年的日期 耗时 3.7 秒

@echo off&setlocal enabledelayedexpansion
set t=%time%
echo 请输入8位数的起始日期和结束日期用空格分开
echo 或只输入结束（开始）日期，默认当前日期为起始（结束）日期
echo 输入格式 20080205 21080529&echo.
set xx=19100201
for /f "tokens=1,2" %%i in ("%xx%") do (
   if not "%%j"=="" (set qs=%%i&set js=%%j) else (
      for /f "tokens=1-3 delims=.\-/ " %%a in ("!date!") do (
         if %%a%%b%%c gtr %%i (set/a qs=xx,js=%%a%%b%%c) else (
            set/a qs=%%a%%b%%c,js=%%i
))))
for %%a in (31 28 31 30 31 30 31 31 30 31 30 31) do set/a n+=1&set/a yue!n!=%%a
set /a qsd=100%qs:~4,2%%%100,qsm=100%qs:~6,2%%%100
set /a yuq=qsd,yuh=12,mq=qsm,mh=yue!qsd!
(
echo 起始日期 %qs:~0,4%-%qs:~4,2%-%qs:~6,2%
echo 结束日期 %js:~0,4%-%js:~4,2%-%js:~6,2%
for /l %%i in (%qs:~0,4% 1 %js:~0,4%) do (
    if %%i equ %js:~0,4% set /a yuh=100%js:~4,2%%%100&set flag=a
    for /l %%j in (!yuq! 1 !yuh!) do (
       if %%j equ 2 (
          set /a yue2="^!(%%i%%4)&^!(^!(%%i%%100))|^!(%%i%%400)"+28,mh=yue2
        ) else set /a mh=yue%%j
       if defined flag if %%j equ !yuh! set /a mh=100!js:~-2!%%100
       for /l %%k in (!mq! 1 !mh!) do (
          set numd=0%%j&set "numm=0%%k"
          echo %%i!numd:~-2!!numm:~-2!
        )
       set /a mq=1&echo;
     )
     set yuq=1
)
echo 耗时：
echo %t%
echo !time!
)>c.txt
start c.txt
exit
复制代码

[ 本帖最后由 FOR 于 2010-4-7 23:22 编辑 ]

neorobin

稍作修改, 少许提高效率:

@echo off & setlocal enabledelayedexpansion
set /p ymds=请输入起始日期(yyyymmdd):
set /p ymde=请输入截止日期(yyyymmdd):
(set y=!ymds:~0,4!)&(set m=!ymds:~4,2!)&(set d=!ymds:~6,2!)
set /a "y=1!y!-10000, m=1!m!-100, d=1!d!-100"
echo 起始日期为:!y!-!m!-!d!
set /a "leap=(^!(y%%4)&^!^!(y%%100))|^!(y%%400)"
set /a "f=^!(m-2), s=^!(m-4)|^!(m-6)|^!(m-9)|^!(m-11)"
set /a "dmax=f*(28+leap)+s*30+(^!f&^!s)*31"
(set _y=000!y!)&(set _y=!_y:~-4!)&(set _m=0!m!)&(set _m=!_m:~-2!)
:loop
(set _d=0!d!)&(set _d=!_d:~-2!)
if "!_y!!_m!!_d!" leq "!ymde!" (echo !_y!!_m!!_d!) else goto :break
set /a d+=1
if !d! gtr !dmax! (
	(set d=1)&(set /a m+=1)
	if !m! gtr 12 (
		(set m=1)&(set /a y+=1)&(set _y=000!y!)&(set _y=!_y:~-4!)
		set /a "leap=(^!(y%%4)&^!^!(y%%100))|^!(y%%400)"
	)
	set /a "f=^!(m-2), s=^!(m-4)|^!(m-6)|^!(m-9)|^!(m-11)"
	set /a "dmax=f*(28+leap)+s*30+(^!f&^!s)*31"
	(set _m=0!m!)&(set _m=!_m:~-2!)
)
goto :loop
:break
pause
复制代码

hanyeguxing

@echo off&setlocal enabledelayedexpansion
:han
set a=
set b=
set/p a=起始日期，格式20071221：
set/p b=终止日期，格式20080310，允许为空：
if "%a%"=="" echo.此数值不允许为空，请按任意键重新开始&pause>nul&goto :han
set m=寒夜312831303130313130313031孤星
for /f "tokens=1,2,3 delims=-:/ " %%i in ("%date%") do set i=%%i%%j%%k
if "%b%"=="" (if %i% gtr %a% (set b=%i%) else set a=%i%&set b=%a%)
if "%a:~4,1%"=="0" (set tm=%a:~5,1%) else set tm=%a:~4,2%
if "%a:~6,1%"=="0" (set td=%a:~7,1%) else set td=%a:~6,2%
set ty=%a:~0,4%&echo.%a%
:ye
set/a "n=tm*2","td=td+1","y=(^!(ty%%4)&^!^!(ty%%100))|^!(ty%%400)"
set e=!m:~%n%,2!
if %tm%==2 if %y%==1 set e=29
if %td% gtr %e% set/a "tm=tm+1",td=1
if %tm%==13 set/a "ty=ty+1",tm=1
set em=0%tm%&set ed=0%td%&set em=!em:~-2!&set ed=!ed:~-2!&set d=%ty%!em!!ed!
if %d% gtr %b% echo 完成&pause>nul&goto :eof
echo.%d%&goto :ye
复制代码

改了好几次，问题太多。。。还请大家多多指教

[ 本帖最后由 hanyeguxing 于 2010-4-8 01:05 编辑 ]

namejm

最好通过纯批处理来实现。

GNU

BAT调用VBS或者第三方命令行工具均可实现，不过似乎和第三点有些冲突。
还可以调用现成的日期计算函数，但效率估计不是很高。