Um programa VB.NET que recebe o ano de nascimento de uma pessoa e o ano atual e mostra a idade da pessoa em anos, meses, dias e semanas - Exercícios Resolvidos de VB.NET

Informe o ano de seu nascimento: 1985
Informe o ano atual: 2023
A idade em anos é: 38
A idade em meses é: 456
A idade em dias é: 13680
A idade em semanas é: 1976

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler o ano de nascimento
    Console.Write("Informe o ano de seu nascimento: ")
    Dim ano_nascimento As Integer = Int32.Parse(Console.ReadLine())
    Console.Write("Informe o ano atual: ")
    Dim ano_atual As Integer = Int32.Parse(Console.ReadLine())

    ' calcula a idade em anos
    Dim idade_anos As Integer = ano_atual - ano_nascimento
    Console.WriteLine(vbCrLf & "A idade em anos é: " & idade_anos)

    ' calcula a idade em meses
    Dim idade_meses As Integer = idade_anos * 12
    Console.WriteLine("A idade em meses é: " & idade_meses)

    ' calcula a idade em dias
    Dim idade_dias As Integer = idade_anos * 12 * 30
    Console.WriteLine("A idade em dias é: " & idade_dias)

    ' calcula a idade em semanas
    Dim idade_semanas As Integer = idade_anos * 52
    Console.WriteLine("A idade em semanas é: " & idade_semanas)

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

End Module