cqwyrm1

:: code by cqwyrm 2009-4-19
@echo off
set tg=甲乙丙丁戊已庚辛壬癸
set dz=子丑寅卯辰巳午未申酉戍亥
:main
cls
set /p year= 请输入年份(公元前请输入负数）:
set input=%year%
set /a ninput=%year%*(-1)
if %year% LSS -57 set /a year=(%year%)%%60
if %year% LSS 0 set /a year=%year%+61
if %year%==0 (echo         SB,哪有公元零年啊!!!!) & goto next
if %year% LSS 3  set /a year=%year%+60
set /a temp1=((%year%-3)%%60)%%10
set /a temp2=((%year%-3)%%60-%temp1%)/10
set /a x=%temp1%-1
set /a y=(%temp1%+12-%temp2%*2)%%12-1
if %x%==-1 set /a x=%x%+10
if %y%==-1 set /a y=%y%+12
for /l %%i in (0,1,%x%) do (
    call set char1=%%tg:~%%i,1%%
)
for /l %%i in (0,1,%y%) do (
    call set char2=%%dz:~%%i,1%%
)
if %input% LSS 0 echo                 公元前%ninput%年 是 %char1%%char2%年
if %input% GTR 0 echo                 公元%input%年 是 %char1%%char2%年
:next
echo.
echo.
echo                 请按任意键继续查询
pause >nul
goto main
复制代码