获取系统时间毫秒数
Getting system time milliseconds
我不是 VB 程序员，更不用说 VB3 Windows NT 上的程序员了。
这里的一切都是困难和尴尬的。
我要做的就是获取系统毫秒数。
所以从here我知道这可能是可能的。
因此我添加了以下行：
TimeValue=Gettickcount()
但该功能未知。所以我添加了（在代码的另一部分）
Declare Function GetTickCount Lib "kernel32" () As Long
这显然适用于编译。除了在运行时它说的事实：
未找到 Kernel32
所以我更改并编写了 Kernel32 .dll 但是现在它找不到 dll
我在系统上搜索 dll，找到它（C:\WinNt\System32\ 中的 367kb）并复制 .mak 所在的位置，但现在它显示
Error in loading dll
现在我真的不知道还能做什么！
请注意，它是 VB3 而不是我在标签中写的 VB5。只是没有 VB3 标签。
来自https://www.freevbcode.com/ShowCode.asp?ID=6441
我得到了 VB5-VB6 的解决方案。
好吧，几乎它的解决方案显示 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。试试吧！
我不是 VB 程序员，更不用说 VB3 Windows NT 上的程序员了。 这里的一切都是困难和尴尬的。
我要做的就是获取系统毫秒数。 所以从here我知道这可能是可能的。
因此我添加了以下行：
TimeValue=Gettickcount()
但该功能未知。所以我添加了（在代码的另一部分）
Declare Function GetTickCount Lib "kernel32" () As Long
这显然适用于编译。除了在运行时它说的事实： 未找到 Kernel32
所以我更改并编写了 Kernel32 .dll 但是现在它找不到 dll 我在系统上搜索 dll，找到它（C:\WinNt\System32\ 中的 367kb）并复制 .mak 所在的位置，但现在它显示
Error in loading dll
现在我真的不知道还能做什么！
请注意，它是 VB3 而不是我在标签中写的 VB5。只是没有 VB3 标签。
来自https://www.freevbcode.com/ShowCode.asp?ID=6441 我得到了 VB5-VB6 的解决方案。
好吧，几乎它的解决方案显示 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。试试吧！