BAT-VBS

回复 77# plp626


    能给个例子证明一下不？

plp626

研究了下，两个算法等价，都正确

:date2i <year> <month> <day> <RetVarName>  // 一楼计算公式
setlocal&set/a y=%1,m=%2,d=%3
set/am+=9,m%%=12,y-=m/10,i=365*y+y/4-y/100+y/400+(m*153+2)/5+d-1
endlocal&if %4.==. (echo %i%)else set %4=%i%
goto:eof
复制代码

:Gauss_date2i <year> <month> <day> [RetVarName]  // Gauss 日期计算公式
setlocal&set/a "y=%1,m=%2-2,d=%3
if %m% leq 0 set/a m+=12,y-=1
set/a i=365*y+y/4-y/100+y/400+367*m/12+d-31
endlocal&if %4.==. (echo %i%)else set %4=%i%
复制代码

BAT-VBS

回复 79# plp626


    哦，我还以为真的有bug呢

taofan712

再次向前辈致敬，这些东西如果每个人都自己去想去算去写，真的麻烦。
但胡乱复制网上经验又不放心。
这里居然有这么优质的资料分享和经验交流!
阅读完毕，心情无以言表。