CODE: [Copy to clipboard]
@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日之后的情形。罗马教皇格里高利十三世在1582年组织了一批天文学家,根据哥白尼日心说计算出来的数据,对儒略历作了修改。将1582年10月5日到14日之间的10天宣布撤销,继10月4日之后为10月15日。
后来人们将这一新的历法称为“格里高利历”,也就是今天世界上所通用的历法,简称格里历或公历。