@echo off&setlocal enabledelayedexpansion
set /p var=请输入: 
set .y=a&set .m=a&set .d=a&set h=ymd
for /l %%a in (0 1 9) do set .%%a=a
for %%i in (%date%) do (
   set str=%%i&set "str=!str:~0,1!"
   if defined .!str! (
      for /f "tokens=1-3 delims=/\,.-: " %%a in ("%%i") do (
      set str=%%a&set str=!str:~2,1!
      if not defined .!str! set h=mdy
      set !h:~0,1!=%%a&set !h:~1,1!=%%b&set "!h:~2,1!=%%c"
)))
:loop
set n=%var:~0,1%
if defined .%n% (
   set num=!num!!%n%:~0,1!
   set "%n%=!%n%:~1!"
) else set "num=%num%%n%"
set "var=%var:~1%"
if defined var goto loop
echo\&echo %num%
pause>nul
复制代码

@echo off
reg export "HKEY_CURRENT_USER\Control Panel\International" 1.reg >nul
reg add "HKEY_CURRENT_USER\Control Panel\International" /f /v sShortDate /d "yyyy-MM-dd" >nul

:shuchu
set /p rqgs=请输入日期格式(按q退出):
if "%rqgs%"=="mm dd yyyy" echo %date:~5,2% %date:~8,2% %date:~0,4%
if "%rqgs%"=="yyyy/mm/dd" echo %date:~0,4%/%date:~5,2%/%date:~8,2%
if "%rqgs%"=="mm-dd/yyyy" echo %date:~5,2%-%date:~8,2%/%date:~0,4%
if "%rqgs%"=="md-md-yyyy" echo %date:~5,1%%date:~8,1%-%date:~6,1%%date:~9,1%-%date:~0,4%
if "%rqgs%"=="ymydymyd" echo %date:~0,1%%date:~5,1%%date:~1,1%%date:~8,1%%date:~2,1%%date:~6,1%%date:~3,1%%date:~9,1%
if "%rqgs%"=="ydmydm-yy" echo %date:~0,1%%date:~8,1%%date:~5,1%%date:~1,1%%date:~9,1%%date:~6,1%-%date:~2,1%%date:~3,1%
if "%rqgs%"=="dd---/m/m/ y y y y" echo %date:~8,2%---/%date:~5,1%/%date:~6,1%/ %date:~0,1% %date:~1,1% %date:~2,1% %date:~3,1%
echo.
if /i not "%rqgs%"=="q" goto shuchu
reg import 1.reg>nul
echo OK&pause>nul
exit
复制代码

@echo off
set n=-1&set m=+1
echo wscript.echo date>tmp.vbs
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo tmp.vbs^&del tmp.vbs') do set "ymda=10%%k 10%%i 10%%j"
:lp
echo wscript.echo dateadd("d",%n%,date)>tmp.vbs
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo tmp.vbs^&del tmp.vbs') do set "ymdb=10%%k 10%%i 10%%j"
for  %%i in (%ymda%) do set %%i=%%i
for  %%i in (%ymdb%) do if %%i gtr 1031 (set yyyy=%%i)else (
if not defined %%i (set/a dd=%%i%m%,t+=2)else set mm=%%i)
)
if %t% gtr 3 set n=+1&set t=&set m=-1&goto lp
   set yyyy=%yyyy:~-4%
   set mm=%mm:~-2%
   set dd=%dd:~-2%
   set .y=%yyyy%
   set .m=%mm%
   set .d=%dd%
   set/p str=请输入:
   setlocal enabledelayedexpansion
:lp1
   set v=!str:~,1!
     if not defined .%v% (
       if not defined var (set var=!v!)else set var=!var!!v!
        ) else (
          call set var=!var!%%.%v%:~!_%v%!,1%%
          set/a _!v!+=1
)
set str=!str:~1!
if defined str goto lp1
echo !var!
pause
复制代码

发现有错误  修改
复制代码

