E1.29 Validador de fechas

 Leer tres números que denoten una fecha (día, mes, año). Comprobar que es una fecha válida. Si no es válida escribir un mensaje de error. Si es válida escribir la fecha cambiando el número del mes por su nombre. Ej. si se introduce 1 2 2006, se deberá imprimir “1 de febrero de 2006”. El año debe ser mayor que 0

Algoritmo sin_titulo
	//Actividad 1.29: Leer tres números que denoten una fecha (día, mes, año). 
	//Comprobar que es una fecha válida. Si no es válida escribir un mensaje de error. 
	//Si es válida escribir la fecha cambiando el número del mes por su nombre. 
	//Ej. si se introduce 1 2 2006, se deberá imprimir "1 de febrero de 2006". 
	//El año debe ser mayor que 0
	
	Escribir "Dia: "
	leer dd
	Escribir "Mes: "
	leer mm
	Escribir "Año: "
	leer aa
	
	m=""
	max=0
	
	Segun mm Hacer
		1:
			m="Enero"
			max=31
		2:
			m="Febrero"
			max=28
		3:
			m="Marzo"
			max=31
		4:
			m="Abril"
			max=30
		5:
			m="Mayo"
			max=31
		6:
			m="Junio"
			max=30
		7:
			m="Julio"
			max=31
		8:
			m="Agosto"
			max=31
		9:
			m="Septiembre"
			max=30
		10:
			m="Octubre"
			max=31
		11:
			m="Noviembre"
			max=30
		12:
			m="Diciembre"
			max=31
		De Otro Modo:
			max=0
	FinSegun
	
	si dd>max o max=0 o aa<=0 Entonces
		Escribir "Fecha erronea"
	SiNo
		Escribir dd " de " m " de " aa
	FinSi
	
FinAlgoritmo