批处理计算给定日期（年月日）是星期几，是当年第几周

cutebe

星期公式：
(上年\4-上年\100+上年\400+上年+当年第几天)%7=

1. @echo off
   
2. setLocal enableDelayedExpansion
   
3. :begin
   
4. ::set idate=2021-01-23
   
5. ::set idate=%date%
   
6. set/pidate=请输入日期（YYYY-MM-DD）：
   
7. set idate=%idate:+=%
   
8. set idate=%idate:-=%
   
9. set idate=%idate:/=%
   
10. set idate=%idate:.=%
    
11. set idate=%idate: =%
    
12. set/a y=1%idate:~,4%-10000
    
13. set/a m=1%idate:~4,2%-100
    
14. set/a d=1%idate:~6,2%-100
    
15. 
    
16. set/a y1=y-1,m3=(m-1)*3
    
17. ::开启变量延迟后，非运算符!要用^转义：^!
    
18. set/a "leap=^!(y%%4)&^!^!(y%%100)|^!(y%%400)",t2=28+leap
    
19. set E=+31+t2+31+30+31+30+31+31+30+31+30+31
    
20. set/a t=0!E:~,%m3%!+d,ty=0%E%
    
21. set/a w=(y1/4-y1/100+y1/400+y1+t)%%7
    
22. set/a w0=(y1/4-y1/100+y1/400+y1)%%7,z=(w0+t+(7-w)%%7)/7
    
23. 
    
24. set ytype=平闰
    
25. echo/　%y%是!ytype:~%leap%,1!年，有%ty%天；
    
26. set week=天一二三四五六
    
27. echo/　%y%-%m%-%d%是周!week:~%w%,1!，是当年第%z%周。
    
28. echo/
    
29. goto :begin
    
30. 
    
31. goto :eof
    
32. 
    
33. 星期公式：
    
34. (上年\4-上年\100+上年\400+上年+当年第几天)%7=
    
35. 
    
36. 测试
    
37. 2021-01-21
    
38. (505-20+5+2020+21)%7=4        4
    
39. 
    
40. 2013-04-08        31+28+31+8=98
    
41. (503-20+5+2012+98)%7=1        1
    
42. 
    
43. 2012-03-06        31+29+6=66
    
44. (502-20+5+2011+66)%7=2        2
    

复制代码

星期计算原理：
一个星期有七天，周而复始，循环往复。
假定现有历法不变，往前推公元元年1月1号（即0001-01-01起始）是星期一。
基于以上假设，要计算星期数，只要计算从公元起始经过了多少天，对7取余数就是星期几了！！

思考：如果知道某年1月1号是星期几，要计算当年另一个日期的星期是不是可行呢？

因为星期是周而复始的，过去的每一年天数也是固定的，我们不用每天都统计，可以简化。
每年有365或366天，平年365正好是52周多1天，因此每年1月1号的星期数是之前一年+1，闰年后面讨论。
年数是就往年去掉整周后多出来的天数，每遇到一个闰年再+1，因为闰年是52周多2天。
闰年数量是：能整除4-能整除100+能整除400。
因此星期数就是：往年年数+闰年数+当年的日期天数，对7取余数可得！

简单来说就是把以往各年非整周的剩余天数累加，再加上当年天数来除以七。
平年余数累积1天，闰年累积2天。

星期计算步骤：
1、判断闰年leap（1闰0平）；y为年
set/a "leap=!(y%%4)&!!(y%%100)|!(y%%400)"
2、计算2月天数t2
set/a t2=28+leap
3、计算指定日期是当年第几天t；m为月，d为日
set/a m3=(m-1)*3
set E=+31+t2+31+30+31+30+31+31+30+31+30+31        //基于余数思想，这句是不是也可以简化缩短？
set/a t=0!E:~,%m3%!+d
4、计算星期w（0为周日）；y1为上一年
set/a w=(y1/4-y1/100+y1/400+y1+t)%%7

注：基姆拉尔森计算公式中部分参数的含义不易理解。所以自己写了个一天一天累加的方法，原理比较简单易懂！

第几周计算原理与步骤就留给大家思考吧^_^

cutebe

计算星期的做成函数

1. ::计算指定日期是星期几，函数:weekday
   
2. @echo off
   
3. setLocal enableDelayedExpansion
   
4. 
   
5. set idate=%date%
   
6. call :picknum idate today
   
7. call :weekday today wd
   
