Obtendo as horas, minutos, segundos e milisegundos para a data atual

'Este exemplo mostra como extrair as horas, minutos
'segundos e milisegundos da data atual

Module Module1
  Sub Main()
    Dim agora As DateTime = DateTime.Now

    'obtém as horas.
    Dim horas As Integer = agora.Hour
    'obtém os minutos.
    Dim minutos As Integer = agora.Minute
    'obtém os segundos.
    Dim segundos As Integer = agora.Second
    'obtém os milisegundos.
    Dim milisegundos As Integer = agora.Millisecond

    Console.WriteLine("As horas para esta data são: " & horas)
    Console.WriteLine("Os minutos para esta data são: " & minutos)
    Console.WriteLine("Os segundos para esta data são: " & segundos)
    Console.WriteLine("Os milisegundos para esta data são: " _
      & milisegundos)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module