Calendario usando TikZ de LaTeX2e

\documentclass{article}
% Márgenes de la página
\usepackage[letterpaper,top=0.5in,bottom=0.5in,left=1.0in,right=1.0in]{geometry}
\usepackage[spanish,mexico]{babel} 
\usepackage[T1]{fontenc}
\usepackage[ansinew]{inputenc}
%
% Diseño del párrafo
%
\setlength{\parskip}{1ex}
\setlength{\parindent}{0cm}
\pagestyle{empty} % No quiero número de páginas
% Para las figuras
\usepackage{tikz}
%
% Nombre de archivo: CalendarioSemestral2022.tex
% Descripción: 
% Se genera un calendario del primer semestre del año 2022.
% 
% Fecha de creación: 30 de enero de 2022.
% Fecha de última modificación: 30 de enero de 2022.
% Autor: Efraín Soto Apolinar.
% https://www.aprendematematicas.org.mx/author/efrain-soto-apolinar/instructing-courses/
% Términos de uso:
% https://creativecommons.org/licenses/by-nc-sa/4.0/
% Muchas gracias por respetar los términos de uso.
%
%
%
\newcommand{\theyear}{2022}	% Indico el año 
\def\DiaMes#1{ % Indico el día de la semana en que empieza cada mes
	\ifcase#1
	0\or	% Mes cero no existe
	4\or	% Enero
	0\or	% Febrero
	0\or	% Marzo
	3\or	% Abril
	5\or	% Mayo
	1\or	% Junio
	3\or	% Julio
	-1\or	% Agosto
	2\or	% Septiembre
	4\or	% Octubre
	0\or	% Noviembre
	2\else	% Diciembre
	\number#1\fi
}
\def\DiasEnElMes#1{% Indico cuántos días tiene cada mes
	\ifcase#1
	0\or	% Mes cero no existe
	31\or	% Enero
	28\or	% Febrero
	31\or	% Marzo
	30\or	% Abril
	31\or	% Mayo
	30\or	% junio
	31\or	% Julio
	31\or	% Agosto
	30\or	% Septiembre
	31\or	% Octubre
	30\or	% Noviembre
	31\else	% Diciembre
	\number#1\fi
}
\def\NombreDelMes#1{	% Indico el nombre de cada mes
	\ifcase#1
	0\or	% Mes cero no existe
	Enero\or	% Enero
	Febrero\or	% Febrero
	Marzo\or	% Marzo
	Abril\or	% Abril
	Mayo\or		% Mayo
	Junio\or	% junio
	Julio\or	% Julio
	Agosto\or	% Agosto
	Septiembre\or	% Septiembre
	Octubre\or	% Octubre
	Noviembre\or	% Noviembre
	Diciembre\else	% Diciembre
	\number#1\fi
}
%
%
%
\begin{document}
%
\begin{tikzpicture}[remember picture,overlay]
	\node[below,shift={(0,-1)},scale=5] at (current page.north) {\theyear};
	\node[blue,above,shift={(0,1)}] at (current page.south) {www.aprendematematicas.org.mx};
\end{tikzpicture}
%
%
%
\begin{center}
%
\begin{tikzpicture}
	\pgfmathsetmacro{\base}{1}	% Altura del rectángulo para cada día
	\pgfmathsetmacro{\altura}{1}	% Base del rectángulo para cada día
	\foreach \mes in {1,2,...,6}{ % Únicamente genero el calendario de enero a junio (primeros 6 meses del año)
		\pgfmathsetmacro{\MesInicia}{\DiaMes{\mes}} % Indico el día de la semana que empieza cada mes.
		\pgfmathsetmacro{\UltimoDiaMes}{\DiasEnElMes{\mes}}	% Indico cuántos días tiene cada mes.
		% Calculo la posición del calendario mensual
		\pgfmathsetmacro{\Lx}{8.0*int(mod(1+\mes,2))}
		\pgfmathsetmacro{\Ly}{-8.0*int((\mes-1)/2)}
		%
		% Calendario mensual
		%
		\begin{scope}[shift={(\Lx,\Ly)}]
		\node[above,text width=7cm,text centered] at (4.5,1) {\huge\sl\NombreDelMes{\mes}};
		% Los días de la semana
		\foreach \dia/\nombre in {1/Lun, 2/Mar, 3/Mié, 4/Jue, 5/Vie, 6/Sáb, 7/Dom}{
			\draw[cyan,fill=yellow!25,shift={(\dia,0.5)}] (0,0) rectangle (\base,0.5*\altura);
			\node[below] at (\dia+0.5,1) {\sf\nombre};
		}
		% Dibujo la cuadrícula
		\foreach \semana in {1,2,...,6}{
			\foreach \dia in {1,...,7}{
				\draw[cyan,shift={(\dia,-\semana+0.5)}] (0,0) rectangle (\base,\altura);
			}
		}
		% Los días del mes
		\foreach \fecha in {1,2,...,\UltimoDiaMes}{
			\pgfmathsetmacro{\px}{int(mod(\MesInicia+\fecha,7)+1)+0.5}
			\pgfmathsetmacro{\py}{-int((\MesInicia+\fecha)/7.0)}
			\node at (\px,\py) {\fecha};
		}
		\end{scope}
	} % END [ \foreach \mes ]
\end{tikzpicture}
%
\end{center}
%
%
%
\end{document}