批处理计算星期为什么只有2012年2月20日显示不正常？

andersen12

我是根据W的值来计算星期几的，只有到了2012年2月20日显示不正常，明明是星期一，算出的值缺是2，前后几天都是正常，请教高人指点啊！

1. @echo off
   
2. 
   
3. set /a y = %date:~0,4%
   
4. if %date:~5,1% EQU 0 set /a m = %date:~6,1%
   
5. if %date:~5,1% NEQ 0 set /a m = %date:~5,2%
   
6. if %date:~8,1% EQU 0 set /a d = %date:~9,1%
   
7. if %date:~9,1% NEQ 0 set /a d = %date:~8,2%
   
8. if %m% EQU 1 set /a m = 13
   
9. if %m% EQU 2 set /a m = 14
   
10. 
    
11. set /a w = (d + 2*m+3*(m+1)/5+y+y/4-y/100+y/400) - ((d + 2*m+3*(m+1)/5+y+y/4-y/100+y/400)/7)*7 + 1
    
12. 
    
13. set /a yy = (y - 4*(y/4))
    
14. if %m% EQU 13 if %yy% EQU 0 set /a w = w -2
    
15. if %m% EQU 14 if %yy% EQU 0 set /a w = w -2
    
16. if %m% EQU 13 if %yy% NEQ 0 set /a w = w - 1
    
17. if %m% EQU 14 if %yy% NEQ 0 set /a w = w - 1
    
18. if %w% EQU -1 set /a w = 6
    
19. if %w% EQU 0 set /a w = 7
    
20. 
    
21. @echo %w%

复制代码

applba

居然有人这么做……

CrLf

那两句 if neq 的判断没有必要，反而有逻辑错误，应写成：

1. if %date:~5,1% EQU 0 (set m=%date:~6,1%) else set m=%date:~5,2%
   
2. if %date:~8,1% EQU 0 (set d=%date:~9,1%) else set d=%date:~8,2%

复制代码

或者按惯例直接写成一句：

1. set /a m=1%date:~5,2%-100,d=1%date:~8,2%-100

复制代码

另，也写过日期转星期的函数，如下：

1. :::::::::::::::weeks 日期转星期函数::::::::::::::::::
   
2. :: 用法：                                          ::
   
3. ::  call :weeks Date retvar                        ::
   
4. ::        %1  Date    要计算的日期，不判断是否合法 ::
   
5. ::                    格式（YYYYMMDD）             ::
   
6. ::        %2  retvar  用于保存星期（1~7）的变量名  ::
   
7. :::::::::::::::::::::::::::::::::::::::::::::::::::::
   
8. 
   
9. :weeks Date retvar   ###### 公式算法
   
10. setlocal disabledelayedexpansion&set "date=%~1"
    
11. set /a m=1%date:~4,2%-100,m+=!(m/3)*12,w=(7%date:~6,2%+2*m+3*(m+1)/5+(y=%date:~,4%-m/13)+y/4-y/100+y/400)%%7+1
    
12. set "%~2=%w%"

复制代码

applba

明明是星期二

andersen12

谢谢版主，问题解决了！