blocks|key|416665|text|您可以使用使用wmic+(但XP+Home中不包含WMIC+)：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|416666|@ECHO+OFF
::+Check+WMIC+is+available
WMIC.EXE+Alias+/?+>NUL+2>&1+%7C%7C+GOTO+s_error

::+Use+WMIC+to+retrieve+date+and+time
FOR+/F+"skip=1+tokens=1-6"+%25%25G+IN+('WMIC+Path+Win32_LocalTime+Get+Day%5E,Hour%5E,Minute%5E,Month%5E,Second%5E,Year+/Format:table')+DO+(
+++IF+"%25%25~L"==""+goto+s_done
++++++Set+_yyyy=%25%25L
++++++Set+_mm=00%25%25J
++++++Set+_dd=00%25%25G
++++++Set+_hour=00%25%25H
++++++SET+_minute=00%25%25I
)
:s_done

::+Pad+digits+with+leading+zeros
++++++Set+_mm=%25_mm:~-2%25
++++++Set+_dd=%25_dd:~-2%25
++++++Set+_hour=%25_hour:~-2%25
++++++Set+_minute=%25_minute:~-2%25

::+Display+the+date/time+in+ISO+8601+format:
Set+_isodate=%25_yyyy%25-%25_mm%25-%25_dd%25+%25_hour%25:%25_minute%25
Echo+%25_isodate%25

GOTO:EOF

:s_error
Echo+GetDate.cmd
Echo+Displays+date+and+time+independent+of+OS+Locale,+Language+or+date+format.
Echo+Requires+Windows+XP+Professional,+Vista+or+Windows+7
Echo.
Echo+Returns+6+environment+variables+containing+isodate,Year,Month,Day,hour+and+minute.|code-block|syntax|javascript|416667|您可以通过解析日期命令来查找当前日期格式所需的内容。|416668|第一个链接表示您可能需要在第二个Win7上编辑代码，以处理短日期/长日期表单中的一些额外皱纹。|416669|entityMap|0|LINK|mutability|MUTABLE|url|http://ss64.com/nt/syntax-getdate.html|1|http://www.robvanderwoude.com/amb_datetime.php^0|5|6|0|0|0|5|6|1|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@$A|X|B|Y|1|Z]]|C|$]]|$1|D|3|E|5|F|7|10|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|11|8|@]|9|@$A|12|B|13|1|14]]|C|$]]|$1|K|3|L|5|6|7|15|8|@]|9|@]|C|$]]|$1|M|3|-4|5|6|7|16|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]|U|$5|P|Q|R|C|$S|V]]]]

You can do it <a href="http://ss64.com/nt/syntax-getdate.html" rel="nofollow">using wmic</a> (but WMIC isn't included with XP Home):

<pre><code>@ECHO OFF
:: Check WMIC is available
WMIC.EXE Alias /? &gt;NUL 2&gt;&amp;1 || GOTO s_error

:: Use WMIC to retrieve date and time
FOR /F "skip=1 tokens=1-6" %%G IN ('WMIC Path Win32_LocalTime Get Day^,Hour^,Minute^,Month^,Second^,Year /Format:table') DO (
 IF "%%~L"=="" goto s_done
 Set _yyyy=%%L
 Set _mm=00%%J
 Set _dd=00%%G
 Set _hour=00%%H
 SET _minute=00%%I
)
:s_done

:: Pad digits with leading zeros
 Set _mm=%_mm:~-2%
 Set _dd=%_dd:~-2%
 Set _hour=%_hour:~-2%
 Set _minute=%_minute:~-2%

:: Display the date/time in ISO 8601 format:
Set _isodate=%_yyyy%-%_mm%-%_dd% %_hour%:%_minute%
Echo %_isodate%

GOTO:EOF

:s_error
Echo GetDate.cmd
Echo Displays date and time independent of OS Locale, Language or date format.
Echo Requires Windows XP Professional, Vista or Windows 7
Echo.
Echo Returns 6 environment variables containing isodate,Year,Month,Day,hour and minute.
</code></pre>

And you can do it by <a href="http://www.robvanderwoude.com/amb_datetime.php" rel="nofollow">parsing the date command</a> to lookup what the current date format is required to be.

The first link indicates you might need to edit the code in the second, on Win7, to handle a few extra wrinkles around short date/long date form.

blocks|key|416687|text|我在http://forums.techguy.org/dos-other/837046-solved-date-format-bat-file.html里找到了这个|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|416688|我对它做了一些修改，使它实际上被分成了3个环境变量。|416689|缺点是它需要查询注册表，可能是为了找出订单日期、月份和年份。|416690|@Echo+Off
Set+_Date=%25date%25
If+"%25_Date%25A"+LSS+"A"+(Set+_NumTok=1-3)+Else+(Set+_NumTok=2-4)
::+Default+Delimiter+of+TAB+and+Space+are+used
For+/F+"TOKENS=2*"+%25%25A+In+('REG+QUERY+"HKCU\Control+Panel\International"+/v+iDate')+Do+Set+_iDate=%25%25B
For+/F+"TOKENS=2*"+%25%25A+In+('REG+QUERY+"HKCU\Control+Panel\International"+/v+sDate')+Do+Set+_sDate=%25%25B
IF+%25_iDate%25==0+For+/F+"TOKENS=%25_NumTok%25+DELIMS=%25_sDate%25+"+%25%25B+In+("%25_Date%25")+Do+Set+_fdate=%25%25D%25%25B%25%25C
IF+%25_iDate%25==1+For+/F+"TOKENS=%25_NumTok%25+DELIMS=%25_sDate%25+"+%25%25B+In+("%25_Date%25")+Do+Set+_fdate=%25%25D%25%25C%25%25B
IF+%25_iDate%25==2+For+/F+"TOKENS=%25_NumTok%25+DELIMS=%25_sDate%25+"+%25%25B+In+("%25_Date%25")+Do+Set+_fdate=%25%25B%25%25C%25%25D
Set+_Month=%25_fdate:~4,2%25
Set+_Day=%25_fdate:~6,2%25
Set+_Year=%25_fdate:~0,4%25
Echo+_Year=%25_Year%25
Echo+_Month=%25_Month%25
Echo+_Day=%25_Day%25|code-block|syntax|javascript|416691|entityMap|0|LINK|mutability|MUTABLE|url|http://forums.techguy.org/dos-other/837046-solved-date-format-bat-file.html^0|2|23|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|6|7|Y|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|Z|8|@]|9|@]|C|$]]|$1|H|3|I|5|J|7|10|8|@]|9|@]|C|$K|L]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

I found this in <a href="http://forums.techguy.org/dos-other/837046-solved-date-format-bat-file.html" rel="nofollow">http://forums.techguy.org/dos-other/837046-solved-date-format-bat-file.html</a>

I've reworked it a bit to actually split it in 3 environment variables.

The downside is it needs to query the registry, probably to find out the order day, month and year.

<pre><code>@Echo Off
Set _Date=%date%
If "%_Date%A" LSS "A" (Set _NumTok=1-3) Else (Set _NumTok=2-4)
:: Default Delimiter of TAB and Space are used
For /F "TOKENS=2*" %%A In ('REG QUERY "HKCU\Control Panel\International" /v iDate') Do Set _iDate=%%B
For /F "TOKENS=2*" %%A In ('REG QUERY "HKCU\Control Panel\International" /v sDate') Do Set _sDate=%%B
IF %_iDate%==0 For /F "TOKENS=%_NumTok% DELIMS=%_sDate% " %%B In ("%_Date%") Do Set _fdate=%%D%%B%%C
IF %_iDate%==1 For /F "TOKENS=%_NumTok% DELIMS=%_sDate% " %%B In ("%_Date%") Do Set _fdate=%%D%%C%%B
IF %_iDate%==2 For /F "TOKENS=%_NumTok% DELIMS=%_sDate% " %%B In ("%_Date%") Do Set _fdate=%%B%%C%%D
Set _Month=%_fdate:~4,2%
Set _Day=%_fdate:~6,2%
Set _Year=%_fdate:~0,4%
Echo _Year=%_Year%
Echo _Month=%_Month%
Echo _Day=%_Day%
</code></pre>

blocks|key|1736777|text|如果REG+QUERY被设置为类似于dd+yy的东西，那么sShortDate是不够的。使用REG+ADD|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1736778|@echo+off+&setlocal
for+/f+"tokens=2*"+%25%25a+in+('reg+query+"HKCU\Control+Panel\International"+/v+sShortDate%5E%7Cfind+"REG_SZ"')+do+set+"ssShortDate=%25%25b"
reg+add+"HKCU\Control+Panel\International"+/f+/v+sShortDate+/d+"dd+MM+yyyy"+>nul
set+"cdate=%25date%25"
reg+add+"HKCU\Control+Panel\International"+/f+/v+sShortDate+/d+"%25ssShortDate%25"+>nul
for+/f+"tokens=1-3"+%25%25i+in+("%25cdate%25")+do+set+"day=0%25%25i"&set+"month=0%25%25j"&set+"year=%25%25k"
set+"day=%25day:~-2%25"
set+"month=%25month:~-2%25"
echo.%25day%25.%25month%25.%25year%25
endlocal|code-block|syntax|javascript|1736779|entityMap^0|2|9|I|5|1A|7|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|U|8|@]|D|@]|E|$]]]|L|$]]

