milliseconds - 获取系统时间毫秒

Question

我不是 VB 程序员，更不用说 Windows NT 上的 VB3 程序员了。这里的一切都是艰难而艰难的。

我所要做的就是获得系统毫秒数。所以从这里我知道这可能是可能的。

因此，我添加了以下行：

TimeValue=Gettickcount()

但该功能是未知的。所以我添加了（在代码的另一部分）

 Declare Function GetTickCount Lib "kernel32" () As Long

这显然适用于它的编译。除了在运行时它说： Kernel32 not found

所以我更改并编写了 Kernel32 .dll但现在它找不到 dll 我在系统上搜索 dll，我找到它（C:\WinNt\System32\ 中的 367kb ）并复制 .mak 所在的位置，但现在它显示一个

加载dll时出错

现在我真的不知道还能做什么！

请注意，它是 VB3 而不是我在标签中写的 VB5。只是没有 VB3 标签。

score 1 · Accepted Answer

好吧，几乎它的解决方案显示了 1/100 秒，而不是真正的 1/1000，但几乎就在那里。

Public Function MyTime() As String
    MyTime = Format(Now, "dd-MMM-yyyy HH:nn:ss") & "." & Right(Format(Timer, "#0.00"), 2)
End Function

它也应该适用于 VB3。试试看！

1 回答 1