任意更小的时间延迟

easy

在用 ping 命令做延迟时，是以 1 秒为单位的，有时你可能需要更小精度的时间延迟，下面代码可以实现这个要求。

需要注意的是，底下代码的精确度为 10ms （Windows 系统时间只能精确到 10ms，所以理论上有可能存在 10ms 误差）。

1. @echo off
   
2. 
   
3. set /p delay=请输入需延迟的毫秒数：
   
4. 
   
5. set TotalTime=0
   
6. 
   
7. ::读取起始时间，时间格式为：13:01:05.95，95 是 950ms
   
8. set NowTime=%time%
   
9. 
   
10. 
    
11. :delay_continue
    
12. 
    
13. ::读取起始时间的分钟数
    
14. set /a minute1=1%NowTime:~3,2%-100
    
15. 
    
16. 
    
17. ::将起始时间的秒数转为毫秒
    
18. set /a second1=1%NowTime:~-5,2%%NowTime:~-2%0-100000
    
19. 
    
20. set NowTime=%time%
    
21. 
    
22. ::读取现在时间的分钟数
    
23. set /a minute2=1%NowTime:~3,2%-100
    
24. 
    
25. ::将现在时间的秒数转为毫秒
    
26. set /a second2=1%NowTime:~-5,2%%NowTime:~-2%0-100000
    
27. 
    
28. ::+60表示新的时间可能已经越过12点处
    
29. set /a TotalTime+=(%minute2%-%minute1%+60)%%60*60000+%second2%-%second1%
    
30. if %TotalTime% lss %delay% goto delay_continue
    
31. 
    
32. echo 程序结束时间：%time%
    
33. echo 设定延迟时间：%delay%毫秒
    
34. echo 实际延迟时间：%TotalTime%毫秒
    
35. 
    
36. pause

复制代码