Question

How to measure time in milliseconds using VB.NET

Answer 1

Imports System

Public Module DateTimeTools
    Private ReadOnly Jan1st1970 As System.DateTime = New System.DateTime(1970, 1, 1, 0, 0, 0, System.DateTimeKind.Utc)

    Function CurrentUnixTimeMillis() As Long
        Return CLng((System.DateTime.UtcNow - Jan1st1970).TotalMilliseconds)
    End Function
End Module

Public Class TimeInMilliseconds
    Public Shared Sub Main(ByVal args As String())
        Dim startTime As Long = DateTimeTools.CurrentUnixTimeMillis()

        For i As Integer = 0 To 20000000 - 1
        Next

        Dim estimatedTime As Long = DateTimeTools.CurrentUnixTimeMillis() - startTime
	
        Console.WriteLine(estimatedTime)
    End Sub
End Class


' run:
'
' 31
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Diagnostics

Public Class TimeInMilliseconds
    Public Shared Sub Main(ByVal args As String())
        Dim stopwatch = New Stopwatch()
        stopwatch.Start()

        For i As Integer = 0 To 20000000 - 1
        Next

        stopwatch.Stop()
        
		Dim elapsed_time = stopwatch.ElapsedMilliseconds
        
		Console.WriteLine(elapsed_time)
    End Sub
End Class



' run:
'
' 34
'

 

70+ SQL courses for beginners and professionals