simple

  1. MarkusR

    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 =...
Top