（转）统计VB程序的运行时间

Canbitwell

那就多线程，一秒时间+1，线程最高优先权
Public Const MaxValue As ULong = 18446744073709551615
     成员属于: System.ULong
所以能统计上亿年（584942417355.07203243911719939117）

没试
Imports System.Threading

    Public Class Test
        Dim tMainRoutine As Thread
        Dim abc As Uint64 = 0

        Public Sub New()
            tMainRoutine = New Thread(AddressOf AAA)
            tMainRoutine.SetApartmentState(ApartmentState.STA)
            tMainRoutine.Priority = ThreadPriority.Highest

            tMainRoutine.Start()
        End Sub

        Public Sub StopPass()
            tMainRoutine.Abort()
        End Sub

        Public Sub AAA()
            Do
                Thread.Sleep(1000)
                abc +=1
                If Not tMainRoutine.IsAlive Then 有人搞破坏
                If abc>=??? Then ...
            Loop
        End Sub

        ReadOnly Property GetTime() As String
         Get
          Return  Convert.Tostring(abc \86400) & ":" &  Convert.Tostring((abc \3600) mod 24) & ":" & Convert.Tostring((abc \60) mod 60) & ":" & Convert.Tostring(abc mod 60)
         End Get
        End Property
    End Class

Miu.C

Canbitwell: Re:（转）统计VB程序的运行时间

那就多线程，一秒时间+1，线程最高优先权
Public Const MaxValue As ULong = 18446744073709551615
     ...

你.Net啊？？？

明日的天空

用TIMER很容易被变速齿轮等其它软件停止时间的,呵

用timer函数吧,或者用API,GetTick
timer 获取从午夜12点至现在的毫秒数

如: msgbox timer

Miu.C

我记得变速齿轮能变CS的速度，难道CS也是用Timer的吗？？

游戏之家站长

TIMER有他存在的意义就不会被MS取消，要是没意义在VB4后就取消了。

TalentLi

用datediff函数.....

蓝屏死机

用GetTimeTick+循环应该也行

lyfer

firstTime=Now()
结束时再
LastTime=now()
然后再
dateAdd()