批处理万年历(包括农历日期)
[color=red]____________________________版主提醒____________________________
为了避免影响技术讨论、提高看帖的舒适性，请大家不要在此帖下跟
无实质内容的口水帖,特别是纯顶、纯支持、纯感谢、路过之类的帖子，
管理人员将不定期清理此类回帖，请大家多参与讨论少灌水，与人方便，
终将给自己带来方便，谢谢合作。
________________________________________________________________
[/color][code]:: 月历查询工具 最初发表于CN-DOS
:: 原创：foxjl 更新：namejm, qzwqzw，foxjl
:: 计算农历日期部分思路及算法来自"趣味东"
:: 输入的日期格式为：年-月-日(-可以替换为:、/，可以混用)
:: 在日历里面，★=当天
:: 支持多种格式的日期输入：
:: ① 若只输入一个数，则认为是查询当年月份，自动截取后两位数字查询，★标在1日上；
:: ② 若输入两个数，则认为是查询年和月，★标在1日上；
:: ③ 输全的话，★标在指定日期上
:: 关于年份的转换：
:: ① 若年份上输入的数字少于三位，则作如下转换：
:: 50~99判定为19xx
:: 0~49判定为20xx
:: ② 若输入的年份数字超过两位，则截取后四位字符(不足部分在高位补0)，
:: 按 ① 的规则计算该年份的日期；
:: 07-08-04 增加针对阳历的生肖及干支年计算；修改错误日期循环提示的BUG.
:: 08-01-13 增加推算农历日期的功能，会有一天左右误差。
@echo off
color 1f
mode con cols=40 lines=20
setlocal enabledelayedexpansion
set str=日一二三四五六七八九
set sdate=%date%
:Main
cls&echo.
:: 日期提取、格式化与校验
for /f "tokens=1,2,3 delims=-/: " %%i in ("%sdate%") do (
(set sy=%%i) && (set sm=%%j) && (set sd=%%k)
)
if not defined sd set sd=1
if not defined sm set sm=%sy%&set sy=%date:~0,4%
(set sy=0000%sy%) && (set sm=00%sm%) && (set sd=00%sd%)
(set sy=%sy:~-4%) && (set sm=%sm:~-2%) && (set sd=%sd:~-2%)
set /a y=1%sy%-10000, m=1%sm%-100, d=1%sd%-100 2>nul
if errorlevel 9167 goto Error
if %y% lss 100 (
if %y% lss 50 (set /a y+=2000) else (set /a y+=1900)
set sy=!y!
)
if %m% lss 13 if %d% lss 32 goto Calc
:Error
echo.错误的日期.
pause>nul
cd.
set sdate=%date%
goto Main
:Calc
::计算农历部分
set/a Q=(y-1901)/4
set/a R=y-1901-4*Q
set n=0
for %%i in (0,31,59,90,120,151,181,212,243,273,304,334) do (
set /a n+=1
if %m% equ !n! set z=%%i)
set /a leap="^!(y%%4) & ^!(^!(y%%100)) | ^!(y%%400)"
if %m% gtr 2 (if %leap% equ 0 (set /a z-=1) else (set /a z+=leap))
set/a n=(140*Q+106*(R+1)+z*10+d*10)/295,H=(140*Q+106*(R+1)+z*10+d*10-295*n)/10
if %h% equ 0 set h=29
if %h% leq 10 (if %h% equ 10 (set h=初十) else (set h=初%h%)) else (set h=%h:~0,1%十%h:~-1%号)
for /l %%i in (1,1,9) do (call set h=%%h:%%i=!str:~%%i,1!%%)
set h=%h:0=%
:: 计算生肖及干支年
set sx=猴鸡狗猪鼠牛虎兔龙蛇马羊
set tg=庚辛壬癸甲乙丙丁戊己
set dz=申酉戌亥子丑寅卯辰巳午未
set /a sxnum=%sy% %% 12
set /a tgnum=%sy:~-1%
title 农历!tg:~%tgnum%,1!!dz:~%sxnum%,1!年 生肖:!sx:~%sxnum%,1! 农历:%h%
:: 计算每个月的天数
set days=31
for %%i in (4 6 9 11) do if %m% equ %%i set days=30
:: 计算2月份的偏差
set /a leap="^!(y%%4) & ^!(^!(y%%100)) | ^!(y%%400)"
if %m% equ 2 set /a days=28+%leap%
if %m% leq 2 (set /a y-=1& set /a m+=12)
:: 计算指定日期的星期数
set /a w=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400+1)%%7
echo. %sy%年%sm%月 日期:%sy%-%sm%-%sd%,星期!str:~%w%,1!
echo.
:: 生成月历
set /a wb=(w+35-d) %% 7, we=wb+days+1, day=1
echo. 日 一 二 三 四 五 六
echo. ━━━━━━━━━━━━━━━━━━━
set /p= <nul
for /l %%i in (0,1,37) do (
set "temp= "
if %%i GTR %wb% if %%i LSS %we% (
set temp= !day!
set temp=!temp:~-2!
if !d! EQU !day! set temp=★
set /a day+=1
)
set /p= !temp!<nul
set /a "wm=(%%i+1)%%7"
if !wm! equ 0 echo.&echo.&set /p= <nul
)
echo.
echo ━━━━━━━━━━━━━━━━━━━
echo. 输入日期可查询当日星期并显示当月月历
echo.
set sdate=
set /p sdate= 格式如:2007-02-03,[回车]退出:
if defined sdate goto Main[/code]以下是各计算部分算法:[code]计算星期:
基姆拉尔森计算公式
W= (d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7
在公式中d表示日期中的日数＋1，m表示月份数，y表示年数。
注意：在公式中有个与其他公式不同的地方：
把一月和二月看成是上一年的十三月和十四月，
例：如果是2004-1-10则换算成：2003-13-10来代入公式计算。[/code][code]生肖及干支年计算方法是：
出生公元年数÷１２，然后根据除得的商的余数，对照生肖排列就马上可以知道。
生肖排列是：猴（０）、鸡（１）、狗（２）、猪（３）、鼠（４）、牛（５）、虎（６）、兔（７）、龙（８）、蛇（９）、马（１０）、羊（１１）。
天干地支算法:
首先要能记住十大天干和十二地支，
十天干：甲、乙、丙、丁、戊、己、庚、辛、壬、癸；
十二地支：子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥；
天干地支纪年法首先是天干在前，地支在后，比如今年2005就为－乙酉年，先来算算天干，有个公式：
4、 5、 6、 7、 8、 9、 0、 1、 2、 3 对应的十天干就是
甲、乙、丙、丁、戊、己、庚、辛、壬、癸，
数字为年代的最后的一位数字，比如今年是2005，最后一位是5，对应的天干就是乙；
地支的算法：用年代数除以12，后面的余数就代表某个地支，余数分别为：
4、 5、 6、 7、 8、 9、 10、 11、 0、 1、 2、 3，
代表地支为：子、丑、寅、卯、辰、巳、午、 未、 申、酉、戌、亥，
比如2005年为例：年代末尾数为5，对应的天干为乙，2005除以12，余数为1，对应的地支为酉，所以2005年为乙酉年。[/code][code]农历日期部分的算法是:
阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十 九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查1984年6月8日是阴历几日？翻开万年历6月10日是阴历十一，则逆推6月8日是阴历初九。其二可以利用公式推算阴历日期：
设：公元年数－1977（或1901）＝4Q＋R
则：阴历日期=14Q+10.6(R+1)+年内日期序数-29.5n
（注:式中Q、R、n均为自然数，R<4）
例：1994年5月7日的阴历日期为：
1994－1977＝17＝4×4＋1
故：Q＝4，R＝1 则：5月7日的阴历日期为：
14×4+10.6(1+1)+(31+28+31+30+7)-29.5n
=204.2- 29.5n
然后用29.5去除204.2得商数6......27.2，6即是n值，余数27即是阴历二十七日。[/code] 强啊！
一直想作个作不出，还是你厉害，佩服，有空研究研究你的代码。。
美中不足，显示阴历时，怎么没有月份显示？阴历和阳历的月份不一定都是一样的吧？ 是啊.暂时只能算出农历日期呵.. 非常不错，想不加分都忍不住啊 强大啊。！
呵呵。 强~~！
界面也不错，可以加入精华贴咯 报个bug，暂时没时间去找原因：当输入单个的数字时，会提示找不到操作数。 [quote]原帖由 [i]namejm[/i] 于 2008-1-13 22:14 发表 [url=http://bbs.bathome.net/redirect.php?goto=findpost&pid=1883&ptid=560][img]http://bbs.bathome.net/images/common/back.gif[/img][/url]
报个bug，暂时没时间去找原因：当输入单个的数字时，会提示找不到操作数。 [/quote]
多谢提示!原因已经找到了,代码已经在顶楼更新.
其实这个脚本有你的大半功劳,我独自发表到原创代码,我似乎有点厚脸皮了.见谅! 忍不住，决定加精!! 把原创归到我的名下不太恰当，我只是修改了其中的代码而已，创意和主体代码都是你写的，还是把我的名字从原创里取消吧，在更新中有我就足矣。说实话，qzwqzw的功劳比我更大，他还从这个脚本中发现了CMD的一个秘密。 其实我也想编个 就是不知道算法 所以就放弃了
楼主确实牛 报个Bug如果日期是星期天 就会显示空白
这个批处理最大的遗憾就是不能显示月份
[quote]原帖由 [i]xxx3212[/i] 于 2008-1-17 18:57 发表 [url=http://bbs.bathome.net/redirect.php?goto=findpost&pid=1994&ptid=560][img]http://bbs.bathome.net/images/common/back.gif[/img][/url]
报个Bug如果日期是星期天 就会显示空白
这个批处理最大的遗憾就是不能显示月份
[/quote]
呵呵.多谢提示,BUG已修正,已经在顶楼更新. 在网上找了半天都没找到农历的算法 都说农历不好算 算出来也不精确 难道真的没算法了吗？ 刚来的，羡慕啊，学习中
收藏
值得研究一下, 呵呵 LZ 牛人也 最强之作！顶几次也不嫌多！全部复制慢慢参考，找时间搞作xls格式的！ 能做我的老师么，，愿意的话加下我的QQ373210344 什么都好，就是农历年的算法上有问题。戊子年和2008年不一样，春节前是丁亥，之后才是戊子！ 因为无法推算农历月份所以就不能准确的算出干支年,只能针对公历计算了. 真是感谢啊做的真不错 ：）
谢谢 哇，这样也能做出来，高手啊
哇，太牛了
哇，太牛了顶起！！！！！！！！！！！！！！！！！
哇！好厉害！
我是菜鸟一个！ 今天大开眼界了！ 我爱上批处理了！ 不看真的不知道，用批处理能做出这样的作品！汗颜！
暴强！ 一个子————太强啦 太强了，好羡慕，向你学习！ 高手，一直想找这样的程序。谢谢提供！辛苦了！ 报个BUG，
农历不正确，例如今天阳历是2008-8-19，阴历是七月十九号，它却显示十八号。
还有它阴历没月份！