@echo off
rem 无法保证在中、英之外的其它语言的操作系统上得到正确结果
for /f "delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (
  set "RegDateOld=%%a"
)
set RegDateOld=%RegDateOld:~-8%
reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
set Today=%date: =%
reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
set "Week=Mon Tue Wed Thu Fri Sat Sun 星期一 星期二 星期三 星期四 星期五 星期六 星期日"
for %%a in (%Week%) do (
  call set "Today=%%Today:%%a=%%"
)
echo,%Today%
pause

@echo off
for /f "delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (
  set "RegDateOld=%%a"
)
set RegDateOld=%RegDateOld:~-8%
reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
set Today=%date: =%
reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
if "%Today:~0,1%" gtr "9" (
  set Today=%Today:~-10%
) else (
  set Today=%Today:~0,10%
)
echo,%Today%
pause

@echo off
for /f "delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (
  set "RegDateOld=%%a"
)
set RegDateOld=%RegDateOld:~-8%
reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul
type nul>"%temp%/MyFile.tmp"
for /f %%a in ('dir "%temp%/MyFile.tmp" ^| findstr /i "MyFile.tmp"') do (
  set Today=%%a
)
reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul
echo,%Today%
pause

@echo off
for /f "tokens=2 delims==" %%a in ('wmic path win32_operatingsystem get LocalDateTime /value') do (
  set t=%%a
)
set Today=%t:~0,4%-%t:~4,2%-%t:~6,2%
echo,%Today%
pause

@echo off
>"%temp%/DateCalculate.vbs" echo dt=date()
>>"%temp%/DateCalculate.vbs" echo s=right(year(dt),4) ^ "-" ^ right("0" ^ month(dt),2) ^ "-" ^ right("0" ^ day(dt),2)
>>"%temp%/DateCalculate.vbs" echo wscript.echo s
for /f %%a in ('cscript /nologo "%temp%/DateCalculate.vbs"') do set (
  Today=%%a
)
echo,%Today%
pause

@echo off
rem 需要保证注册表编辑器没有处于锁定状态
regedit /e "%temp%/bak.reg" "HKEY_CURRENT_USER/Control Panel/International"
>"%temp%/new.reg" echo REGEDIT4
>>"%temp%/new.reg" echo,
>>"%temp%/new.reg" echo [HKEY_CURRENT_USER/Control Panel/International]
>>"%temp%/new.reg" echo "sShortDate"="yyyy-MM-dd"
regedit /s "%temp%/new.reg"
set Today=%date: =%
regedit /s "%temp%/bak.reg"
if "%Today:~0,1%" gtr "9" (
  set Today=%Today:~-10%
) else (
  set Today=%Today:~0,10%
)
echo,%Today%
pause 

 @echo off
for /f "tokens=6,8 delims== " %%a in ('^(echo a100^echo mov ah^,2a^echo int 21^echo.^echo p 2^echo q^)^|debug^|find "CX"') do (
  set /a y=0x%%a
  set md=%%b
)
set /a m=0x%md:~,2%
set /a d=0x%md:~-2%
set m=0%m%
set d=0%d%
set Today=%y%-%m:~-2%-%d:~-2%
echo,%Today%
pause