'Calcula la cantidad de días de un año
Public Function DiasDelAño(ByVal valor As Variant) As Integer
If IsDate(valor) Or IsNumeric(valor) Then DiasDelAño = IIf(saltarYear(valor), 366, 365)
End Function