set /a a=^(%nian%/100)
set /a b=^(%nian%/400)
set /a c=^(%nian%/4)
set /a a=%nian%-%a%*100
set /a b=%nian%-%b%*400
set /a c=%nian%-%c%*4
set ed=28
if %a% equ 0 (
    if %b% equ 0 set ed=29
) else (
    if %c% equ 0 set ed=29
)
if %ed% equ 29 echo.&&echo          %nian%年是闰年&&echo.
if %ed% equ 28 echo.&&echo          %nian%年是平年&&echo.
复制代码

@echo off&setlocal enabledelayedexpansion
echo 请输入起始日期 格式：2006-1-20
set /p kai= &cls
echo 请输入结束日期 格式：2008-3-12
set /p wei= &cls
call :lis %kai% xiao
call :lis %wei% da
for /l %%a in (%xiao% 1 %da%) do (
  set sy=%%a
  set /a leap="^!(sy %% 4) & ^!(^!(sy %% 100)) | ^!(sy %% 400)"
  set /a max=28+leap
  if "%%a"=="%wei:~0,4%" (set yuem=!dam!) else set yuem=12
  call :sss
)
echo.&echo 完成。。。
echo.&pause&exit
:sss
for /l %%i in (!xiaom! 1 !yuem!) do (
  call :loop %%i
  for /l %%a in (!xiaod! 1 !ssd!) do (
    set nm=0%%i&set nd=0%%a
    >>字典.txt echo !sy:~-2!!nm:~-2!!nd:~-2!
  )
  set /a xiaod=1
)
set /a xiaom=1
goto :eof
:loop
for /f "tokens=%1" %%i in ("31 !max! 31 30 31 30 31 31 30 31 30 31") do (
   set ssd=%%i
)
if "!sy!-%1"=="%wei:~0,4%-!dam!" (set ssd=!dad!)
goto :eof
:lis
for /f "tokens=1-3 delims=-./ " %%a in ("%~1") do (
  set /a %~2=%%a,%2m=100%%b%%100,%2d=100%%c%%100
)
goto :eof
复制代码

//&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>
复制代码