Mega Code Archive

 

Categories / VB.Net Tutorial / Date Time

 

Elapsed Ticks

Public Class Tester     Public Shared Sub Main         Dim ticksBefore As Long         Dim ticksAfter As Long         Dim tickSeconds As Double         ticksBefore = Now.Ticks         MsgBox("Press OK to see elapsed seconds")         ticksAfter = Now.Ticks         tickSeconds = (ticksAfter - ticksBefore) / 10000000.0         Console.WriteLine("Elapsed seconds: " & tickSeconds.ToString())     End Sub End Class Elapsed seconds: 0.6875