<code>REG QUERY</code> is not sufficient, if sShortDate was set to something like <code>dd yy</code>. Use <code>REG ADD</code>:

<pre><code>@echo off &amp;setlocal
for /f "tokens=2*" %%a in ('reg query "HKCU\Control Panel\International" /v sShortDate^|find "REG_SZ"') do set "ssShortDate=%%b"
reg add "HKCU\Control Panel\International" /f /v sShortDate /d "dd MM yyyy" &gt;nul
set "cdate=%date%"
reg add "HKCU\Control Panel\International" /f /v sShortDate /d "%ssShortDate%" &gt;nul
for /f "tokens=1-3" %%i in ("%cdate%") do set "day=0%%i"&amp;set "month=0%%j"&amp;set "year=%%k"
set "day=%day:~-2%"
set "month=%month:~-2%"
echo.%day%.%month%.%year%
endlocal
</code></pre>

blocks|key|416741|text|我已经修改了sashoalm的版本，以解决被压制的前导-零状态：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|416742|@Echo+OFF
SETLOCAL
If+"%25Date%25A"+LSS+"A"+(Set+_NumTok=1-3)+Else+(Set+_NumTok=2-4)
::+Default+Delimiter+of+TAB+and+Space+are+used
For+/F+"TOKENS=2*"+%25%25A+In+('REG+QUERY+"HKCU\Control+Panel\International"+/v+iDate')+Do+Set+_iDate=%25%25B
For+/F+"TOKENS=2*"+%25%25A+In+('REG+QUERY+"HKCU\Control+Panel\International"+/v+sDate')+Do+Set+_sDate=%25%25B
IF+%25_iDate%25==0+For+/F+"TOKENS=%25_NumTok%25+DELIMS=%25_sdate%25+"+%25%25F+In+("%25Date%25")+Do+CALL+:procdate+%25%25H+%25%25F+%25%25G
IF+%25_iDate%25==1+For+/F+"TOKENS=%25_NumTok%25+DELIMS=%25_sdate%25+"+%25%25F+In+("%25Date%25")+Do+CALL+:procdate+%25%25H+%25%25G+%25%25F
IF+%25_iDate%25==2+For+/F+"TOKENS=%25_NumTok%25+DELIMS=%25_sdate%25+"+%25%25F+In+("%25Date%25")+Do+CALL+:procdate+%25%25F+%25%25G+%25%25H
endlocal&SET+YYYYMMDD=%25YYYYMMDD%25
GOTO+:eof

::
::+Date+elements+are+supplied+in+Y,M,D+order+but+may+have+a+leading+zero
::
:procdate
::+if+single-digit+day+then+1%253+will+be+<100+else+2-digit
IF+1%253+LSS+100+(SET+YYYYMMDD=0%253)+ELSE+(SET+YYYYMMDD=%253)
::+if+single-digit+month+then+1%252+will+be+<100+else+2-digit
IF+1%252+LSS+100+(SET+YYYYMMDD=0%252%25YYYYMMDD%25)+ELSE+(SET+YYYYMMDD=%252%25YYYYMMDD%25)
::+Similarly+for+the+year+-+I've+never+seen+a+single-digit+year
IF+1%251+LSS+100+(SET+YYYYMMDD=20%25YYYYMMDD%25)+ELSE+(SET+YYYYMMDD=%251%25YYYYMMDD%25)
GOTO+:eof|code-block|syntax|javascript|416743|按您的意愿返回YYYYMMDD子字符串。|416744|有趣的是，在SETLOCAL之后插入|416745|IF+NOT+"%251"==""+set+date=%251|416746|将允许将本地序列中的任何日期(没有日期名称)解码为YYYYMMDD+(但请注意，与yy窗体一起提供的19+it个日期将显示为20+it如果有必要，很容易补偿)|416747|entityMap^0|6|8|0|0|0|6|8|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@$9|V|A|W|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|Y|8|@]|D|@]|E|$]]|$1|M|3|N|5|6|7|Z|8|@$9|10|A|11|B|C]]|D|@]|E|$]]|$1|O|3|P|5|H|7|12|8|@]|D|@]|E|$I|J]]|$1|Q|3|R|5|6|7|13|8|@]|D|@]|E|$]]|$1|S|3|-4|5|6|7|14|8|@]|D|@]|E|$]]]|T|$]]

I've reworked <code>sashoalm</code>'s version to take care of the suppressed-leading-zero situation:

<pre><code>@Echo OFF
SETLOCAL
If "%Date%A" LSS "A" (Set _NumTok=1-3) Else (Set _NumTok=2-4)
:: Default Delimiter of TAB and Space are used
For /F "TOKENS=2*" %%A In ('REG QUERY "HKCU\Control Panel\International" /v iDate') Do Set _iDate=%%B
For /F "TOKENS=2*" %%A In ('REG QUERY "HKCU\Control Panel\International" /v sDate') Do Set _sDate=%%B
IF %_iDate%==0 For /F "TOKENS=%_NumTok% DELIMS=%_sdate% " %%F In ("%Date%") Do CALL :procdate %%H %%F %%G
IF %_iDate%==1 For /F "TOKENS=%_NumTok% DELIMS=%_sdate% " %%F In ("%Date%") Do CALL :procdate %%H %%G %%F
IF %_iDate%==2 For /F "TOKENS=%_NumTok% DELIMS=%_sdate% " %%F In ("%Date%") Do CALL :procdate %%F %%G %%H
endlocal&amp;SET YYYYMMDD=%YYYYMMDD%
GOTO :eof

::
:: Date elements are supplied in Y,M,D order but may have a leading zero
::
:procdate
:: if single-digit day then 1%3 will be &lt;100 else 2-digit
IF 1%3 LSS 100 (SET YYYYMMDD=0%3) ELSE (SET YYYYMMDD=%3)
:: if single-digit month then 1%2 will be &lt;100 else 2-digit
IF 1%2 LSS 100 (SET YYYYMMDD=0%2%YYYYMMDD%) ELSE (SET YYYYMMDD=%2%YYYYMMDD%)
:: Similarly for the year - I've never seen a single-digit year
IF 1%1 LSS 100 (SET YYYYMMDD=20%YYYYMMDD%) ELSE (SET YYYYMMDD=%1%YYYYMMDD%)
GOTO :eof
</code></pre>

returning YYYYMMDD - substring at your will.

Interestingly, inserting after <code>SETLOCAL</code>

<pre><code>IF NOT "%1"=="" set date=%1
</code></pre>

will allow any date in the local sequence (without the dayname) to be decoded to YYYYMMDD (but be careful that 19xx dates provided with the yy form will appear as 20xx - easily compensated-for if you find it necessary)

blocks|key|1736847|text|下面有一个纯粹的批处理解决方案，它只使用日期命令和%25+DATE+%25变量，所以它可以在任何Windows版本上工作。要使这个程序真正通用，只需添加第二行日期命令以其他语言显示的日期和月份部分的名称，并以斜杠括起来。例如，假设在德语中，day部分显示为TT，所以您只需要修改这个值：set+DayNames=/dd/tt/，以便在德语Windows中也使用这个程序(除了所有使用DD的语言之外)。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1736848|@echo+off
setlocal+EnableDelayedExpansion