8. echo/　今天是周%wd%
   
9. 
   
10. set idate=2021-01-23
    
11. set fdate=%idate:-=%
    
12. call :weekday fdate wd
    
13. set week=天一二三四五六
    
14. echo/　%idate%是星期!week:~%wd%,1!
    
15. 
    
16. pause
    
17. goto :eof
    
18. 
    
19. ::提取字串中的数字
    
20. :picknum str numstr
    
21. setlocal
    
22. set "str=!%1!"
    
23. for /l %%n in (0,1,9)do set _%%n=1
    
24. :_picknext
    
25. if defined _%str:~,1% set num=%num%%str:~,1%
    
26. set str=%str:~1%
    
27. if not "%str%"=="" goto :_picknext
    
28. endlocal&set %2=%num%
    
29. goto :eof
    
30. 
    
31. ::计算日期的星期。参数YYYYMMDD，输出0-6
    
32. :weekday formatdate dayofweek
    
33. setlocal
    
34. set "fdate=!%1!"
    
35. set/a y=1%fdate:~,4%-10000,m=1%fdate:~4,2%-100,d=1%fdate:~6,2%-100
    
36. set/a y1=y-1,m3=(m-1)*3
    
37. set/a "leap=^!(y%%4)&^!^!(y%%100)|^!(y%%400)",T2=28+leap
    
38. set daysofmonth=+31+T2+31+30+31+30+31+31+30+31+30+31
    
39. set/a daysnum=0!daysofmonth:~,%m3%!+d
    
40. set/a wday=(y1/4-y1/100+y1/400+y1+daysnum)%%7
    
41. endlocal&set %2=%wday%
    
42. goto :eof
    

复制代码

cutebe

计算第几周的也做成函数

1. ::计算指定日期是当年第几周，函数:weekord
   
2. @echo off
   
3. setLocal enableDelayedExpansion
   
4. 
   
5. set idate=%date%
   
6. call :picknum idate today
   
7. call :weekord today wo
   
8. echo/　今天是今年第%wo%周
   
9. 
   
10. set idate=2021-01-23
    
11. set fdate=%idate:-=%
    
12. call :weekord fdate wo
    
13. echo/　%idate%是当年第%wo%周
    
14. 
    
15. pause
    
16. goto :eof
    
17. 
    
18. ::提取字串中的数字
    
19. :picknum str numstr
    
20. setlocal
    
21. set "str=!%1!"
    
22. for /l %%n in (0,1,9)do set _%%n=1
    
23. :_picknext
    
24. if defined _%str:~,1% set num=%num%%str:~,1%
    
25. set str=%str:~1%
    
26. if not "%str%"=="" goto :_picknext
    
27. endlocal&set %2=%num%
    
28. goto :eof
    
29. 
    
30. ::计算日期是当年第几周。参数YYYYMMDD，输出1-54
    
31. :weekord formatdate weekordinal
    
32. setlocal
    
33. set "fdate=!%1!"
    
34. set/a y=1%fdate:~,4%-10000,m=1%fdate:~4,2%-100,d=1%fdate:~6,2%-100
    
35. set/a y1=y-1,m3=(m-1)*3
    
36. set/a "leap=^!(y%%4)&^!^!(y%%100)|^!(y%%400)",T2=28+leap
    
37. set daysofmonth=+31+T2+31+30+31+30+31+31+30+31+30+31
    
38. set/a daysnum=0!daysofmonth:~,%m3%!+d,daysmore=y1/4-y1/100+y1/400+y1
    
39. set/a wday0=daysmore%%7,wday=(daysmore+daysnum)%%7
    
40. set/a weeko=(wday0+daysnum+(7-wday)%%7)/7
    
41. endlocal&set %2=%weeko%
    
42. goto :eof
    

复制代码

Batcher

感谢分享！
有兴趣的朋友也可以参考另外几个例子：日期、星期、时间等
http://bbs.bathome.net/thread-3056-1-1.html

jave000

win10不支持weekord么，无法显示第几周

jave000

我需要根据当前周数创建对应文件夹，这个参数不支持的样子

The system cannot find the batch label specified - picknum
The system cannot find the batch label specified - weekday

Batcher

回复 6# jave000


批处理函数库里面有计算日期、星期、时间等实例
http://bbs.bathome.net/thread-3056-1-1.html

请参考Q-01观察一下哪行代码在报错以及详细的报错信息：
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