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

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
 

Como todo ano Bissexto é multiplo de 4 basta, (pelo menos entre 1900 e 2200):

 

dias=365

if mod(ano/4) = 0 then dias=366

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

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

Loko, pode muito bem ter e ele não conhecer! Ou será que não pode?