rem+GetStdDate.bat:+Get+date+in+standard+format+independently+of+Regional+Settings
rem+Antonio+Perez+Ayala

rem+Set+Day+and+Month+names+shown+by+second+line+of+DATE+command,+enclosed+in+slashes+(add+any+missing+language):
set+DayNames=/dd/
set+MonthNames=/mm/

rem+Get+date+NAMES+from+second+line+of+date+COMMAND,+enclosed+in+parentheses
for+/F+"skip=1+tokens=2+delims=()"+%25%25n+in+('date+%5E<+NUL')+do+(
+++rem+Separate+and+store+date+names
+++for+/F+"tokens=1-3+delims=/-.:"+%25%25a+in+("%25%25n")+do+(
++++++set+one=%25%25a&+set+two=%25%25b&+set+three=%25%25c
++++++rem+Get+date+VALUES+from+%25date%25+VARIABLE
++++++for+/F+"tokens=1-3+delims=/-.:"+%25%25x+in+("%25date%25")+do+(
+++++++++rem+Assign+date+values+to+date+names
+++++++++set+%25%25a=%25%25x&+set+%25%25b=%25%25y&+set+%25%25c=%25%25z
++++++)
+++)
)

rem+Identify+locale+date+format+and+assemble+StdDate=YYYY/MM/DD
if+"!DayNames:/%25one%25/=!"+neq+"%25DayNames%25"+(
+++rem+Locale+format+is+DD/MM/YYYY
+++set+StdDate=!%25three%25!/!%25two%25!/!%25one%25!
)+else+if+"!MonthNames:/%25one%25/=!"+neq+"%25MonthNames%25"+(
+++rem+Locale+format+is+MM/DD/YYYY
+++set+StdDate=!%25three%25!/!%25one%25!/!%25two%25!
)+else+(
+++rem+Locale+format+is+YYYY/MM/DD
+++set+StdDate=!%25one%25!/!%25two%25!/!%25three%25!
)

echo+Standard+date:+%25StdDate%25|code-block|syntax|javascript|1736849|entityMap^0|3V|K|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

Below there is a pure Batch solution that just use DATE command and %DATE% variable, so it works on any Windows version. To make this program really universal, just add the name of the day and month parts shown by second line of DATE command in other languages, enclosed in slashes. For example, let's suppose that in German the day part is shown as TT, so you just need to modify this value: <code>set DayNames=/dd/tt/</code> in order to also use this program in German language Windows (besides all the languages that use DD for the day part).

<pre><code>@echo off
setlocal EnableDelayedExpansion

rem GetStdDate.bat: Get date in standard format independently of Regional Settings
rem Antonio Perez Ayala

rem Set Day and Month names shown by second line of DATE command, enclosed in slashes (add any missing language):
set DayNames=/dd/
set MonthNames=/mm/

rem Get date NAMES from second line of date COMMAND, enclosed in parentheses
for /F "skip=1 tokens=2 delims=()" %%n in ('date ^&lt; NUL') do (
 rem Separate and store date names
 for /F "tokens=1-3 delims=/-.:" %%a in ("%%n") do (
 set one=%%a&amp; set two=%%b&amp; set three=%%c
 rem Get date VALUES from %date% VARIABLE
 for /F "tokens=1-3 delims=/-.:" %%x in ("%date%") do (
 rem Assign date values to date names
 set %%a=%%x&amp; set %%b=%%y&amp; set %%c=%%z
 )
 )
)

rem Identify locale date format and assemble StdDate=YYYY/MM/DD
if "!DayNames:/%one%/=!" neq "%DayNames%" (
 rem Locale format is DD/MM/YYYY
 set StdDate=!%three%!/!%two%!/!%one%!
) else if "!MonthNames:/%one%/=!" neq "%MonthNames%" (
 rem Locale format is MM/DD/YYYY
 set StdDate=!%three%!/!%one%!/!%two%!
) else (
 rem Locale format is YYYY/MM/DD
 set StdDate=!%one%!/!%two%!/!%three%!
)

echo Standard date: %StdDate%
</code></pre>

blocks|key|2525998|text|我还有一个关于机器人拷贝的建议：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2525999|@echo+off+&setlocal+enabledelayedexpansion
set+"day="
for+/f+"tokens=3,4,8skip=4delims=:+"+%25%25i+in+('robocopy')+do+if+not+defined+day+(
++++set+"month=%25%25i"
++++set+"day=0%25%25j"
++++set+"year=%25%25k"
)
set+/a+cnt=0
for+%25%25i+in+(Jan+Feb+Mar+Apr+May+Jun+Jul+Aug+Sep+Oct+Nov+Dec)+do+(
++++set+/a+cnt%2B=1
++++if+"%25%25i"=="%25month%25"+set+"month=0!cnt!"
)
set+"day=%25day:~-2%25"
set+"month=%25month:~-2%25"
echo.%25day%25.%25month%25.%25year%25
endlocal|code-block|syntax|javascript|2526000|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I have an additional suggestion with robocopy:

<pre><code>@echo off &amp;setlocal enabledelayedexpansion
set "day="
for /f "tokens=3,4,8skip=4delims=: " %%i in ('robocopy') do if not defined day (
 set "month=%%i"
 set "day=0%%j"
 set "year=%%k"
)
set /a cnt=0
for %%i in (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) do (
 set /a cnt+=1
 if "%%i"=="%month%" set "month=0!cnt!"
)
set "day=%day:~-2%"
set "month=%month:~-2%"
echo.%day%.%month%.%year%
endlocal
</code></pre>

blocks|key|1736885|text|试试这个:+Set_date.cm|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1736886|@echo+off&goto+:start
:Set_Date+DateEnv+[Date]+or+[/p="Prompt+for+Date:+"]+[/r]
echo.
echo.Usage:+Set_Date.cmd+DateEnv+[Date]+or+[/p="Prompt+for+Date:+"]
echo.Populates+date+variables+labeled:+'DateEnv_???',+see+below
echo.Accepted+date+formats:
echo.++++++++m-d-y,+m/d/y,+yyyymmdd,+dd-Mon-yy+or+7+digit+julian+date
echo.++++++++If+"%25%25date%25%25"+is+passed+as+the+2nd+arg+it+will+be+interpreted
echo.++++++++according+to+the+current+regional+date+setting+ie.+day+dd/mm/yyyy
echo.++++++++If+/r+is+passed+then+the+date+contained+in+the+DateEnv+variable
echo.++++++++and/or+the+[Date]+argument+will+be+interpreted+in+regional+format
echo.++++++++The+/r+option+should+be+placed+at+the+end+of+the+list+if+used
echo.++++++++The+/r+option+should+only+be+used+if+date+input+is+not+included
echo.++++++++in+one+of+the+default+listed+formats+or+unexpected+consequences...
echo.
echo.DateEnv,+if+passed+alone+may+be+a+valid+defined+date+variable+or+if
echo.undefined+then+todays+date+will+be+used+to+populate+the+variables
echo.Two+digit+years+input+'XX'+are+interpreted+as+the+year+'20XX'
echo.Valid+dates+must+be+in+the+year+1601+or+greater+for+the+validity+check
echo.Returns+0+in+errorlevel+if+the+date+is+valid,+else+non-zero
echo.
echo.If+DateEnv+is+valid+or+if+[Date]+is+passed+DateEnv_???+will+be+set+to:
echo.DateEnv_mdy+will+be+set+to+mm-dd-yyyy
echo.DateEnv_ymd+will+be+set+to+yyyymmdd
echo.DateEnv_y.m.d+will+be+set+to+yyyy.mm.dd
echo.DateEnv_dte+will+be+set+to+the+current+active+regional+date+format
echo.DateEnv_jul+will+be+set+to+the+7+digit+Julian+date
echo.DateEnv_dow+will+be+set+to+day+of+week,+ie.+Monday,+Tuesday,+etc.
echo.DateEnv_vrb+will+be+set+to+Verbose+Date,+ie.+Saturday,+August+20th,+2011
echo.DateEnv_dd+will+be+set+to+the+2+digit+day
echo.DateEnv_mm+will+be+set+to+the+2+digit+month
echo.DateEnv_yyyy+will+be+set+to+the+4+digit+year
echo.DateEnv_month+will+be+set+to+the+month,+ie.+February+or+December
echo.DateEnv_mon+will+be+set+to+the+3+letter+month,+ie.+Jan+or+Aug
echo.
echo.DateEnv+itself+will+not+be+changed+regardless+if+its+a+valid+date+or+not
echo.Also+formats+yyyymmdd+or+7+digit+julian+date+input+to+desired+output
echo.Example:+Set_Date+today+"%25%25date%25%25"+or+Set_Date+newyear99+01-Jan-99
echo.
echo.Finally:
echo.If+DateEnv+is+not+defined+and+there+is+no+second+argument+then+%25%25date%25%25+in
echo.the+current+regional+format+will+be+used+to+populate+the+variables
echo.If+/p+is+passed+as+2nd+argument+then+quoted+3rd+argument+will+prompt+for+date
echo.
echo.Examples:
echo.+++++++++set+"AprilsFools=4/1/1"
echo.+++++++++set_date+AprilFools
echo.+++++++++echo+Aprils+fools+date+for+2001+in+Julian+format+is:+%25%25AprilFools_jul%25%25
echo.+++++++++echo+Aprils+fools+date+in+2001+was+on+a+%25AprilFools_dow%25+%5E(Sunday%5E)
echo.+++++++++Set_Date+birthday+/p="Enter+your+birth+date:+"
echo.+++++++++ECHO+You+were+born+on+a+%25%25birthday_dow%25%25
echo.+++++++++set+"today="
echo.+++++++++Set_Date+today
echo.+++++++++echo+today+is+%25%25today_dte%25%25+or+%25%25today_jul%25%25+in+Julian+format
echo.
echo.If+the+'/p'+option+is+used+then+the+_GetString.cmd+routine+must+be+in+the+PATH
echo.+++++++++or+else+set/p+routine+will+ask+for+date+with+no+validity+checking
exit+/b+1

