Date 日期转换为周数

嗨，不知道是否有人能帮我

如何在批脚本中将当前日期转换为周数

我只知道如何从我的电脑生成当前日期。%date%

2017年3月16日是第11周，使用：

---

或者，使用简单的一行程序从批处理文件调用Powershell：

@for /f %%a in ('powershell.exe get-date -UFormat %%V') do @set WeekInYear=%%a

---

纯批量溶液。归功于

---

它工作得很好！但是for循环中的句子是什么意思？@lcc

mshta

是一个内置工具，可以使用

mshta vbscript:…

或

mshta javascript:…

打开

html

文件（以及可以访问文件系统的脚本），您可以在其标题中插入可执行代码。虽然通常需要紧急转义，并且写入控制台并不容易（需要

GetStandardStream（1）

和一个有效管道），但对于短表达式来说很方便。你知道JScript的等效方法吗？@Aacini-标准javascript函数中没有，但编写起来没什么大不了的。没什么大不了的？我回顾了的16个答案和的13个答案，它们都有关于“这不起作用”的评论，或者非常复杂！我将尝试：

now=newdate（）；onejan=新日期（现在是.getFullYear（），0，1）；week=Math.ceil（（（现在-onejan）/86400000）+onejan.getDay（）+1）/7）

这个日期格式独立吗？虽然PowerShell比批处理文件强大得多，但这个“简单的一行程序”使用470 KB大小的PowerShell.exe文件，所以需要几秒钟（在我的测试中是6.96）以获得通过任何其他方法立即获得的相同结果！建议可能是：不要将PowerShell用于像这样简单的一次性计算……我的SSD可能会扭曲我自己的结果，因为在我的系统上运行该批处理只需不到一秒钟。但我同意阿奇尼的观点，那就是有时候通往简单的道路是要付出代价的！

@for /f %%a in ('powershell.exe get-date -UFormat %%V') do @set WeekInYear=%%a

@echo off & setlocal ENABLEEXTENSIONS
call :DateToWeek 2017 03 16 yn cw dw
echo/Today (in ISO 8601 Week Date format) is: %yn%-W%cw%-%dw%
pause
goto :EOF



::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 
:DateToWeek %yy% %mm% %dd% yn cw dw
::
:: By:   Ritchie Lawrence, Updated 2002-11-20. Version 1.1
::
:: Func: Returns an ISO 8601 Week date from a calendar date.
::       For NT4/2000/XP/2003.
:: 
:: Args: %1 year component to be converted, 2 or 4 digits (by val)
::       %2 month component to be converted, leading zero ok (by val)
::       %3 day of month to be converted, leading zero ok (by val)
::       %4 var to receive year, 4 digits (by ref)
::       %5 var to receive calendar week, 2 digits, 01 to 53 (by ref)
::       %6 var to receive day of week, 1 digit, 1 to 7 (by ref)
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
setlocal ENABLEEXTENSIONS
set yy=%1&set mm=%2&set dd=%3
if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,Jd=153*m+2
set /a Jd=Jd/5+dd+y*365+y/4-y/100+y/400-32045
set /a y=yy+4798,Jp=y*365+y/4-y/100+y/400-31738,t=Jp+3,Jp=t-t%%7
set /a y=yy+4799,Jt=y*365+y/4-y/100+y/400-31738,t=Jt+3,Jt=t-t%%7
set /a y=yy+4800,Jn=y*365+y/4-y/100+y/400-31738,t=Jn+3,Jn=t-t%%7
set /a Jr=%Jp%,yn=yy-1,yn+=Jd/Jt,yn+=Jd/Jn
if %Jd% GEQ %Jn% (set /a Jr=%Jn%) else (if %Jd% GEQ %Jt% set /a Jr=%Jt%)
set /a diff=Jd-Jr,cw=diff/7+1,wd=diff%%7,wd+=1
if %cw% LSS 10 set cw=0%cw%
endlocal&set %4=%yn%&set %5=%cw%&set %6=%wd%&goto :EOF