Jump to content


Patric Costa

Member Since 21/01/2008
Offline Last Active 21/05/2008, 15:17
-----

Topics I've Started

Calculo De Datas Vb.net

20/05/2008, 13:16

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

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..!!!

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á.

IPB Skin By Virteq