批处理倒计时

plp626

1. @echo off||倒计时；
   
2. :: 备份自用 code by plp
   
3. 
   
4. if "%1"==":timeout" goto%1
   
5. 
   
6. start/b %~fs0 :timeout "2015-1-1"
   
7. 
   
8. cmd /k "prompt=-$g$s&echo 获取帮助请键入 help "
   
9. exit
   
10. 
    
11. :timeout
    
12. set dates=%date%
    
13. call edate "%dates:~0,10%" "%~2" xx
    
14. set/a xx-=1
    
15. :lp
    
16. call:time2i "%time%" i&call:i2time 8640000-i hfs
    
17. title 现在距离 %~2 还有 %xx%天 零 %hfs% 秒
    
18. goto:lp
    
19. 
    
20. :time2i <time> <rt>
    
21. setlocal&set t=%~1
    
22. set/a w=1%t:~-2%,s=1%t:~-5,2%,f=1%t:~-8,2%,h=1%t:~-11,2%
    
23. set/a w-=100,s-=100,f-=100,h-=100,i=h*3600+f*60+s,i=i*100+w
    
24. endlocal&(if %2.==. (echo %i%)else set %2=%i%)&goto:eof
    
25. :i2time <i> <hour> <minute> <second> <perseconde>
    
26. setlocal&set/a t=%1
    
27. set/a w=t%%100,t/=100,h=t/3600,t%%=3600,f=t/60,t%%=60,s=t
    
28. for %%a in (%w%.w,%s%.s,%f%.f,%h%.h)do set %%~xa=0%%~na
    
29. set ret=%.h:~-2%:%.f:~-2%:%.s:~-2%.%.w:~-2%
    
30. endlocal&(if %2.==. (%ret%)else set %2=%ret%)&goto:eof

复制代码

applba

%XX%溢出了

cjiabing

1. 
   
2. call edate "%dates:~0,10%" "%~2" xx

复制代码

找不到edate
复杂多！~

学无止境

溢出！！！

plp626

回复 3# cjiabing

1.     @echo off||倒计时；
   
2. :: 备份自用 code by plp
   
3. 
   
4. if "%1"==":timeout" (goto%1)else start/b %~fs0 :timeout "2015-1-1"
   
5. cmd /k "prompt=-$g$s&echo 获取帮助请键入 help "
   
6. exit
   
7. 
   
8. :timeout
   
9. set dates=%date%
   
10. call:edate "%dates:~0,10%" "%~2" xx
    
11. set/a xx-=1
    
12. :lp
    
13. call:time2i "%time%" i&call:i2time 8640000-i hfs
    
14. title 现在距离 %~2 还有 %xx%天 零 %hfs% 秒
    
15. goto:lp
    
16. 
    
17. rem ------------------------- sub ----------------------------
    
18. :time2i <time> <rt>
    
19. setlocal&set t=%~1
    
20. set/a w=1%t:~-2%,s=1%t:~-5,2%,f=1%t:~-8,2%,h=1%t:~-11,2%
    
21. set/a w-=100,s-=100,f-=100,h-=100,i=h*3600+f*60+s,i=i*100+w
    
22. endlocal&(if %2.==. (echo %i%)else set %2=%i%)&goto:eof
    
23. :i2time <i> <hour> <minute> <second> <perseconde>
    
24. setlocal&set/a t=%1
    
25. set/a w=t%%100,t/=100,h=t/3600,t%%=3600,f=t/60,t%%=60,s=t
    
26. for %%a in (%w%.w,%s%.s,%f%.f,%h%.h)do set %%~xa=0%%~na
    
27. set ret=%.h:~-2%:%.f:~-2%:%.s:~-2%.%.w:~-2%
    
28. endlocal&(if %2.==. (%ret%)else set %2=%ret%)&goto:eof
    
29. 
    
30. :edate <"DATE1"> <"DATE2"> <RetVarName>
    
31. setlocal
    
32. set d1=%~1&set d2=%~2
    
33. set d1=%d1:~0,10%&set d2=%d2:~0,10%
    
34. set d1=%d1:-= %&set d2=%d2:-= %
    
35. call:date2i %d1: 0= % i1
    
36. call:date2i %d2: 0= % i2
    
37. set/a c=i2-i1
    
38. endlocal&(if %3.==. (echo %c%) else set %3=%c%)&goto:eof
    
39. 
    
40. :date2i <year> <month> <day> <RetVarName>
    
41. setlocal&set/a y=%1,m=%2,d=%3
    
42. set/am+=9,m%%=12,y-=m/10,i=365*y+y/4-y/100+y/400+(m*153+2)/5+d-1
    
43. endlocal&(if %4.==. (echo %i%)else set %4=%i%)&goto:eof

复制代码

111

和

1. @echo off
   
2. title 定时提醒器正在运行……
   
3. :ma
   
4. if '%1'=='%time:~0,2%:%time:~3,2%:%time:~6,2%' goto nlxx
   
5. goto ma
   
6. :nlxx
   
7. title 闹铃响了！！！！！！
   
8. :xiang
   
9. nircmd beep 1000 200
   
10. goto xiang

复制代码

一样