[已更新]批处理单行版时间日期计算 算法讨论

BAT-VBS

回复 77# plp626


    能给个例子证明一下不？

plp626

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

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

复制代码

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

复制代码

BAT-VBS

回复 79# plp626


    哦，我还以为真的有bug呢

taofan712

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