:start
set+"jul="&set+"Format="&set+"Sep="&set+"reg="
if+"%25~1"==""+exit+/b+255
if+/i+"%25~1"+equ+"/?"+goto+:Set_Date+Syntax
SetLocal+EnableDelayedExpansion
echo+%25*%7Cfind+/i+"/r">nul
if+%25errorlevel%25+equ+0+set/a+reg=1&if+/i+"%25~1"+equ+"/r"+shift
if+defined+%25~1+(call+set+jul=%25%25%25~1%25%25)+else+(
++if+"%25~2"==""+set+"jul=%25date%25"
)
if+not+"%25~2"==""+(
++if+/i+"%25~2"+neq+"/r"+(
++++set+"jul=%25~2"&set+"args=%25~3"
++)
)+else+(if+not+defined+%25~1+set/a+reg=1)
call+:RegDateFmt+Format+Separator+yy+mm+dd+jul
if+%25errorlevel%25+neq+0+goto+:BadDate
if+/i+"%25~2"+equ+"%25date%25"+set/a+reg=1
if+defined+reg+(
++set+"jul=!mm!-!dd!-!yy!"
)
if+/i+"%25jul%25"+equ+"/p"+(
++call+:_GetString.cmd+"%25args%25"+jul+/d
++if+!errorlevel!+gtr+0+goto+:BadDate
)+else+if+/i+"%25jul:~0,1%25"+gtr+"9"+(
++if+defined+args+set+"jul=%25jul%25+%25args%25"
++set+"jul=!jul:*+=!"
)+else+if+/i+"%25jul:~3,1%25"+gtr+"9"+(
++set+"Mon=%25jul:~3,3%25"
++call+:month_convert+Mon
++if+!errorlevel!+gtr+0+goto+:BadDate
++set+"jul=!Mon!-%25jul:~0,2%25-%25jul:~-2%25"
)
set+mdy=%25jul:/=%25
set+mdy=%25mdy:-=%25
if+/i+%25mdy%25+equ+%25jul%25+(
++call+:strlen+%25mdy%25
++if+/i+!errorlevel!+equ+7+(+
++++call+:date_cvt+mdy+/j
++)+else+(call+:date_cvt+jul+/j)
)+else+(call+:date_cvt+jul+/j)
if+/i+%25errorlevel%25+equ+0+(
++set/a+mdy=%25jul%25
++set/a+dow=%25jul%25+%25%25+7&call+:set_day+dow
)+else+(goto+:BadDate)
call+:date_cvt+mdy+/j
set+"vrb=%25mdy%25"
call+:format_verbose+vrb+dow+month
set/a+ymd=%25errorlevel%25
set+"mon=%25month:~0,3%25"
set/a+dte=%25ymd%25
call+:setRegDate+dte+Format+Separator+dow+mon
if+/i+%25errorlevel%25+gtr+0+goto+:BadDate
Endlocal&(
++call+set+"%25~1_mdy=%25mdy%25"&call+set+"%25~1_ymd=%25ymd%25"&call+set+"%25~1_jul=%25jul%25"
++call+set+"%25~1_vrb=%25vrb%25"&call+set+"%25~1_dow=%25dow%25"&call+set+"%25~1_dd=%25ymd:~-2%25"
++call+set+"%25~1_mm=%25mdy:~0,2%25"&call+set+"%25~1_yyyy=%25ymd:~0,4%25"
++call+set+"%25~1_mon=%25mon%25"&call+set+"%25~1_yy=%25ymd:~2,2%25"&call+set+"%25~1_dte=%25dte%25"
++call+set+"%25~1_y.m.d=%25ymd:~0,4%25.%25mdy:~0,2%25.%25ymd:~-2%25"&call+set+"%25~1_month=%25month%25"
++exit+/b+0
)
:BadDate
Endlocal&(
++call+set+"%25~1_mdy="&call+set+"%25~1_ymd="&call+set+"%25~1_dte="&call+set+"%25~1_jul="
++call+set+"%25~1_vrb="&call+set+"%25~1_dow="&call+set+"%25~1_vrb="&call+set+"%25~1_y.m.d="
++call+set+"%25~1_month="
)&exit+/b+%25errorlevel%25

::**********************************::
::*******%7C%7C++SUBROUTINES+++%7C%7C*******::
::**********************************::

:set_day
SetLocal&call+set/a+tkn=%25%25%25~1%25%25%2B1
for+/f+"tokens=%25tkn%25"+%25%25a+in+("Monday+Tuesday+Wednesday+Thursday+Friday+Saturday+Sunday")+do+(
++set+"dayofwk=%25%25a"
)
EndLocal&call+set+%25~1=%25dayofwk%25&exit+/b+1

:Date_Cvt+DateEnv+[/Julian]+Date_env+is+converted
if+"%25~1"==""+exit+/b+1
SetLocal&call+set+"mdy=%25%25%25~1%25%25"
set+ech=&set+"arg="
if+not+"%25~2"==""+(set+arg=%25~2&set+arg=!arg:~0,2!)
xcopy+/d:%25mdy%25+/h+/l+"%25~f0"+"%25~f0\">nul+2>&1
if+/i+%25errorlevel%25+equ+0+(
++for+/f+"tokens=1-3+delims=/-+"+%25%25a+in+("%25mdy%25")+do+(
++++set+m=%25%25a&set+d=%25%25b&set+"y=%25%25c"
++++if+/i+1!m!+lss+20+set+"m=0!m!"
++++if+/i+1!d!+lss+20+set+"d=0!d!"
++++if+/i+1!y!+lss+20+set+"y=0!y!"
++++if+/i+!y!+lss+80+(set+y=20!y!)+else+(if+!y!+lss+100+set+y=19!y!)
++++set+"mdy=!m!-!d!-!y!"
++)
)+else+(
++set+/a+rc=1
++for+/f+"tokens=1-3+delims=0123456789"+%25%25a+in+("%25mdy%25")+do+set+"rc=%25%25a"
++if+/i+!rc!+neq+1+set+/a+err=2&goto+:end
++call+:strlen+%25mdy%25
++if+/i+!errorlevel!+gtr+8+set+/a+err=3&goto+:end
)
set+"mdy=%25mdy:/=-%25"
set+"ymd=%25mdy:-=%25"
if+%25ymd%25==%25mdy%25+(
++call+:strlen+%25ymd%25
++set+/a+err=!errorlevel!
++if+/i+!err!+equ+7+if+/i+"%25arg%25"+equ+"/j"+(
++++call+:gdate+%25ymd%25
++++set+/a+ymd=!errorlevel!
++++set+/a+err=8&set+"arg="
++)
++if+/i+!err!+neq+8+goto+:end
++set+mdy=!ymd:~4,2!-!ymd:~6,2!-!ymd:~0,4!&set+"ech=!mdy!"
)+else+(
++set+ymd=%25ymd:~4,4%25%25ymd:~0,4%25&set+"ech=!ymd!"
)
xcopy+/d:%25mdy%25+/h+/l+"%25~f0"+"%25~f0\">nul+2>&1
set+/a+err=%25errorlevel%25
if+/i+%25err%25+neq+0+(set+ech=)
if+/i+%25err%25+equ+0+if+/i+"%25arg%25"+equ+"/j"+(
++call+:jdate+%25ymd%25
++set+/a+ech=!errorlevel!
)
:end
EndLocal&call+set+"%25~1=%25ech%25"&exit+/b+%25err%25

