用批处理把系统日期转换成大写

@echo off&title DOS资源站 www.cmdos.net
:: 把系统日期转换成大写
setlocal enabledelayedexpansion
set str=〇一二三四五六七八九

:main
cls
set day=
for /f "tokens=1-3 delims=-:/" %%i in ("%date%") do set str1=%%i%%j%%k
for /l %%i in (0,1,7) do (
    set var=!str1:~%%i,1!
    call set day=!day!%%str:~!var!,1%%
)

set str1=%day:~0,4%年%day:~4,1%十%day:~5,1%月%day:~6,1%十%day:~7,1%日
set str1=%str1:〇十=%
set str1=%str1:一十=十%
set str1=%str1:十〇=十%

echo      系统当前日期是：%str1%
pause>nul
goto main