:: 月历查询工具 最初发表于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
复制代码

计算星期:
基姆拉尔森计算公式
      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来代入公式计算。
复制代码

生肖及干支年计算方法是：
出生公元年数÷１２，然后根据除得的商的余数，对照生肖排列就马上可以知道。
生肖排列是：猴（０）、鸡（１）、狗（２）、猪（３）、鼠（４）、牛（５）、虎（６）、兔（７）、龙（８）、蛇（９）、马（１０）、羊（１１）。

天干地支算法:
首先要能记住十大天干和十二地支，
十天干：甲、乙、丙、丁、戊、己、庚、辛、壬、癸；
十二地支：子、丑、寅、卯、辰、巳、午、未、申、酉、戌、亥； 
天干地支纪年法首先是天干在前，地支在后，比如今年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年为乙酉年。
复制代码

农历日期部分的算法是:
阴历日期是以月亮的圆缺为计月单位，其以逢朔为初一，以月望为十五（大月为十六日），以月晦为二十 九日（大月为三十日）。然而目前记时通常用阳历日期表达，如欲将阳历日期换算成阴历日期可以用以下两种方法：其一是查《新编万年历》，如查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 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
复制代码

:: 月历查询工具
:: 原创：foxjl  更新：namejm, qzwqzw，foxjl，aizzw
:: 输入的日期格式为：年-月-日(-可以替换为:、/，可以混用)
:: 在日历里面，☆=当天
:: 支持多种格式的日期输入：
:: ① 若只输入一个数，则认为是查询当年月份，自动截取后两位数字查询，☆标在1日上；
:: ② 若输入两个数，则认为是查询年和月，☆标在1日上；
:: ③ 输全的话，“ ☆”标在指定日期上 
:: 关于年份的转换：
:: ① 若年份上输入的数字少于三位，则作如下转换： 
::     50~99判定为19xx
::     0~49判定为20xx
:: ② 若输入的年份数字超过两位，则截取后四位字符(不足部分在高位补0)，
::    按 ① 的规则计算该年份的日期； 
:: 07-08-04 增加针对农历的生肖及干支年计算；修改错误日期循环提示的BUG.
:: 08-01-13 增加推算农历日期的功能.
@echo off
color 2F
mode con cols=40 lines=21
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 万年历
:: 计算每个月的天数
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%月  公历:%sm%-%sd%     星期!str:~%w%,1!
:: 生成月历
set /a wb=(w+35-d) %% 7, we=wb+days+1, day=1
echo. ━━━━━━━━━━━━━━━━━━━
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.   农历!tg:~%tgnum%,1!!dz:~%sxnum%,1!年  农历:%h%  生肖:!sx:~%sxnum%,1!
echo  ━━━━━━━━━━━━━━━━━━━
echo.  输入日期可查询当日星期并显示当月月历
echo.
set sdate=
set /p sdate=  [回车]退出;格式如:2009-05-08:
if defined sdate goto Main
复制代码

:: 月历查询工具 最初发表于CN-DOS
:: 原创：foxjl  更新：namejm, qzwqzw，foxjl 
:: 宽度修改：SAMPECK  2009-06-26 
:: 计算农历日期部分思路及算法来自"趣味东"
:: 输入的日期格式为：年-月-日(-可以替换为:、/，可以混用)
:: 在日历里面，★=当天
:: 支持多种格式的日期输入：
:: ① 若只输入一个数，则认为是查询当年月份，自动截取后两位数字查询，★标在1日上；
:: ② 若输入两个数，则认为是查询年和月，★标在1日上；
:: ③ 输全的话，★标在指定日期上 
:: 关于年份的转换：
:: ① 若年份上输入的数字少于三位，则作如下转换： 
::     50~99判定为19xx
::     0~49判定为20xx
:: ② 若输入的年份数字超过两位，则截取后四位字符(不足部分在高位补0)，
::    按 ① 的规则计算该年份的日期； 
:: 07-08-04 增加针对农历的生肖及干支年计算；修改错误日期循环提示的BUG.
:: 08-01-13 增加推算农历日期的功能.
@echo off
color 1f
mode con cols=42 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=  格式如:2009-06-26,[回车]退出:
if defined sdate goto Main
复制代码

@echo off
mode con cols=50 lines=5
title 节日提示器
:ks
cls
set yy=%date:~0,4%
set mm=%date:~5,2%
set nn=%date:~8,2%
set zg=%yy%年%mm%月%nn%日
set hh=%time:~0,2%点%time:~3,2%分%time:~6,2%秒
echo.
echo     现在时间：%zg% %hh%