:Strlen+Returns+length+of+string+in+errorlevel
setlocal&set+"#=%25*"
if+not+defined+#+exit+/b+0
set/a+len=0
:loop
set/a+len%2B=1
set+"#=!#:~1!"&if+not+defined+#+endlocal&exit/b+%25len%25
goto+:loop

:jdate
SetLocal
set+"yyyymmdd=%25~1"
set+"yyyy=%25yyyymmdd:~0,4%25"
set+"mm=%25yyyymmdd:~4,2%25"
set+"dd=%25yyyymmdd:~6,2%25"
if+%25mm:~0,1%25+equ+0+set+"mm=%25mm:~1%25"
if+%25dd:~0,1%25+equ+0+set+"dd=%25dd:~1%25"
set+/a+Month1=(%25mm%25-14)/12
set+/a+Year1=%25yyyy%25%2B4800
set+/a+JDate=1461*(%25Year1%25%2B%25Month1%25)/4%2B367*(%25mm%25-2-12*%25Month1%25)%5E
+++++++++++++/12-(3*((%25Year1%25%2B%25Month1%25%2B100)/100))/4%2B%25dd%25-32075
EndLocal&exit+/b+%25JDate%25

:gdate
SetLocal
set+/a+p++++++=+%251+%2B+68569
set+/a+q++++++=+4+*+%25p%25+/+146097
set+/a+r++++++=+%25p%25+-+(+146097+*+%25q%25+%2B3+)+/+4
set+/a+s++++++=+4000+*+(+%25r%25+%2B+1+)+/+1461001
set+/a+t++++++=+%25r%25+-+1461+*+%25s%25+/+4+%2B+31
set+/a+u++++++=+80+*+%25t%25+/+2447
set+/a+v++++++=+%25u%25+/+11
set+/a+GYear++=+100+*+(+%25q%25+-+49+)+%2B+%25s%25+%2B+%25v%25
set+/a+GMonth+=+%25u%25+%2B+2+-+12+*+%25v%25
set+/a+GDay+++=+%25t%25+-+2447+*+%25u%25+/+80
if+/i+1%25GMonth%25+lss+20+set+"GMonth=0%25GMonth%25"
if+/i+1%25GDay%25+++lss+20+set+"GDay=0%25GDay%25"
set+"GDate=%25GYear%25%25GMonth%25%25GDay%25"
EndLocal&exit+/b+%25GDate%25

:Format_Verbose+M/D/Y+dayofweek+to+verbose+date
SetLocal&call+set+"dte=%25%25%25~1%25%25"
set+"dow=%25%25%25~2%25%25"
set+"st="
set+"day=%25dte:~3,2%25"
set+"mon=%25dte:~0,2%25"
set+"year=%25dte:~6,4%25"
set+"ymd=%25year%25%25mon%25%25day%25"
set+"dy=%25day:~1%25"
if+%25day:~0,1%25+equ+0+set+"day=%25day:~1%25"
if+%25mon:~0,1%25+equ+0+set+"mon=%25mon:~1%25"
set+months=January+February+March+April+May+June%5E
+July+August+September+October+November+December
for+/f+"tokens=%25mon%25"+%25%25a+in+("%25months%25")+do+set+"month=%25%25a"
if+/i+%25dy%25+equ+0+set+"st=th"
if+/i+%25dy%25+gtr+3+set+"st=th"
if+/i+%25day%25+geq+11+if+/i+%25day%25+leq+13+set+"st=th"
if+defined+st+goto+:end
set/a+rst=%25day%25+%25%25+10
for+/f+"tokens=%25rst%25"+%25%25s+in+("st+nd+rd")+do+set+"st=%25%25s"
:end
set+"dow=%25dow%25,+%25month%25+%25day%25%25st%25,+%25year%25"
EndLocal&call+set+%25~1=%25dow%25&call+set+%25~3=%25month%25&exit+/b+%25ymd%25

:_GetString.cmd
set+p0=%250&set+"p0=!p0:~1!"
if+not+exist+_GetString.cmd+(
++call+:checkpath+%25p0%25
++if+!errorlevel!+neq+0+(
++++set/p+%25~2="%25~1"
++++exit/b+0
++)
)
call+_GetString.cmd+"%25~1"+%25~2+%25~3
exit/b+%25errorlevel%25

:checkpath
if+exist+"%25~$PATH:1"+exit/b+0
exit/b+1

:RegDateFmt+Format+Separator+y+m+d+dte
if+"%25~2"==""+exit/b+1
setlocal+EnabledelayedExpansion
set+"Day="&set+"Mon="&set+"dte="
if+not+"%25~6"==""+set+"dte=!%25~6!"
if+not+defined+dte+set+"dte=%25date%25"
for+/f+"tokens=2+delims=:"+%25%25A+in+('date%5E<nul')+do+set+Format=%25%25A&goto+:next
:next
set+"Format=%25Format:+=%25"
for+%25%25A+in+(/+-+.+,)+do+(
++echo+%25Format%25%7Cfind+"%25%25A">nul&if+!errorlevel!+equ+0+set+"Separator=%25%25A"
)
if+/i+%25Format:~0,1%25+gtr+9+set+"Day=Day+"
for+/f+"skip=1+tokens=2-4+delims=(-)"+%25%25a+in+('date%5E<nul')+do+(
++set+"Format=%25Day%25%25%25a%25Separator%25%25%25b%25Separator%25%25%25c"
++for+/f+"tokens=1-3+delims=.-/+"+%25%25d+in+("%25dte:*+=%25")+do+(
++++set+%25%25a=%25%25d&set+%25%25b=%25%25e&set+"%25%25c=%25%25f"
++++echo+!yy:~3!%7Cfind+"ECHO">nul
++++if+/i+"!errorlevel!"+neq+"0"+set+"Format=!Format:yy=yyyy!"
++++if+/i+"!mm:~0,1!"+gtr+"9"+(
++++++set+"Format=!Format:mm=Mon!"
++++++call+:month_convert+mm
++++++if+/i+"!errorlevel!"+neq+"0"+endlocal&exit/b+1
++++)
++)
)
endlocal&(
++call+set+"%25~1=%25Format%25"
++call+set+"%25~2=%25Separator%25"
++if+not+"%25~3"==""+call+set+"%25~3=%25yy%25"
++if+not+"%25~4"==""+call+set+"%25~4=%25mm%25"
++if+not+"%25~5"==""+call+set+"%25~5=%25dd%25"
)&exit/b+0

:month_convert
set+"months=Jan+Feb+Mar+Apr+May+Jun+Jul+Aug+Sep+Oct+Nov+Dec"
call+set+"month=%25%25%25~1%25%25"
set/a+mnum=0
for+%25%25m+in+(%25months%25)+do+set/a+mnum%2B=1&if+/i+%25month%25+equ+%25%25m+call+set+"%25~1=!mnum!"&exit+/b+0
exit/b+1

