精准计时

云外归鸟

原作者:esir
核心代码：

'取出CPU周期时间作为计时依据。
'其中的 输出格式 ： 1,秒;2,毫秒;3,微秒;4,纳秒;5,皮秒;为空则为毫秒
函数 精准计时(传值 输出格式 为 整数型) 为 双精度小数型
变量 Counter 为 LARGE_INTEGER
变量 Frequency 为 LARGE_INTEGER
变量 Result1  为  双精度小数型
QueryPerformanceCounter (@Counter)      '查询系统以得到QueryPerformanceCounter()返回的嘀哒声的频率
QueryPerformanceFrequency (@Frequency)  'QueryPerformanceFrequency()提供了这个频率值,返回每秒嘀哒声的个数
Result1=Counter.QuadPart/Frequency.QuadPart
判断 分支 输出格式
  分支 1
   返回 Result1*1
  分支 2 或 0
   返回 Result1*1000   
  分支 3
   返回 Result1*1000000
  分支 4
   返回 Result1*1000000000
  分支 5
   返回 Result1*1000000000000   
结束