Jump to content


Photo

Calculo De Datas Vb.net


  • Faça o login para participar
2 replies to this topic

#1 Patric Costa

Patric Costa

    Turista

  • Usuários
  • 27 posts
  • Sexo:Não informado

Posted 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

"As duas coisas infinitas: o Universo e a tolice dos homens."


#2 MACUL

MACUL

    Doutor

  • Usuários
  • 770 posts
  • Sexo:Masculino
  • Localidade:SP

Posted 30/10/2008, 15:17

EU vi um código bem simples

se mes = 12
31
senão
(primeiro dia do mês seguinte) - 1


obs : A maioria das linguagens soma dias nas data portanto
(now-1) seria a data de ontem
select getdate()-1;
select sysdate-1 from dual;
*************** M ** A ** C ** U ** L ***************

*************************************************

#3 RonsisM

RonsisM

    Super Veterano

  • Usuários
  • 15724 posts
  • Sexo:Masculino
  • Localidade:Plovdiv

Posted 13/11/2017, 01:17

Canadian Pharmacy Best Rx generic viagra Kwikmed Coupon Code
Amoxicillin Photosensitivity cialis Dove Comprare Cialis Line Acheter Du Cialis 10mg
Discount Legally Pyridium 200mg Worldwide Pills. Mail Order Pyridium 200mg Secure Medication Shipped Ups Commander Viagra En Ligne viagra Sildenafil Citrate 100 Mg In Usa What Is Keflex Medication For Viagra Pillen Nebenwirkungen




2 user(s) are reading this topic

0 membro(s), 2 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq