Numero de dias en un mes y bisiesto!!!!!!!

[MANOLO MAD]

Hola,

Aquí tienes un ejeplo:

Function DiasDelMes(Fecha as String) as Long
Select Case Month(Fecha)
Case 2
If Bisiesto(Year(Fecha)) = True Then
Dia = 29
Else
Dia = 28
End If
Case 1, 3, 5, 7, 8, 10, 12
Dia = 31
Case Else
Dia = 30
End Select

DiasDelMes = Dia
End Function

Function Bisiesto(Num As Integer) As Boolean
If Num Mod 4 = 0 And (Num Mod 100 Or Num Mod 400 = 0) Then
Bisiesto = True
Else
Bisiesto = False
End If
End Function

Espero que te sirva.

Un saludo.