Windows下精确到微秒的系统时间获取

参考ACE的实现代码

static const DWORDLONG FILETIME_to_timval_skew=116444736000000000;
FILETIME   tfile;
::GetSystemTimeAsFileTime (&tfile);

ULARGE_INTEGER _100ns;
_100ns.LowPart = tfile.dwLowDateTime;
_100ns.HighPart = tfile.dwHighDateTime;
_100ns.QuadPart -= FILETIME_to_timval_skew;
// Convert 100ns units to seconds;
timeval timenow;

ULARGE_INTEGER largeint;
largeint.QuadPart=_100ns.QuadPart / (10000 * 1000);

// Convert 100ns units to seconds;
timenow.tv_sec = (long) (_100ns.QuadPart / (10000 * 1000));
// Convert remainder to microseconds;
timenow.tv_usec = (long) ((_100ns.QuadPart % (10000 * 1000)) / 10);
  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 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、付费专栏及课程。

余额充值