terse

回复 3# HAT

@echo off&setlocal enabledelayedexpansion
set/p Dates=输入年月日(空格隔开)
for /f "tokens=1-3" %%i in ("%Dates%") do set /a Y=%%i,M=100%%j%%100,D=100%%k%%100
set _0=打鱼&set _1=晒网
set /a "JD=(d-2479968+1461*(y+4800+(m-14)/12)/4+367*(m-2-(m-14)/12*12)/12-3*(y+4900+(m-14)/12)/100/4)%%5/3"
echo !_%JD%!
pause
复制代码

terse

回复 5# plp626
用的计算儒略日数公式  当然还有许多其它公式