'Este exemplo mostra como obter a diferença de dias, horas
'e minutos entre duas datas

Module Module1
  Sub Main()
    'ano, mês, dia, horas, minutos, segundos
    Dim inicio As New DateTime(2007, 5, 1, 17, 20, 5)
    'ano, mês, dia, horas, minutos, segundos
    Dim fim As New DateTime(2007, 5, 20, 20, 40, 10)
    Dim dif As TimeSpan = fim.Subtract(inicio)
    Dim dias As Integer = dif.Days
    Dim horas As Integer = dif.Hours
    Dim minutos As Integer = dif.Minutes

    'exibe a diferença em dias
    Console.WriteLine("A diferença é de: " & dias & " dias, " _
      & horas & " horas e " & minutos & " minutos")

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