0-3-1 ~ 33301-3-1（不含) 之间的日期推算

青青草

这是从网上看到的，0-3-1 ~ 33301-3-1（不含) 之间的日期推算，觉得不错，摘录于此，供把玩。

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

复制代码

窄口牛

看不懂。

青青草

窄口牛 发表于 2021-6-24 17:00
看不懂。

可用于计算任意两个日期（0-3-1 ~ 33301-3-1（不含) 之间）的时间差。

plusv

不错用.

算出的结果正确.

青青草

plusv 发表于 2021-6-24 18:42
不错用.

算出的结果正确.

代码也很简洁。

nttwqz

你分享的这个不过是简单的数学计算，仔细研究研究，好多人都能写，只要数学不太差。

看看下面这个，昨天日期计算，不知道是哪位大神写的，数学学得真好，set运用的出神入化。

1. @echo off
   
2. set/a D=1%date:~8,2%%%100-1,M=1%date:~5,2%%%100-!D,Y=%date:~0,4%-!M,M+=!M*12,"K=!(M-4)|!(M-6)|!(M-9)|!(M-11)","D+=!D*(!(M-2)*(28+!(Y%%4))+K*30+(!!(M-2)&!K)*31)"
   
3. set M=0%M%&set D=0%D%
   
4. Echo;%Y%-%M:~-2%-%D:~-2%&pause

复制代码

用到的部分计算：

set /a !0                ::结果：1
set /a !1                ::结果：0
!意思是一元运算，简单的说，就是!非0值为0,!0值为1。
!(M-4)，当M=4时，!(M-4)=1，否则等于0。

set /a "0|1"        ::结果：1
set /a "0|0"        ::结果：0
set /a "1|1"        ::结果：1
|意思是或运算，简单的说，就是同时为0时才为0，否则为1。
"K=!(M-4)|!(M-6)|!(M-9)|!(M-11)"，由于4、6、9、11月都是30天，这个用于判断是不是其中某月，替代了IF判断。
假设当前6月：
"K=!(6-4)|!(6-6)|!(6-9)|!(6-11)"
"K=!(2)|!(0)|!(-3)|!(-5)"
"K=0|1|0|0"
"K=1"

set /a "0&1"        ::结果：0
set /a "0&0"        ::结果：0
set /a "1&1"        ::结果：1
&意思是与运算，简单的说，就是同时为1时才为1，否则为0。
"(!!(M-2)&!K)*31"
仍然以6月为例：
"(!!(6-2)&!1)*31"
"(!!4&0)*31"
"(!0&0)*31"
"(1&0)*31"
"0*31"
结果：0


感兴趣的可以自己研究计算方法，不过我估计过一段时间你就会忘记的，即使你研究的滚瓜烂熟。

dbjdyy

能算出彩票中奖号码吗

plusv

dbjdyy 发表于 2021-6-25 08:33
能算出彩票中奖号码吗

那 躺平族 就开心了.

青青草

nttwqz 发表于 2021-6-24 20:52
你分享的这个不过是简单的数学计算，仔细研究研究，好多人都能写，只要数学不太差。

看看下面这个，昨天 ...

计算方法确实别具一格，但
“set/a D=1%date:~8,2%%%100-1,M=1%date:~5,2%%%100-!D,Y=%date:~0,4%-!M”
这样截取日期也容易出错。

nianyueriPE

青青草 发表于 2021-6-28 12:56
计算方法确实别具一格，但
“set/a D=1%date:~8,2%%%100-1,M=1%date:~5,2%%%100-!D,Y=%date:~0,4%-!M”
...

确实

青青草

dbjdyy 发表于 2021-6-25 08:33
能算出彩票中奖号码吗

睡吧，看看能不能做个好梦！

青青草

nianyueriPE 发表于 2021-7-24 19:18
确实

XJMGS

赞&#128077;

青青草

XJMGS 发表于 2021-8-25 12:46
赞&#128077;