获取系统时间毫秒

问题描述

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

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

因此我添加了以下行：

TimeValue=Gettickcount()

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

 Declare Function GetTickCount Lib "kernel32" () As Long

这显然适用于它编译。除了在运行时它说： 未找到 Kernel32

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

加载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。试试看！