USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Função de trás o número de dias de um certo ano.
Fabbro
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 02/02/2006 09:17 hs            
Oie galera, alguém sabe me informar se o vb tem alguma função ná qual eu passe o ano, e o vb retorna o número de dias que aquela ano tem. Pq quero saber se aquela ano é bissexto. Se alguém puder me ajudar eu agradeço.
 
Um abraço.
 
Christian
   
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
ENUNCIADA !
Postada em 02/02/2006 11:23 hs         
você pode utilizar a função datediff, sem precisar verificar se o ano é bissexto ... eu acho mais fácil assim:
 
Private Sub Command1_Click()
  MsgBox NumeroDeDias("2004")
End Sub

Public Function NumeroDeDias(ano As String) As Integer
  Dim datainicial As Date
  Dim datafinal As Date
  datainicial = CDate("01/01/" + ano)
  datafinal = CDate("31/12/" + ano)
  NumeroDeDias = DateDiff("d", datainicial, datafinal) + 1
End Function
 
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 02/02/2006 12:06 hs            
Como todo ano Bissexto é multiplo de 4 basta, (pelo menos entre 1900 e 2200):
 
dias=365
if mod(ano/4) = 0 then dias=366

dsmn
   
Fabbro
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 02/02/2006 14:14 hs            
Valeu Martini, resolveu meu problema. Mas será que o vb não tem já uma função propria que basta vc passar o ano e ele retorna o numero de dias daquele ano. Sem ter que fazer essas jogadas totas.
 
Atenciosamente.
 
Christian
   
LoKO
não registrado
ENUNCIADA !
Postada em 02/02/2006 14:31 hs   
Fabbro se tivesse vc acha que o Martini iria passar o codigo dele pra vc, ele iria te passar a função propria poh, e do mais não tem mesmo!!!
   
Fabbro
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 02/02/2006 15:02 hs            
Loko, pode muito bem ter e ele não conhecer! Ou será que não pode?
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página