Olá pessoal, estou com uma certa dificuldade em captar um certo valor, preciso efetuar calculos com uma data inserida, já consigo fazer calculo de anos bissextos e decrementar meses...
Preciso ao inserir uma data dizer qual é o último dia de cada mês, durante 12 meses, mas só consigo fazer isso com as informações ( Data , Hora , ano , etc ) do relógio do sistema, como posso fazer isso com o valor que o usuário digitar?
Grato, segue o código....
Do
Dia = InputBox("Informe o Dia")
Mes = InputBox("Informe o Mes")
Ano = InputBox("Informe o Ano")
'Exibe uma mensagem informando se o ano é bissexto
If Date.IsLeapYear(Ano) = True Then
MsgBox("Ano Bissexto")
Else
MsgBox("Ano Não Bissexto")
End If
'Exibe o número do ultimo dia de cada mes por 12 meses
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-1)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-2)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-3)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-4)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-5)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-6)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-7)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-8)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-9)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-10)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-11)))
MsgBox(String.Format("Ultima data no mês de {0}", Mes & DataAtual.AddMonths(-12)))
Num = InputBox("Entre com o numero 0 para Sair, ou de 1 a 9 para prosseguir")
Loop While Num >= 1 And Num <= 9
- Fórum WMO
- → Viewing Profile: Tópicos: Patric Costa
Community Stats
- Group Usuários
- Active Posts 27
- Profile Views 2291
- Member Title Turista
- Age Age Unknown
- Birthday Birthday Unknown
-
Sexo
Não informado
0
Neutral
User Tools
Friends
Patric Costa hasn't added any friends yet.
Latest Visitors
Topics I've Started
Calculo De Datas Vb.net
20/05/2008, 13:16
Não Aparece O Asp.net Web Application
31/01/2008, 14:14
Olá, toda vez que tento criar um projeto, clico em new project, vb.net, e lá dentro não tem a opção asp.net Web Application.
Tenho o framework 2.0 instalado, e em nenhum local tenho essa opção do asp.net.
Grato desde já pessoal.
abraços..!!!
Tenho o framework 2.0 instalado, e em nenhum local tenho essa opção do asp.net.
Grato desde já pessoal.
abraços..!!!
Ajuda Com Datagrid
25/01/2008, 13:15
Amigos, preciso de ajuda.
Tenho que fazer um datagrid pra calcular no rodapé a soma de alguns valores, alguem tem algum tutorial ou até mesmo uma lógica para que eu possa começar a fazer.
tenho um arquivo .mdb e através dele eu faço a ligação.
grato desde já.
Tenho que fazer um datagrid pra calcular no rodapé a soma de alguns valores, alguem tem algum tutorial ou até mesmo uma lógica para que eu possa começar a fazer.
tenho um arquivo .mdb e através dele eu faço a ligação.
grato desde já.
- Fórum WMO
- → Viewing Profile: Tópicos: Patric Costa
- Privacy Policy
- Regras ·