RE:AYUDA CON FUNCION DE FECHAS PLEASE!!!!!!!!!!!!!
Espero que esto te sirva
Function DiasxMes(ByVal Mes As Integer, ByVal Año As Integer) As Integer
Select Case Mes
Case 1, 3, 5, 7, 8, 10, 12
DiasxMes = 31
Case 4, 6, 9, 11
DiasxMes = 30
Case 2
If Año Mod 4 = 0 Then
If (Año Mod 100 = 0) And Not (Año Mod 400 = 0) Then
DiasxMes = 28
Else
DiasxMes = 29
End If
Else
DiasxMes = 28
End If
End Select
End Function
Saludos desde Lima Peru