'Este exemplo mostra como obter a diferença de dias
'entre duas datas

Module Module1
  Sub Main()
    Dim inicio As New DateTime(2007, 5, 1) 'ano, mês, dia
    Dim fim As New DateTime(2007, 5, 20) 'ano, mês, dia
    Dim dif As TimeSpan = fim.Subtract(inicio)
    Dim dias As Integer = dif.Days

    'exibe a diferença em dias
    Console.WriteLine("A diferença é de: " & dias & " dias")

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

Informe um número inteiro: 16
O número informado foi: 16
O antecessor é 15
O sucessor é: 17

Informe o 1º valor: 5
Informe o 2º valor: 1
Informe o 3º valor: 20
Informe o 4º valor: 6
Informe o 5º valor: 3
Informe o 6º valor: 4
Informe o 7º valor: 7
Informe o 8º valor: 12
Informe o 9º valor: 9
Informe o 10º valor: 8

O maior valor lido foi: 20
O menor valor lido foi: 1