@echo off&setlocal enabledelayedexpansion
for %%a in (y1#0#1 y2#1#1 y3#2#1 y4#3#1 m1#5#1 m2#6#1 d1#8#1 d2#9#1) do (
    for /f "tokens=1,2,3 delims=#" %%i in ("%%a") do set "%%i=!date:~%%j,%%k!"
)
set /p code=请输入格式：
:lp
set "a=!code:~,1!"&set "code=!code:~1!"
set /a n+=1
for %%i in (d m y) do (
    if /i "%%i" equ "%a%" set /a .%%i+=1&call,set "_%n%=%%%%i!.%%i!%%"
)
if not defined _%n% set "_%n%=%a%"    
if defined code goto lp
for /l %%i in (1,1,%n%) do set /p=!_%%i!<nul
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set "d=%date%"
:lp1
set "a=!d:~,1!"&set "d=!d:~1!"
for %%i in (0 1 2 3 4 5 6 7 8 9) do if "%%i" equ "%a%" set "str=!str!%a%"&goto next
:next
if defined d goto lp1
set "com=reg query "HKEY_CURRENT_USER\Control Panel\International" /v sShortDate"
for /f "skip=4 tokens=3" %%i in ('%com%') do set "ymd=%%i"
set "ymd=%ymd:mm=m%"&set "ymd=!ymd:dd=d!" 
set "ymd=%ymd:m=mm%"&set "ymd=!ymd:d=dd!"
:lp2
set "a=!ymd:~,1!"&set "ymd=!ymd:~1!"
for %%i in (y m d) do (
    if /i "%%i" equ "%a%" (
       set /a .%%i+=1&set "%%i!.%%i!=!str:~,1!"&set "str=!str:~1!"
    )
)
if defined ymd goto lp2
set /p code=请输入格式：
:lp3
set "a=!code:~,1!"&set "code=!code:~1!"&set "ok=a"
for %%i in (y m d) do (
    if /i "%%i" equ "%a%" set /a _%%i+=1&call,set /p=%%%%i!_%%i!%%<nul&set "ok="
)
if defined ok set /p=%a%<nul
if defined code goto lp3
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
for /f %%a in ('wmic path win32_operatingsystem get localdatetime') do set "CurrentDate=%%a"
rem 用wmic获取日期标准格式(yyyymmdd)，代码、思路来自于论坛巡查BATCHER。
rem 标准化获取当前日期：http://www.cn-dos.net/forum/viewthread.php?tid=41857&fpage=1&highlight=%2Bhat
set "CurrentDate=%CurrentDate:~0,8%"
set "Format=yyyymmdd"
for %%a in (Y M D) do set "%%a=defined"
for %%a in (4 2 2) do call :LOOP %%a
set /p DateFormat=Input the format：
:LP
set "Char=%DateFormat:~,1%"
if defined !Char! (
   set /a !Char! += 1
   <nul call call set /p=%%%%!Char!%%!Char!%%%%%%
   ) else (
   <nul set /p=!DateFormat:~,1!
)
set "DateFormat=!DateFormat:~1!"
if defined DateFormat goto :LP
pause>nul &exit /b

:LOOP
for /l %%a in (1 1 %1) do (
     set "!Format:~,1!%%a=!CurrentDate:~,1!"
     for %%i in (Format CurrentDate) do set "%%i=!%%i:~1!"
)
复制代码

@echo off&setlocal enabledelayedexpansion
set "str=%date%"
for /f "delims=0123456789-/" %%i in ("%str%") do set var=!str:%%i=!
for /f "tokens=1-3 delims=-" %%i in ("%var%") do (
    if "%%j" neq "" (
       set yyyy=%%i&set mm=%%j&set dd=%%k
    ) else (
       for /f "tokens=1-3 delims=/" %%a in ("%var%") do (set mm=%%a&set dd=%%b&set yyyy=%%c)
    )
)
set /p input=请输入：
for /f "tokens=1-3" %%i in ("%input%") do if "%%j" neq "" call,echo %%%%i%% %%%%j%% %%%%k%%
for /f "tokens=1-3 delims=-" %%i in ("%input%") do if "%%j" neq "" call,echo %%%%i%%-%%%%j%%-%%%%k%%
for /f "tokens=1-3 delims=/" %%i in ("%input%") do if "%%j" neq "" call,echo %%%%i%%/%%%%j%%/%%%%k%%
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set n=1
for /f "tokens=2 delims=:" %%a in ('echo^;^|date') do (set str!n!=%%a&set/a n+=1)
set str2=!str2:~2,-2!
for %%a in (!str1!) do (set var=%%a
        if "!var:-=!" neq "!var!" set fen=-&set str=%%a
        if "!var:/=!" neq "!var!" set fen=/&set str=%%a

)
set n=3
for %%a in (!str2:%fen%^= !) do (set str!n!=%%a&set/a n+=1)
set n=3
if not defined str4 for %%a in (0 1 2) do (set str!n!=!str2:~%%a,1!&set/a n+=1)
set n=3
for %%a in (!str:%fen%^= !) do (
        for %%b in (str!n!) do (
                set !%%b!=%%a&set/a n+=1
        )
)

for %%a in ("年 月 日" "yyyy mm dd" "yy mm dd") do (
        for /f "tokens=1,2,3" %%b in (%%a) do (
                if defined %%b (
                for /f "tokens=1,2,3" %%e in ("!%%b! !%%c! !%%d!") do (
endlocal&setlocal enabledelayedexpansion
                        set #y=%%e
                        set #m=%%f
                        set #d=%%g
                ))
        )
)

:loop
set in=
set str=
set/p in=输入日期格式：
for %%a in (y m d) do (set in=!in:%%a=" "%%a" "!)
set/a .y=0,.m=0,.d=0
for %%a in ("!in!") do (
        if defined #%%~a (
                for %%b in (!.%%~a!) do (
                        set str=!str!!#%%~a:~%%b,1!
                )
                set/a .%%~a+=1
        ) else (set str=!str!%%~a)
)
echo 分解："!in!"
echo 处理结果：!str!
goto :loop
复制代码

@echo off & setlocal
set/p DateFmt=输入日期格式(MM,yyyy,dd)：
set Regkey="HKEY_CURRENT_USER\Control Panel\International"
reg export %Regkey% %temp%\~DateFmt.reg > nul
reg add %Regkey% /v sShortDate /d "%DateFmt%" /f >nul
echo.%date%
reg import %temp%\~DateFmt.reg > nul
for %%f in (%temp%\~DateFmt.reg?) do del %%f
复制代码