Con las siguientes fórmulas que se muestran a continuación podemos saber los meses que tienen 5 viernes, sábados y domingos. En este caso el año se encuentra en la celda A1, sólo tenemos que poner en esta celda el año y ejemplo (2050), y en otra celda aplicamos la fórmula y en caso de tener el año algún mes con 5 viernes, sábados y domingos nos devuelve el nombre del mes.
Años no bisiestos (365 días) que el día 1 de enero es lunes no hay ningún mes con 5 viernes, sábado y domingo
Años que son bisiestos (366 días) si el día uno de enero es domingo tampoco hay ningún mes.
En las fórmulas siguientes comprueba si el año de la celda A1 los años que son y no son bisiestos o si tienen 29 o 28 días y al mismo tiempo por el día de la semana que comienza el año.
Por ejemplo con la función =DIASEM(FECHA(A1;1;1);2) devuelve un numero entre 1 y 7, sabiendo esto si devuelve 1 sería para lunes, 2 martes … y 7 para domingo.
Las siguientes fórmulas en la hoja de Excel me devuelven el mismo resultado cambiando los años:
Fórmula 1
=SI(O(RESIDUO(A1;400)=0;Y(RESIDUO(A1;4)=0;RESIDUO(A1;100)<>0));ELEGIR(DIASEM(FECHA(A1;1;1);2);"marzo";"agosto";"mayo";"octubre";"enero y julio";"diciembre";"ninguno");ELEGIR(DIASEM(FECHA(A1;1;1);2);"ninguno";"marzo";"agosto";"mayo";"enero y octubre";"julio";"diciembre"))
La siguiente fórmula es igual a la primera lo único que cambia en la fórmula es que DIASEM(FECHA(A1;1;1)) no tiene tipo, por lo tanto devuelve diferente número, 1 para domingo, 2 lunes … 7 para sábado, por ejemplo si el año comienza un lunes la anterior devolvería un 1 y la siguiente un 2, por este motivo cambian las posiciones de los meses, pero devolverían el mismo resultado.
Fórmula 2
=SI(O(RESIDUO(A1;400)=0;Y(RESIDUO(A1;4)=0;RESIDUO(A1;100)<>0));ELEGIR(DIASEM(FECHA(A1;1;1));"ninguno";"marzo";"agosto";"mayo";"octubre";"enero y julio";"diciembre");ELEGIR(DIASEM(FECHA(A1;1;1));"diciembre";"ninguno";"marzo";"agosto";"mayo";"enero y octubre";"julio"))
La siguiente fórmula con muchas condiciones comprueba si febrero tiene 29 o 29 días así como el día de semana que corresponde a ciertos meses dependiendo de esto nos devolverá el mes o meses que tienen 5 viernes, sábados y domingos.
Fórmula 3
=SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=29;DIASEM(FECHA(A1;1;1);2)=5);"enero y julio";)& SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=28;DIASEM(FECHA(A1;1;1);2)=5);"enero y octubre";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=29;DIASEM(FECHA(A1;10;1);2)=5);"octubre";)&SI(DIASEM(FECHA(A1;3;1);2)=5;"marzo";)&SI(DIASEM(FECHA(A1;5;1);2)=5;"mayo";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=28;DIASEM(FECHA(A1;1;1);2)=6);"Julio";SI(DIASEM(FECHA(A1;8;1);2)=5;"agosto";)&SI(DIASEM(FECHA(A1;12;1);2)=5;"diciembre";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=28;DIASEM(FECHA(A1;1;1);2)=1);"ninguno";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=29;DIASEM(FECHA(A1;1;1);2)=7);"ninguno";""))
Con las siguientes fórmulas obtendríamos el mismo resultado:
Fórmula 4
=SI(O(RESIDUO(A1;400)=0;Y(RESIDUO(A1;4)=0;RESIDUO(A1;100)<>0));ELEGIR(DIASEM(FECHA(A1;3;1);2);"octubre";"enero y julio";"diciembre";"ninguno";"marzo";"agosto";"mayo");ELEGIR(DIASEM(FECHA(A1;3;1);2);"enero y octubre";"julio";"diciembre";"ninguno";"marzo";"agosto";"mayo"))
Fórmula 5
=SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=28;DIASEM(FECHA(A1;3;1);2)=1);"enero y octubre";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=29;DIASEM(FECHA(A1;3;1);2)=1);"octubre";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=29;DIASEM(FECHA(A1;3;1);2)=2);"enero y julio";)&SI(Y(DIA(FIN.MES(FECHA(A1;2;1);0))=28;DIASEM(FECHA(A1;3;1);2)=2);"julio";)&SI(DIASEM(FECHA(A1;3;1);2)=3;"diciembre";)&SI(DIASEM(FECHA(A1;3;1);2)=4;"ninguno";)&SI(DIASEM(FECHA(A1;3;1);2)=5;"marzo";)&SI(DIASEM(FECHA(A1;3;1);2)=6;"Agosto";)&SI(DIASEM(FECHA(A1;3;1);2)=7;"mayo";"")
Fórmula 6
=SI(DIA(FIN.MES(FECHA(A1;2;1);0))=28;ELEGIR(DIASEM(FECHA(A1;1;1);2);"ninguno";"marzo";"agosto";"mayo";"enero y octubre";"julio";"diciembre");ELEGIR(DIASEM(FECHA(A1;1;1);2);"marzo";"agosto";"mayo";"octubre";"enero y julio";"diciembre";"ninguno")
Fórmula 7
=SI(DIA(FIN.MES(FECHA(A1;2;1);0))<>29;ELEGIR(DIASEM(FECHA(A1;1;1);2);"ninguno";"marzo";"agosto";"mayo";"enero y octubre";"julio";"diciembre");ELEGIR(DIASEM(FECHA(A1;1;1);2);"marzo";"agosto";"mayo";"octubre";"enero y julio";"diciembre";"ninguno"))
Fórmula 8
=SI(MES(FECHA(A1;2;29))<>2;ELEGIR(DIASEM(FECHA(A1;1;1);2);"ninguno";"marzo";"agosto";"mayo";"enero y octubre";"julio";"diciembre");ELEGIR(DIASEM(FECHA(A1;1;1);2);"marzo";"agosto";"mayo";"octubre";"enero y julio";"diciembre";"ninguno"))
La siguiente fórmula son para las versiones de Excel que contienen la función LET
Fórmula 9
=LET(año;A1;esDiv4;RESIDUO(año;4)=0;esDiv100;RESIDUO(año;100)=0;esDiv400;RESIDUO(año;400)=0;SI(O(esDiv400;Y(esDiv4;NO(esDiv100)));ELEGIR(DIASEM(FECHA(A1;4;1);2);"marzo";"agosto";"mayo";"octubre";"Enero y julio";"diciembre";"ninguno");ELEGIR(DIASEM(FECHA(A1;4;1);2);"marzo";"agosto";"mayo";"enero y octubre";"julio";"diciembre";"ninguno")))