万年暦（旧暦含む）の一括実装コード

:: Monthly Calendar Search Tool Originally published in CN-DOS
:: Original: foxjl Updated: namejm, qzwqzw, foxjl
:: Calculate the lunar date part of the idea and algorithm from "Fun Dong"
:: The input date format is: year - month - day (- can be replaced with :, /, can be mixed)
:: Inside the calendar, ★ = day
:: Multiple formats of date input are supported.
:: ① If only one number is entered, it is considered to be a query for the month of the current year, automatically intercepting the last two digits of the query, with ★ marked on the 1st day.
::: ② If two numbers are input, it is considered as querying the year and month, ★ marked on the 1st day.
:: ③ If you enter all, ★ mark on the specified date 
:: Regarding the conversion of the year.
:: ① If the number entered on the year is less than three, the conversion is made as follows. 
:: 50~99 will be converted to 19xx
:: 0~49 will be converted to 20xx
:: ② If more than two digits are entered in the year, the last four digits will be intercepted (with zeros added to the higher digit).
:: Calculate the date of the year according to the rules in ①. 
:: 07-08-04 Add the calculation of Chinese zodiac and stem-branch year for solar calendar; fix the bug of wrong date loop.
:: 08-01-13 Add the function of calculating the date of the lunar calendar, there will be an error of about one day.
@echo off
color 1f
mode con cols=40 lines=20
setlocal enabledelayedexpansion
set str=day one, two, three, four, five, six, seven, eight, nine
set sdate=%date%
:Main
cls&echo.
:: Date extraction, formatting and validation
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. wrong date.
pause>nul
cd.
set sdate=%date%
goto Main
:Calc
::Calculate the lunar part
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=first ten) else (set h=first %h%)) else (set h=%h:~0,1% ten%h:~-1% number)
for /l %%i in (1,1,9) do (call set h=%%h:%%i=!str:~%%i,1!%%)
set h=%h:0=%
:: Calculate the year of the Chinese zodiac and its branches
set sx=Monkey, Rooster, Dog, Pig, Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat
set tg=Geng, Xin, Non, Dec, A, B, C, D, E, H
set dz=申酉戌亥子丑寅卯辰巳午未
set /a sxnum=%sy% %% 12
set /a tgnum=%sy:~-1%
title lunar!tg:~%tgnum%,1!!dz:~%sxnum%,1! year zodiac:!sx:~%sxnum%,1! lunar:%h%
:: Calculate the number of days in each month
set days=31
for %%i in (4 6 9 11) do if %m% equ %%i set days=30
:: Calculate the deviation for February
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)
:: Calculate the number of days of the week for the specified date
set /a w=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400+1)%%7
echo. %sy%year%sm%month Date:%sy%-%sm%-%sd%,week!str:~%w%,1!
echo.
:: Generate the monthly calendar
set /a wb=(w+35-d) %% 7, we=wb+days+1, day=1
echo. day one two three four five six
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!
    EQU !day! set temp=★ if !d!
    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. enter the date to query the day of the week and display the monthly calendar for the month
echo.
set sdate=
set /p sdate= formatted as: 2007-02-03, [Enter] to exit:
if defined sdate goto Main