[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[日期时间] 批处理自定义函数日期转星期 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
复制代码
1

评分人数

心绪平和,眼藏静谧。

为什么星期三是第四天,是从周日开始算起吗?
不太习惯。
批处理之家论坛官方 QQ 群 :【当前人数/人数上限】【2009-07-08】
群①:43011867(181/200);群②:(暂缺数据);群③:66165582(120/200)。

TOP

这里也有此函数:Ritchie Lawrence 批处理函数库中英文版
http://bbs.bathome.net/thread-3056-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2楼 的帖子

多谢指正!受其他语言影响,粗心粗到家了。。已经更正!
心绪平和,眼藏静谧。

TOP

Set /a aFactor, yFactor, mFactor, dFactor = 0
非常奇怪的定义变量的方法,这样能给这4个变量定义吗?
技术问题请到论坛发帖求助!

TOP

返回列表