hanyeguxing

@echo off
set/a Y=%date:~0,4%,M=1%date:~5,2%%%100,D=1%date:~8,2%%%100-1,R=Y%%4,M2=M*2-2
if %D%==0 set/a M-=1
if %M%==0 set/a M=12,Y-=1
set A=313128313031303131303130
call set E=%%A:~%M2%,2%%
if %R%==0 if %M%==2 set E=29
if %D%==0 set D=%E%
set Day=%Y%年%M%月%D%日
echo %Day%
pause
复制代码

或

@echo off
set/a Y=%date:~0,4%,M=1%date:~5,2%%%100,D=1%date:~8,2%%%100-1,R=Y%%4,M2=M*2-2
if %D%==0 (set/a M-=1) else goto:d
if %M%==0 set/a M=12,Y-=1
set A=313128313031303131303130
call set D=%%A:~%M2%,2%%
if %R%==0 if %M%==2 set D=29
:d
set Day=%Y%年%M%月%D%日
echo %Day%
pause
复制代码

@echo off
set/a D=1%date:~8,2%%%100-1,M=1%date:~5,2%%%100-!D,Y=%date:~0,4%-!M,M+=!M*12,"K=!(M-4)|!(M-6)|!(M-9)|!(M-11)","D+=!D*(!(M-2)*(28+!(Y%%4))+K*30+(!!(M-2)&!K)*31)"
Echo %Y%年%M%月%D%日&pause
复制代码

[ 本帖最后由 hanyeguxing 于 2011-2-9 12:16 编辑 ]