:setRegDate+dte+format+sep+dow+mon
setlocal+EnableDelayedExpansion
if+/i+"%25~5"==""+exit/b+1
set+mon=!%25~5!&set+dow=!%25~4!&set+"dow=!dow:~0,3!+"
set+sep=!%25~3!&set+"format=!%25~2!"&set+"dte=!%25~1!"
set+yyyy=%25dte:~0,4%25&set+yy=%25dte:~2,2%25&set+mm=%25dte:~4,2%25&set+"dd=%25dte:~-2%25"
set+"toks=2-4"
echo+%25format%25%7Cfind+"+">nul
if+%25errorlevel%25+equ+1+set+"dow="&+set+"toks=1-3"
for+/f+"tokens=%25toks%25+delims=%25sep%25+"+%25%25a+in+("%25format%25")+do+(
++set+"dte=%25dow%25!%25%25a!%25sep%25!%25%25b!%25sep%25!%25%25c!"
)
endlocal&call+set+"%25~1=%25dte%25"&exit/b+0+|code-block|syntax|javascript|1736887|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try this: Set_date.cm

<pre><code>@echo off&amp;goto :start
:Set_Date DateEnv [Date] or [/p="Prompt for Date: "] [/r]
echo.
echo.Usage: Set_Date.cmd DateEnv [Date] or [/p="Prompt for Date: "]
echo.Populates date variables labeled: 'DateEnv_???', see below
echo.Accepted date formats:
echo. m-d-y, m/d/y, yyyymmdd, dd-Mon-yy or 7 digit julian date
echo. If "%%date%%" is passed as the 2nd arg it will be interpreted
echo. according to the current regional date setting ie. day dd/mm/yyyy
echo. If /r is passed then the date contained in the DateEnv variable
echo. and/or the [Date] argument will be interpreted in regional format
echo. The /r option should be placed at the end of the list if used
echo. The /r option should only be used if date input is not included
echo. in one of the default listed formats or unexpected consequences...
echo.
echo.DateEnv, if passed alone may be a valid defined date variable or if
echo.undefined then todays date will be used to populate the variables
echo.Two digit years input 'XX' are interpreted as the year '20XX'
echo.Valid dates must be in the year 1601 or greater for the validity check
echo.Returns 0 in errorlevel if the date is valid, else non-zero
echo.
echo.If DateEnv is valid or if [Date] is passed DateEnv_??? will be set to:
echo.DateEnv_mdy will be set to mm-dd-yyyy
echo.DateEnv_ymd will be set to yyyymmdd
echo.DateEnv_y.m.d will be set to yyyy.mm.dd
echo.DateEnv_dte will be set to the current active regional date format
echo.DateEnv_jul will be set to the 7 digit Julian date
echo.DateEnv_dow will be set to day of week, ie. Monday, Tuesday, etc.
echo.DateEnv_vrb will be set to Verbose Date, ie. Saturday, August 20th, 2011
echo.DateEnv_dd will be set to the 2 digit day
echo.DateEnv_mm will be set to the 2 digit month
echo.DateEnv_yyyy will be set to the 4 digit year
echo.DateEnv_month will be set to the month, ie. February or December
echo.DateEnv_mon will be set to the 3 letter month, ie. Jan or Aug
echo.
echo.DateEnv itself will not be changed regardless if its a valid date or not
echo.Also formats yyyymmdd or 7 digit julian date input to desired output
echo.Example: Set_Date today "%%date%%" or Set_Date newyear99 01-Jan-99
echo.
echo.Finally:
echo.If DateEnv is not defined and there is no second argument then %%date%% in
echo.the current regional format will be used to populate the variables
echo.If /p is passed as 2nd argument then quoted 3rd argument will prompt for date
echo.
echo.Examples:
echo. set "AprilsFools=4/1/1"
echo. set_date AprilFools
echo. echo Aprils fools date for 2001 in Julian format is: %%AprilFools_jul%%
echo. echo Aprils fools date in 2001 was on a %AprilFools_dow% ^(Sunday^)
echo. Set_Date birthday /p="Enter your birth date: "
echo. ECHO You were born on a %%birthday_dow%%
echo. set "today="
echo. Set_Date today
echo. echo today is %%today_dte%% or %%today_jul%% in Julian format
echo.
echo.If the '/p' option is used then the _GetString.cmd routine must be in the PATH
echo. or else set/p routine will ask for date with no validity checking
exit /b 1

:start
set "jul="&amp;set "Format="&amp;set "Sep="&amp;set "reg="
if "%~1"=="" exit /b 255
if /i "%~1" equ "/?" goto :Set_Date Syntax
SetLocal EnableDelayedExpansion
echo %*|find /i "/r"&gt;nul
if %errorlevel% equ 0 set/a reg=1&amp;if /i "%~1" equ "/r" shift
if defined %~1 (call set jul=%%%~1%%) else (
 if "%~2"=="" set "jul=%date%"
)
if not "%~2"=="" (
 if /i "%~2" neq "/r" (
 set "jul=%~2"&amp;set "args=%~3"
 )
) else (if not defined %~1 set/a reg=1)
call :RegDateFmt Format Separator yy mm dd jul
if %errorlevel% neq 0 goto :BadDate
if /i "%~2" equ "%date%" set/a reg=1
if defined reg (
 set "jul=!mm!-!dd!-!yy!"
)
if /i "%jul%" equ "/p" (
 call :_GetString.cmd "%args%" jul /d
 if !errorlevel! gtr 0 goto :BadDate
) else if /i "%jul:~0,1%" gtr "9" (
 if defined args set "jul=%jul% %args%"
 set "jul=!jul:* =!"
) else if /i "%jul:~3,1%" gtr "9" (
 set "Mon=%jul:~3,3%"
 call :month_convert Mon
 if !errorlevel! gtr 0 goto :BadDate
 set "jul=!Mon!-%jul:~0,2%-%jul:~-2%"
)
set mdy=%jul:/=%
set mdy=%mdy:-=%
if /i %mdy% equ %jul% (
 call :strlen %mdy%
 if /i !errorlevel! equ 7 ( 
 call :date_cvt mdy /j
 ) else (call :date_cvt jul /j)
) else (call :date_cvt jul /j)
if /i %errorlevel% equ 0 (
 set/a mdy=%jul%
 set/a dow=%jul% %% 7&amp;call :set_day dow
) else (goto :BadDate)
call :date_cvt mdy /j
set "vrb=%mdy%"
call :format_verbose vrb dow month
set/a ymd=%errorlevel%
set "mon=%month:~0,3%"
set/a dte=%ymd%
call :setRegDate dte Format Separator dow mon
if /i %errorlevel% gtr 0 goto :BadDate
Endlocal&amp;(
 call set "%~1_mdy=%mdy%"&amp;call set "%~1_ymd=%ymd%"&amp;call set "%~1_jul=%jul%"
 call set "%~1_vrb=%vrb%"&amp;call set "%~1_dow=%dow%"&amp;call set "%~1_dd=%ymd:~-2%"
 call set "%~1_mm=%mdy:~0,2%"&amp;call set "%~1_yyyy=%ymd:~0,4%"
 call set "%~1_mon=%mon%"&amp;call set "%~1_yy=%ymd:~2,2%"&amp;call set "%~1_dte=%dte%"
 call set "%~1_y.m.d=%ymd:~0,4%.%mdy:~0,2%.%ymd:~-2%"&amp;call set "%~1_month=%month%"
 exit /b 0
)
:BadDate
Endlocal&amp;(
 call set "%~1_mdy="&amp;call set "%~1_ymd="&amp;call set "%~1_dte="&amp;call set "%~1_jul="
 call set "%~1_vrb="&amp;call set "%~1_dow="&amp;call set "%~1_vrb="&amp;call set "%~1_y.m.d="
 call set "%~1_month="
)&amp;exit /b %errorlevel%

::**********************************::
::*******|| SUBROUTINES ||*******::
::**********************************::

:set_day
SetLocal&amp;call set/a tkn=%%%~1%%+1
for /f "tokens=%tkn%" %%a in ("Monday Tuesday Wednesday Thursday Friday Saturday Sunday") do (
 set "dayofwk=%%a"
)
EndLocal&amp;call set %~1=%dayofwk%&amp;exit /b 1

