Como transformar dias em anos, meses, semanas e dias em VB.NET - Desafio de Programação Resolvido em VB.NET

Informe o número de dias: 500
Você informou 500 dias

Isso equivale a:
1 anos
4 meses
2 semanas
1 dias

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' variáveis usadas na resolução do problema
    Dim total_dias, anos, meses, semanas, dias As Integer

    ' vamos ler a quantidade e dias
    Console.Write("Informe o número de dias: ")
    total_dias = Int32.Parse(Console.ReadLine())
    dias = total_dias

    ' vamos obter a quantidade de anos
    anos = dias / 365
    dias = dias Mod 365
    ' agora a quantidade de meses
    meses = dias / 30
    dias = dias Mod 30
    ' agora a quantidade de semanas
    semanas = dias / 7
    ' e finalmente os dias
    dias = dias Mod 7

    ' e mostramos os resultados
    Console.WriteLine("Você informou " & total_dias & " dias" & vbCrLf)
    Console.WriteLine("Isso equivale a:")
    Console.WriteLine(anos & " anos")
    Console.WriteLine(meses & " meses")
    Console.WriteLine(semanas & " semanas")
    Console.WriteLine(dias & " dias")

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module