本帖最后由 ArdentMan 于 2011-7-13 16:25 编辑
- @Echo Off
- If "%1" NEQ "" Goto Next
- Set /P time1=请输入时间（格式如：2011-07-13-00:03）
- Set "ymd=%time1:~,10%"&Set /A h=1%time1:~11,2%%%100,n=1%time1:~14,2%%%100
- MsHta VBscript:CreateObject("Wscript.Shell").Run("%~fs0 "^&DateAdd("n",-5,"%ymd% %h%:%n%"),1,0)(Window.Close)&&Exit
- :Next
- For /F "tokens=1-5 delims=-: " %%a In ("%1 %2") Do (
- Set "y=%%a"&Set "m=0%%b"&Set "d=0%%c"&Set "h=%%d"&Set "n=0%%e"
- )
- Echo %y%-%m:~-2%-%d:~-2%-%h%:%n:~-2%
- Pause>Nul
| 
发表于 2011-7-13 15:04
| 