Public Class clFuncionesGenericas
    Public Shared Function MesEnCastellano(ByVal Fecha As Date) As String
        Dim sMeses(11) As String
        sMeses(0) = "Enero"
        sMeses(1) = "Febrero"
        sMeses(2) = "Marzo"
        sMeses(3) = "Abril"
        sMeses(4) = "Mayo"
        sMeses(5) = "Junio"
        sMeses(6) = "Julio"
        sMeses(7) = "Agosto"
        sMeses(8) = "Septiembre"
        sMeses(9) = "Octubre"
        sMeses(10) = "Noviembre"
        sMeses(11) = "Diciembre"
        MesEnCastellano = sMeses(Now.Month - 1)
    End Function
End Class