Board logo

标题: [日期时间] 批处理自定义函数日期转星期 DateToDayOfWeek [打印本页]

作者: pusofalse    时间: 2009-3-18 18:59     标题: 批处理自定义函数日期转星期 DateToDayOfWeek

从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
复制代码

作者: 随风    时间: 2009-3-18 19:10

Set /a aFactor, yFactor, mFactor, dFactor = 0
非常奇怪的定义变量的方法,这样能给这4个变量定义吗?
作者: pusofalse    时间: 2009-3-18 19:18     标题: 回复 2楼 的帖子

多谢指正!受其他语言影响,粗心粗到家了。。已经更正!
作者: Batcher    时间: 2009-3-18 19:26

这里也有此函数:Ritchie Lawrence 批处理函数库中英文版
http://bbs.bathome.net/thread-3056-1-1.html
作者: wxcute    时间: 2009-3-18 19:26

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2