批处理自定义函数日期转星期 DateToDayOfWeek

pusofalse

从AutoIt的日期函数中找到的算法，在此向此算法的原作者Jos van der Zande致意。此函数的作用是：传递日期参数到函数，返回这一天是一星期中的第几天。

1. @echo Off
   
2. Call :DateToDayOfWeek 2009 3 18 iDayOfWeek
   
3. Echo %iDayOfWeek%
   
4. Pause & Exit /b 0
   
5. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   
6. :DateToDayOfWeek iYear, iMonth, iDay, ByRef weekday
   
7. :: Returns the weekday number for a given date.
   
8. :: %iYear%     - A valid year in format YYYY.
   
9. :: %iMonth%    - A valid month in format MM.
   
10. :: %iDay%      - A valid day in format DD.
    
11. :: %weekday%   - Receives the result.
    
12. ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
13. Set /a numOfParams = 0
    
14. For %%a in (%*) do Set /a numOfParams += 1
    
15. If "%numOfParams%" neq "4" Exit /b 1
    
16. SetLocal EnableExtensions
    
17. Set /a aFactor, yFactor = 0, mFactor = 0, dFactor = 0
    
18. Set /a aFactor = (14 - %~2) / 12, yFactor = %~1 - aFactor
    
19. Set /a mFactor = %~2 + (12 * aFactor) - 2
    
20. Set /a dFactor = 1 + (%~3 + yFactor + yFactor/4 - yFactor/100 + yFactor/400 + 31 * mFactor/12) %% 7
    
21. EndLocal & Set "%~4=%dFactor%" & Exit /b 0

复制代码

随风

Set /a aFactor, yFactor, mFactor, dFactor = 0
非常奇怪的定义变量的方法，这样能给这4个变量定义吗？

pusofalse

多谢指正！受其他语言影响，粗心粗到家了。。已经更正！

Batcher

这里也有此函数：Ritchie Lawrence 批处理函数库中英文版
http://bbs.bathome.net/thread-3056-1-1.html

wxcute

为什么星期三是第四天，是从周日开始算起吗？
不太习惯。