如何精确计算时间到微秒级

 一、

windows系统中取得微妙和毫秒级的时间
2008-04-23 11:57

windows系统中得到精确到微妙的时间(通过cpu频率计算)
#include <windows.h>
#include <iostream>
(取得cpu频率)
LARGE_INTEGER t1,t2,feq;
QueryPerformanceFrequency(&feq);//每秒跳动次数
QueryPerformanceCounter(&t1);//测前跳动次数
for(int i = 0;i<10000;i++);
QueryPerformanceCounter(&t2);//测后跳动次数
double d=((double)t2.QuadPart-(double)t1.QuadPart)/((double)feq.QuadPart);//时间差秒
std::cout<<d<<std::endl;

windows系统中得到精确到毫妙的时间

DWORD GetTickCount(VOID) ;
SDk: The GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.

CTime t = CTime::GetCurrentTime();
SDK:This method obtains a CTime object that represents the current time.

 

二、

我最初用的函数是timeGetTime(),该函数只能精确到ms,具体用法如下

         #include <mmsystem.h>

         DOWD begin, end;

         begin = timeGetTime();

        //你要计算的程序片断

         end = timeGetTime();

          CString strTime;
         strTime.Format("%d",end - start);

           最后在你的工程里面设置linker-input-Additional Dependencies 加上Winmm.lib

           如果要显示微妙级的就不够用了,可以采用系统的计数器来实现。

           LARGE_INTEGER frequency ;
           QueryPerformanceFrequency(&frequency );
   
            LARGE_INTEGER start, end;
            QueryPerformanceCounter(&start);
            //你要计算的程序片断  
 
           QueryPerformanceCounter(&end);

           int time=( ((end.QuadPart - start.QuadPart) * 1000000)/frequency.QuadPart);

           有用的链接:http://dev.csdn.net/develop/article/41/41104.shtm

                                   http://dev.csdn.net/article/74/74169.shtm

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
您可以使用VBA中的`Timer`函数来获取当前时间,但是它只能精确到秒,无法达到微秒的精度。要在VBA中获取微秒时间,您可以使用Windows API函数来实现。 以下是一个示例代码,演示如何使用Windows API函数获取微秒时间: ```vba Option Explicit #If VBA7 Then Declare PtrSafe Sub GetSystemTimePreciseAsFileTime Lib "kernel32" (ByRef lpSystemTimePrecise As FILETIME) #Else Declare Sub GetSystemTimePreciseAsFileTime Lib "kernel32" (ByRef lpSystemTimePrecise As FILETIME) #End If Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Function GetPreciseTime() As Double Dim systemTime As FILETIME Dim currentTicks As Double GetSystemTimePreciseAsFileTime systemTime currentTicks = (systemTime.dwHighDateTime * 2 ^ 32 + systemTime.dwLowDateTime) / 10 ' 转换为微秒 GetPreciseTime = currentTicks End Function Sub Test() Dim startTime As Double Dim endTime As Double startTime = GetPreciseTime() ' 这里放置您要测试的代码 endTime = GetPreciseTime() MsgBox "代码执行时间微秒): " & endTime - startTime End Sub ``` 在上面的示例代码中,`GetSystemTimePreciseAsFileTime`函数从系统获取当前时间精确到纳秒),然后通过转换计算得到微秒时间。`GetPreciseTime`函数返回当前时间微秒数。您可以在`Test`子过程中放置您要测试的代码,在执行结束后,会弹出一个消息框显示代码执行的时间(单位为微秒)。 请注意,`GetSystemTimePreciseAsFileTime`函数在Windows 8及更高版本的操作系统中可用。如果您的操作系统不支持此函数,您可以考虑使用其他方法来获取微秒时间,例如使用第三方库或插件。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值