if /i '%zg%'=='%yy%年01月01日' echo 今天是元旦&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年01月06日' echo 今天是中国13亿人口日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年01月10日' echo 今天是中国110宣传日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月02日' echo 今天是世界湿地日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月04日' echo 今天是世界抗癌症日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月10日' echo 今天是世界气象日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月14日' echo 今天是情人节&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月21日' echo 今天是国际母语日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月07日' echo 今天是国际声援南非日&ping /n 2 127.1>nul&goto ks
if /i '%zg%'=='%yy%年02月29日' echo 今天是国际罕见病日&ping /n 2 127.1>nul&goto ks
::我太懒了，写到这就不想写了，请大家帮帮忙
ping /n 2 127.1>nul
goto ks

::资料
::世 界 节 日 大 全 
:: 1月　January 
:: 新年元旦[01/01] 黑人节[1月第一个星期天] 中国13亿人口日[01/06] 
::  日本**节[1月第二个星期一] 中国110宣传日[01/10] 国际麻风节[1月最后一个星期日] 
 
 
:: 2月　February 
:: 世界湿地日[02/02] 世界抗癌症日[02/4] 世界气象日[02/10] 
::  情人节[02/14] 国际母语日[02/21] 国际声援南非日[02/7] 
::  国际罕见病日[02/29]   
 
 
:: 3月　March 
:: 全国爱耳日[03/03] 妇女节[03/08] 植树节[03/12] 
::  国际消费日[03/15] *世界森林日 [03.21] 世界水日[03/22] 
::  *世界气象日 [03.23] *世界防治结核病日 [03.24]   
 
 
:: 4月　April 
:: 愚人节[04/01] *清明节 [04.05] *世界卫生日 [04.07] 
::   世界地球日[04/22]   
 
 
:: 5月　May 
:: 国际劳动节[05/01] 中国青年节[05/04] *全国碘缺乏病日 [05.05] 
::  世界红十字日[05/08] 国际护士节[05/12] 国际家庭日[05/15] 
::  世界电信日[05/17] 国际博物馆日[05/18] 全国助残日[每年五月第三个星期日] 
::  中国汶川地震哀挨哀悼日[05/19]  全国学生营养日[05/20] 国际生物多样性日[05/22] 
::  国际牛奶日[每年5月的第三个星期二] 世界无烟日[05/31] 母亲节[5月第二个星期日] 
 
 
:: 6月　June 
:: 国际儿童节 [06.01] 世界环境日[06/05] *全国爱眼日 [06.06] 
::  *端午节 [06.15] 父亲节[6月第三个星期日] *防治荒漠化和干旱日 [06.17] 
::  国际奥林匹克日[06/23] *全国土地日 [06.25] *国际反毒品日 [06.26] 
 
 
:: 7月　July 
:: 香港回归日[07/01] 建党节[07/01] *抗日战争纪念日 [07.07] 
::  世界过敏性疾病日[07/8] 世界人口日[07/11]   
 
 
:: 8月　August 
:: 八一建军节[08/01] 七夕情人节 [农历七月初七]   
 
 
:: 9月　September 
:: *劳动节 [09.01] 国际扫盲日[09/08] 教师节[09/10]
::世界预防自杀日[09/10] 
::  国际臭氧层保护日[09/16] 国际和平日[09/17] *国际爱牙日 [09.20] 
::  中秋节 [农历八月十五] 国际聋人节[9月第四个星期日] *世界旅游日 [09.27] 
::  *重阳节 [农历九月初九]     
 
 
:: 10月　October 
:: 国庆节[10/01] *国际音乐节 [10.01] *国际减轻自然灾害日 [10.02] 
::  世界动物日[10/04] 国际住房日[10/07] *全国高血压日 [10.08] 
::  世界视觉日[10/08] 世界邮政日[10/09] *世界精神卫生日 [10.10] 
::  国际盲人节[10/15] 世界粮食节[10/16] *世界消除贫困日 [10.17] 
::  中国（揭阳）国际玉器节[10/21] 世界传统医药日[10/22] 联合国日[10/24] 
::  人类天花绝迹日[10/25] 足球诞生日[10/26] 万圣节[10/31] 
 
 
:: 11月　November 
:: 中国记者日[11/08] *消防宣传日 [11.09] *世界糖尿病日 [11.14] 
::  *国际大学生节 [11.17] 感恩节[11月第四个星期四]   
 
 
:: 12月　December 
:: 世界艾滋病日[12/1] *世界残疾人日 [12.03] *世界足球日 [12.09] 
::  澳门回归纪念日[12/20] 国际篮球日[12/21] *冬至节 [农历十二月二十二日] 
::  平安夜[12/24] 圣诞节 [12.25] 世界强化免疫日[12/25] 
::  **诞辰[12/26] 
 
复制代码