中国DOS联盟

@echo off
mode con: lines=12 cols=40
setlocal enabledelayedexpansion
for %%a in (一,二,三,四,五,六,日) do (
set /a a+=1
set j!a!=%%a)

for %%b in (31,28,31,30,31,30,31,31,30,31,30,31) do (
set /a y+=1
set s!y!=%%b)

set /p m=查几月?
cls
set n=%m%
set /a n-=1


for /l %%c in (1,1,%n%) do (
set /a day+=!s%%c!)


set b=0

for /l %%d in (1,1,!day!) do (
set /a b+=1
if !b! equ 8 set b=1)

if %m% equ 1 set b=7



echo     一   二   三   四   五   六   日
echo.
set flag= 一二三四五六日一二三四五六日


for /l %%f in (1 1 13) do (

if "!flag:~%%f,1!"=="!j%b%!" (
if "!j%%f!"=="一" (set /p s=     <nul&set zh=6&goto next)
if "!j%%f!"=="二" (set /p s=          <nul&set zh=5&goto next)
if "!j%%f!"=="三" (set /p s=               <nul&set zh=4&goto next)
if "!j%%f!"=="四" (set /p s=                    <nul&set zh=3&goto next)
if "!j%%f!"=="五" (set /p s=                         <nul&set zh=2&goto next)
if "!j%%f!"=="六" (set /p s=                              <nul&set zh=1&goto next)
if "!j%%f!"=="日" (set /p s=<nul&set zh=7&goto next)
))


:next

for /l %%e in (1 1 !s%m%!) do (
set /a b+=1
if !b! equ 8 set b=1
if %%e lss 10 (set /p=    %%e<nul) else (set /p=   %%e<nul)
if !fl!==0 (set /a z+=1)

if !z!==7 (echo.&set z=0)
if %%e==!zh! (echo.
set fl=0
)
)
pause>nul