[日期时间] 批处理日期截取函数（2007-11-18更新）

youxi01

@echo off
Rem ======以下为函数测试代码=====================
call :SplitDate -Y ok
echo %ok%
pause>nul

Rem '///////////////日期截取函数///////////////////////
Rem 'code by youxi01@bbs.bathome.net modified by 随风；适用于Winxp；
Rem '===============使用方法===========================
Rem '1、要调用本段函数，先将标签下::SplitDate所有内容拷贝
Rem '到对应批处理的pause段下。
Rem '2、参数解析：OBJ为操作对象，可以为：-Y(年份)，-M(月份)
Rem '-D(日期)，Res用来接受传回结果。
Rem '3、如：Call :SplitDate -y Res，Res中的结果
Rem '就为：2007
Rem '==================================================
:SplitDate OBJ Res
setlocal
for /f "delims=-/. tokens=1,2,3" %%i in ("%date:~0,-3%") do (
    set /a Y=%%i,M=100%%j%%100,D=100%%k%%100
)
call set var=%%%~1%%
endlocal&call set %~2=%var%
goto :eof
复制代码