B4J Code Snippet Simple Stop Watch Modul

Watch.Start
...
Watch.Stop("Result A")
...
Watch.Stop("Result B")
...
Watch.Stop("Result C")

'Static code module Watch
Sub Process_Globals
    Dim mStart As Long
    Dim mEnd As Long
End Sub

public Sub Start
    mStart = DateTime.Now
End Sub

public Sub Stop(title As String)
    mEnd = DateTime.Now
    Log(title & " " & (mEnd-mStart) & " ms")
    Start
End Sub