:Date_Cvt DateEnv [/Julian] Date_env is converted
if "%~1"=="" exit /b 1
SetLocal&amp;call set "mdy=%%%~1%%"
set ech=&amp;set "arg="
if not "%~2"=="" (set arg=%~2&amp;set arg=!arg:~0,2!)
xcopy /d:%mdy% /h /l "%~f0" "%~f0\"&gt;nul 2&gt;&amp;1
if /i %errorlevel% equ 0 (
 for /f "tokens=1-3 delims=/- " %%a in ("%mdy%") do (
 set m=%%a&amp;set d=%%b&amp;set "y=%%c"
 if /i 1!m! lss 20 set "m=0!m!"
 if /i 1!d! lss 20 set "d=0!d!"
 if /i 1!y! lss 20 set "y=0!y!"
 if /i !y! lss 80 (set y=20!y!) else (if !y! lss 100 set y=19!y!)
 set "mdy=!m!-!d!-!y!"
 )
) else (
 set /a rc=1
 for /f "tokens=1-3 delims=0123456789" %%a in ("%mdy%") do set "rc=%%a"
 if /i !rc! neq 1 set /a err=2&amp;goto :end
 call :strlen %mdy%
 if /i !errorlevel! gtr 8 set /a err=3&amp;goto :end
)
set "mdy=%mdy:/=-%"
set "ymd=%mdy:-=%"
if %ymd%==%mdy% (
 call :strlen %ymd%
 set /a err=!errorlevel!
 if /i !err! equ 7 if /i "%arg%" equ "/j" (
 call :gdate %ymd%
 set /a ymd=!errorlevel!
 set /a err=8&amp;set "arg="
 )
 if /i !err! neq 8 goto :end
 set mdy=!ymd:~4,2!-!ymd:~6,2!-!ymd:~0,4!&amp;set "ech=!mdy!"
) else (
 set ymd=%ymd:~4,4%%ymd:~0,4%&amp;set "ech=!ymd!"
)
xcopy /d:%mdy% /h /l "%~f0" "%~f0\"&gt;nul 2&gt;&amp;1
set /a err=%errorlevel%
if /i %err% neq 0 (set ech=)
if /i %err% equ 0 if /i "%arg%" equ "/j" (
 call :jdate %ymd%
 set /a ech=!errorlevel!
)
:end
EndLocal&amp;call set "%~1=%ech%"&amp;exit /b %err%

:Strlen Returns length of string in errorlevel
setlocal&amp;set "#=%*"
if not defined # exit /b 0
set/a len=0
:loop
set/a len+=1
set "#=!#:~1!"&amp;if not defined # endlocal&amp;exit/b %len%
goto :loop

:jdate
SetLocal
set "yyyymmdd=%~1"
set "yyyy=%yyyymmdd:~0,4%"
set "mm=%yyyymmdd:~4,2%"
set "dd=%yyyymmdd:~6,2%"
if %mm:~0,1% equ 0 set "mm=%mm:~1%"
if %dd:~0,1% equ 0 set "dd=%dd:~1%"
set /a Month1=(%mm%-14)/12
set /a Year1=%yyyy%+4800
set /a JDate=1461*(%Year1%+%Month1%)/4+367*(%mm%-2-12*%Month1%)^
 /12-(3*((%Year1%+%Month1%+100)/100))/4+%dd%-32075
EndLocal&amp;exit /b %JDate%

:gdate
SetLocal
set /a p = %1 + 68569
set /a q = 4 * %p% / 146097
set /a r = %p% - ( 146097 * %q% +3 ) / 4
set /a s = 4000 * ( %r% + 1 ) / 1461001
set /a t = %r% - 1461 * %s% / 4 + 31
set /a u = 80 * %t% / 2447
set /a v = %u% / 11
set /a GYear = 100 * ( %q% - 49 ) + %s% + %v%
set /a GMonth = %u% + 2 - 12 * %v%
set /a GDay = %t% - 2447 * %u% / 80
if /i 1%GMonth% lss 20 set "GMonth=0%GMonth%"
if /i 1%GDay% lss 20 set "GDay=0%GDay%"
set "GDate=%GYear%%GMonth%%GDay%"
EndLocal&amp;exit /b %GDate%

:Format_Verbose M/D/Y dayofweek to verbose date
SetLocal&amp;call set "dte=%%%~1%%"
set "dow=%%%~2%%"
set "st="
set "day=%dte:~3,2%"
set "mon=%dte:~0,2%"
set "year=%dte:~6,4%"
set "ymd=%year%%mon%%day%"
set "dy=%day:~1%"
if %day:~0,1% equ 0 set "day=%day:~1%"
if %mon:~0,1% equ 0 set "mon=%mon:~1%"
set months=January February March April May June^
 July August September October November December
for /f "tokens=%mon%" %%a in ("%months%") do set "month=%%a"
if /i %dy% equ 0 set "st=th"
if /i %dy% gtr 3 set "st=th"
if /i %day% geq 11 if /i %day% leq 13 set "st=th"
if defined st goto :end
set/a rst=%day% %% 10
for /f "tokens=%rst%" %%s in ("st nd rd") do set "st=%%s"
:end
set "dow=%dow%, %month% %day%%st%, %year%"
EndLocal&amp;call set %~1=%dow%&amp;call set %~3=%month%&amp;exit /b %ymd%

:_GetString.cmd
set p0=%0&amp;set "p0=!p0:~1!"
if not exist _GetString.cmd (
 call :checkpath %p0%
 if !errorlevel! neq 0 (
 set/p %~2="%~1"
 exit/b 0
 )
)
call _GetString.cmd "%~1" %~2 %~3
exit/b %errorlevel%

:checkpath
if exist "%~$PATH:1" exit/b 0
exit/b 1

:RegDateFmt Format Separator y m d dte
if "%~2"=="" exit/b 1
setlocal EnabledelayedExpansion
set "Day="&amp;set "Mon="&amp;set "dte="
if not "%~6"=="" set "dte=!%~6!"
if not defined dte set "dte=%date%"
for /f "tokens=2 delims=:" %%A in ('date^&lt;nul') do set Format=%%A&amp;goto :next
:next
set "Format=%Format: =%"
for %%A in (/ - . ,) do (
 echo %Format%|find "%%A"&gt;nul&amp;if !errorlevel! equ 0 set "Separator=%%A"
)
if /i %Format:~0,1% gtr 9 set "Day=Day "
for /f "skip=1 tokens=2-4 delims=(-)" %%a in ('date^&lt;nul') do (
 set "Format=%Day%%%a%Separator%%%b%Separator%%%c"
 for /f "tokens=1-3 delims=.-/ " %%d in ("%dte:* =%") do (
 set %%a=%%d&amp;set %%b=%%e&amp;set "%%c=%%f"
 echo !yy:~3!|find "ECHO"&gt;nul
 if /i "!errorlevel!" neq "0" set "Format=!Format:yy=yyyy!"
 if /i "!mm:~0,1!" gtr "9" (
 set "Format=!Format:mm=Mon!"
 call :month_convert mm
 if /i "!errorlevel!" neq "0" endlocal&amp;exit/b 1
 )
 )
)
endlocal&amp;(
 call set "%~1=%Format%"
 call set "%~2=%Separator%"
 if not "%~3"=="" call set "%~3=%yy%"
 if not "%~4"=="" call set "%~4=%mm%"
 if not "%~5"=="" call set "%~5=%dd%"
)&amp;exit/b 0

:month_convert
set "months=Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
call set "month=%%%~1%%"
set/a mnum=0
for %%m in (%months%) do set/a mnum+=1&amp;if /i %month% equ %%m call set "%~1=!mnum!"&amp;exit /b 0
exit/b 1

