Skip to main content
2 de 3
se añadieron 266 caracteres en el cuerpo

El problema es que la función array te devuelve un tipo Variant y por ello se dan tus errores https://docs.microsoft.com/es-es/office/vba/language/reference/user-interface-help/array-function

si lo que quieres es cargar una matriz con el tipo integer te sugiero que lo carges los datos 1 a 1

Public Function DiasMes(Mes As Integer) As Integer
    Dim Dias(11) As Integer
    
    Dias(0) = 31 'Enero
    Dias(1) = 28 'Febrero
    Dias(2) = 31 'Marzo
    Dias(3) = 30 'Abril
    Dias(4) = 31 'Mayo
    Dias(5) = 30 'Junio
    Dias(6) = 31 'Julio
    Dias(7) = 31 'Agosto
    Dias(8) = 30 'Septiembre
    Dias(9) = 31 'Octubre
    Dias(10) = 30 'Noviembre
    Dias(11) = 31 'Diciembre
    
    DiasMes = Dias(Mes - 1)
End Function

o te ayudes por medio de un ciclo for

como tambien podrias unas la funcion split

https://docs.microsoft.com/es-es/office/vba/language/reference/user-interface-help/split-function?f1url

que te quedaria mas o menos asi

Public Function DiasMes(Mes As Integer) As String
    Dim Dias() As String
    
    Dias = Split("31,28,31,30,31,30,31,31,30,31,30,31", ",")
    
    DiasMes = Dias(Mes - 1)
    
End Function

y podrias convertir el resultado a integer

CInt(DiasMes(5))

Pero segun entiendo lo que quieres lograr es obtener el numero de dias que tiene x mes, podrias simplemente usar

Public Function DiasMes(Fecha As String) As Integer
    DiasMes = Day(DateSerial(Year(Fecha), Month(Fecha) + 1, 1) - 1)
End Function