VB.Net Tutorial/Date Time/Now

Current time

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Console.WriteLine(Now.ToLongTimeString)
   End Sub

End Class</source>

9:07:41 PM

Different parts of Now

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim rightNow As Date = Now
       Dim hourNow As Integer = rightNow.Hour
       Dim minuteNow As Integer = rightNow.Minute
       Dim secondNow As Integer = rightNow.Second
       Dim millisecondNow As Integer = rightNow.Millisecond
       Dim results As String = String.Format( _
          "Hour: {1}{0}Minute: {2}{0}Second: " & _
          "{3}{0}Millisecond: {4}", vbNewLine, _
          hourNow, minuteNow, secondNow, millisecondNow)
       Console.WriteLine(results)

   End Sub

End Class</source>

Hour: 21
Minute: 9
Second: 39
Millisecond: 640

Now.Ticks

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim lastTicks As Long
       Dim numTicks As Long
       Dim endTime As Date
       Dim results As String
       endTime = Now.AddSeconds(1)
       Do
           If (Now.Ticks <> lastTicks) Then
               numTicks += 1
               lastTicks = Now.Ticks
           End If
       Loop Until (Now > endTime)
       results = "Now.Ticks:  " & Now.Ticks.ToString & vbNewLine & _
          "Number of updates per second: " & numTicks.ToString
       Console.WriteLine(results)
   End Sub

End Class</source>

Now.Ticks:  633145145786406250
Number of updates per second: 65