本帖最后由 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>NulCOPY |
| 
发表于 2011-7-13 15:04
| 