 |
|
||||
Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
Como transformar dias em anos, meses, semanas e dias em VB.NET - Desafio de Programação Resolvido em VB.NETQuantidade de visualizações: 425 vezes |
|
Pergunta/Tarefa: Escreva um programa VB.NET que pede para o usuário informar o número de dias e faça a conversão para anos, meses, semanas e dias. O número informado pelo usuário deve ser um inteiro positivo. Não há necessidade de considerar anos bissextos nem validar a entrada do usuário. Sua saída deverá ser parecida com: Informe o número de dias: 500 Você informou 500 dias Isso equivale a: 1 anos 4 meses 2 semanas 1 dias Veja a resolução comentada deste exercício usando VB.NET:
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)
|
 Link para compartilhar na Internet ou com seus amigos: |
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