:setRegDate dte format sep dow mon
setlocal EnableDelayedExpansion
if /i "%~5"=="" exit/b 1
set mon=!%~5!&amp;set dow=!%~4!&amp;set "dow=!dow:~0,3! "
set sep=!%~3!&amp;set "format=!%~2!"&amp;set "dte=!%~1!"
set yyyy=%dte:~0,4%&amp;set yy=%dte:~2,2%&amp;set mm=%dte:~4,2%&amp;set "dd=%dte:~-2%"
set "toks=2-4"
echo %format%|find " "&gt;nul
if %errorlevel% equ 1 set "dow="&amp; set "toks=1-3"
for /f "tokens=%toks% delims=%sep% " %%a in ("%format%") do (
 set "dte=%dow%!%%a!%sep%!%%b!%sep%!%%c!"
)
endlocal&amp;call set "%~1=%dte%"&amp;exit/b 0 
</code></pre>

blocks|key|2526035|text|这一职能应适用于所有区域。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2526036|备注：|offset|length|style|BOLD|2526037|返回MMM区域的文本格式的月份|2526038|@echo+off
++call+:GetDateIntl+year+month+day+
++echo/Using+GetDateIntl+you+get:+%25year%25-%25month%25-%25day%25
goto:eof

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:GetDateIntl+yy+mm+dd+[/A]
::+Returns+the+current+date+on+any+machine+with+regional-independent+settings
::+Arguments:
::+++yy+=+variable+name+for+the+year+output
::+++mm+=+variable+name+for+the+month+output
::+++dd+=+variable+name+for+the+day+output
::+++/A+=+OPTIONAL,+removes+leading+0+on+days/months+smaller+than+10+(example:+01+becomes+1)
::+Remarks:
::++Will+return+month+in+text+format+in+regions+with+MMM+month
::
SETLOCAL+ENABLEEXTENSIONS
if+"%25date%25A"+LSS+"A"+(set+toks=1-3)+else+(set+toks=2-4)
for+/f+"tokens=2-4+delims=(-)"+%25%25a+in+('echo:%5E%7Cdate')+do+(
++for+/f+"tokens=%25toks%25+delims=.-/+"+%25%25i+in+('date/t')+do+(
++++set+'%25%25a'=%25%25i
++++set+'%25%25b'=%25%25j
++++set+'%25%25c'=%25%25k
++)
)
if+/I+"%25'yy'%25"==""+set+"'yy'=%25'aa'%25"
if+/I+"%25'yy'%25"==""+(+set+"'yy'=%25'jj'%25"+&+set+"'dd'=%25'tt'%25"+)
if+%25'yy'%25+LSS+100+set+'yy'=20%25'yy'%25
endlocal&set+%251=%25'yy'%25&set+%254+%252=%25'mm'%25&set+%254+%253=%25'dd'%25&goto+:EOF
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::|code-block|syntax|javascript|2526039|entityMap^0|0|0|3|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@$D|S|E|T|F|G]]|9|@]|A|$]]|$1|H|3|I|5|6|7|U|8|@]|9|@]|A|$]]|$1|J|3|K|5|L|7|V|8|@]|9|@]|A|$M|N]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

This function should work on all regions.

Remarks:

Returns month in text format for MMM regions

<pre><code>@echo off
 call :GetDateIntl year month day 
 echo/Using GetDateIntl you get: %year%-%month%-%day%
goto:eof

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:GetDateIntl yy mm dd [/A]
:: Returns the current date on any machine with regional-independent settings
:: Arguments:
:: yy = variable name for the year output
:: mm = variable name for the month output
:: dd = variable name for the day output
:: /A = OPTIONAL, removes leading 0 on days/months smaller than 10 (example: 01 becomes 1)
:: Remarks:
:: Will return month in text format in regions with MMM month
::
SETLOCAL ENABLEEXTENSIONS
if "%date%A" LSS "A" (set toks=1-3) else (set toks=2-4)
for /f "tokens=2-4 delims=(-)" %%a in ('echo:^|date') do (
 for /f "tokens=%toks% delims=.-/ " %%i in ('date/t') do (
 set '%%a'=%%i
 set '%%b'=%%j
 set '%%c'=%%k
 )
)
if /I "%'yy'%"=="" set "'yy'=%'aa'%"
if /I "%'yy'%"=="" ( set "'yy'=%'jj'%" &amp; set "'dd'=%'tt'%" )
if %'yy'% LSS 100 set 'yy'=20%'yy'%
endlocal&amp;set %1=%'yy'%&amp;set %4 %2=%'mm'%&amp;set %4 %3=%'dd'%&amp;goto :EOF
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
</code></pre>

blocks|key|416846|text|四年过去了，但这个问题并没有过时，我认为现在有一个比使用wmic+(在win7上继续使用)稍微好一点的答案。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|416847|for+/F+"tokens=1,2,3+delims=_"+%25%25i+in+('PowerShell+-Command+"&+{Get-Date+-format+"MM_dd_yyyy"}"')+do+(
++++set+MONTH=%25%25i
++++set+DAY=%25%25j
++++set+YEAR=%25%25k
)
echo+%25MONTH%25+%25DAY%25+%25YEAR%25|code-block|syntax|javascript|416848|使用powershell+Get-Date，您可以微调所需的格式(短、长、数字、名称等)。在本例中，"MM_dd_yyyy“将在单数月或日的情况下获得带前导零的数字日期。|offset|length|style|CODE|416849|entityMap^0|0|0|D|8|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Four years have passed, but this question doesn't get old, and I think now there's a slightly better answer than using wmic (on win7 onwards).

<pre><code>for /F "tokens=1,2,3 delims=_" %%i in ('PowerShell -Command "&amp; {Get-Date -format "MM_dd_yyyy"}"') do (
 set MONTH=%%i
 set DAY=%%j
 set YEAR=%%k
)
echo %MONTH% %DAY% %YEAR%
</code></pre>

With powershell <code>Get-Date</code> you can fine-tune the format you want (short,long, numbers,names,etc..). In this example "MM_dd_yyyy" will get you a numeric date with leading zeros in case of single digit months or days

blocks|key|1736962|text|读取独立于区域设置的YYYY-MM-DDThh:mm:ss值。WMIC给出了20220812142505.576000%2B180值，并使用一个简单的~子字符串，我们可以构造一个日期时间格式。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1736963|@set+dt=
@CALL+:GETDATETIME
@echo+Step1+%25dt%25
@timeout+/T+4
@CALL+:GETDATETIME
@echo+Step2+%25dt%25
@GOTO+:END

:GETDATETIME
@for+/f+"tokens=2+delims=="+%25%25X+in+('wmic+os+get+localdatetime+/value')+do+@set+dt=%25%25X
@set+dt=%25dt:~0,4%25-%25dt:~4,2%25-%25dt:~6,2%25T%25dt:~8,2%25:%25dt:~10,2%25:%25dt:~12,2%25
@GOTO+:EOF

:END
@pause|code-block|syntax|javascript|1736964|entityMap^0|A|J|12|P|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|S|8|@]|D|@]|E|$]]]|L|$]]

Read a locale independent <code>YYYY-MM-DDThh:mm:ss</code> value.
WMIC gives <code>20220812142505.576000+180</code> value and using a simple ~substring we can construct a datetime format.
<pre><code>@set dt=
@CALL :GETDATETIME
@echo Step1 %dt%
@timeout /T 4
@CALL :GETDATETIME
@echo Step2 %dt%
@GOTO :END

:GETDATETIME
@for /f &quot;tokens=2 delims==&quot; %%X in ('wmic os get localdatetime /value') do @set dt=%%X
@set dt=%dt:~0,4%-%dt:~4,2%-%dt:~6,2%T%dt:~8,2%:%dt:~10,2%:%dt:~12,2%
@GOTO :EOF

:END
@pause
</code></pre>

Is there a way to split the <code>%date%</code> in a batch file (say, in 3 environment variables), but regardless of Regional Settings? Today's date would be <code>3/13/2013</code> for US, but with my Regional Settings it is <code>13.3.2013</code> - the delimiter is changed and the order as well.

Split %date% in a batch file regardless of Regional Settings

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

是否有一种方法可以在批处理文件中拆分%date% (例如，在3个环境变量中)，但不考虑区域设置？今天的日期对我们来说是3/13/2013，但是使用我的区域设置，它是13.3.2013 -，分隔符被更改，顺序也是。

问无论区域设置如何，批处理文件中的拆分%日期%
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问无论区域设置如何，批处理文件中的拆分%日期%EN