中国DOS联盟

@echo off
setlocal enabledelayedexpansion
::::::::简单万年历 {s11ss 2007-9-29}::::::::
::原理：求出某月1日是星期几，由此得出其它天对应于星期几，最后分行显示各天。
echo Please input a year and a month,like 2007-9:
echo.
set/p str=            
for /f "delims=- tokens=1*" %%a in ('echo %str%') do (
        set/a year=%%a
        set/a month=%%b
        if %%b leq 2 (set/a year-=1 && set/a month+=12)
        set y=!year:~-2!
        set is0=!y:~0,1!
        if !is0! equ 0 set y=!y:~1,1!
        set c=!year:~0,-2!
        set m=!month!
        set d=1
        if %%b leq 2 (set/a year+=1 && set/a month-=12)       
)
set/a w=(!y!+!y!/4+%c%/4-2*%c%+26*(%m%+1)/10+%d%-1)
::上面这个源于蔡勒公式，是算出1号是星期几的关键。
set/a ?=!w!%%7
if !?! lss 0 set/a ?+=7
set/a r4=!year!%%4,r100=!year!%%100,r400=!year!%%400
set/a feb=28
if !r4! equ 0 (if not !r100! equ 0 set/a feb=29)
if !r400! equ 0 set/a feb=29
set/a mseq=1
for %%a in (31,!feb!,31,30,31,30,31,31,30,31,30,31) do (
        if !mseq! equ !month! (set/a day=%%a && goto :e)
        set/a mseq+=1
)
:e
set s1= 1
for /l %%a in (1,1,!?!) do set s1=     !s1!
set/a row=1
set x=!s1!
for /l %%a in (2,1,!day!) do (
        if %%a lss 10 (set dseq= %%a) else (set dseq=%%a)
        set/a ?+=1
        if !?! equ 7 (
                set/a ?=0
                set s!row!=!x!
                set/a row+=1
                set x=!dseq!
        ) else (
                        set x=!x!   !dseq!
          )
)
set s!row!=!x!
echo 日   一   二   三   四   五   六
for /l %%a in (1,1,!row!) do echo !s%%a!
echo.
echo Press Any Key To Exit...
pause>nul
goto :eof
蔡勒公式
蔡勒（Zeller）公式：是一个计算星期的公式。
随便给一个日期，就能用这个公式推算出是星期几。

蔡勒公式如下：
w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1

公式中的符号含义如下：
w：星期； w对7取模得：0-星期日，1-星期一，2-星期二，3-星期三，4-星期四，5-星期五，6-星期六
c：世纪（前两位数）
y：年（后两位数）
m：月（m大于等于3，小于等于14，即在蔡勒公式中，某年的1、2月要看作上一年的13、14月来计算，比如2003年1月1日要看作2002年的13月1日来计算）
d：日
[ ]代表取整，即只要整数部分。

下面以中华人民共和国成立100周年纪念日那天（2049年10月1日）来计算是星期几，过程如下：
w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1
=49+[49/4]+[20/4]-2×20+[26×(10+1)/10]+1-1
=49+[12.25]+5-40+[28.6]
=49+12+5-40+28
=54 (除以7余5)
即2049年10月1日（100周年国庆）是星期五。

再比如计算2006年4月4日，过程如下：
w=y+[y/4]+[c/4]-2c+[26(m+1)/10]+d-1
=6+[6/4]+[20/4]-2*20+[26*(4+1)/10]+4-1
=-12 (除以7余2，注意对负数的取模运算！)

不过，以上的公式都只适合于1582年（我国明朝万历十年）10月15日之后的情形。罗马教皇格里高利十三世在１５８２年组织了一批天文学家，根据哥白尼日心说计算出来的数据，对儒略历作了修改。将１５８２年１０月５日到１４日之间的１０天宣布撤销，继１０月４日之后为１０月１５日。
后来人们将这一新的历法称为“格里高利历”，也就是今天世界上所通用的历法，简称格里历或公历。