Pascal/Turbo Pascal - VALIDACIÓN DE FECHA

Alguien tiene ya hecho el programa en Pascal que valide fechas?
Agradecería mucho que me lo envíe a [email protected]
Estoy desesperada! :-)

Tengo el programa pero en Turbo C, no sé si te sirva si tiene la fecha en una estructura? Si te sirve te la traduzco. OK : )

Te agradezco mucho el ofrecimiento.
¿Me la podrías pasar en pseudocódigo?
Yo luego la traduzco a Pascal.
En C no me sirve.
Gracias!!!!

En realidad no es tan difícil validar una fecha.
Creas un array constante de 12 posiciones en las cuales almacenas los días de cada mes.
El caso especial es Febrero, que cuando el año es bisiesto es de 29 días, para los otros de 28.
Un año bisiesto es aquél que es multiplo de 4, pero si además es multiplo de 100 y de 400 entonces no lo es (el año 2000 fue bisiesto, el 1900 no lo fue).

Gracias por la respuesta, pero yo todavía no ví arrays.

|Si DIAS<1 Entonces\\\"No Valida\\\"
|Fin Si
|Si MES>12 ó MES<1 Entonces \\\"No valida\\\"
|Fin Si
|Si MES=9,4,6,11 Entonces
| Si DIAS>30 Entonces \\\"No valida\\\"
| Sino \\\"Es Valida\\\"
| Fin Si
|Sino
| Si MES=2 Entonces
| Si ANIO mod 100=0 Entonces
| Si ANIO mod 400=0 Entonces
| Si DIAS>29 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| Fin Si
| Sino
| Si DIAS>28 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| Fin Si
| Fin Si
| Sino
| Si ANIO mod 4=0 Entonces
| Si DIAS>29 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| FinSi
| Sino
| Si DIAS>28 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| FinSi
| Fin Si
| Sino
| Si DIAS>31 Entonces \\\"No valida\\\"
| Sino \\\"Es Valida\\\"
| Fin Si
| Fin Si
|Fin Si

Diego comentó algo acerca del año bisiesto y es cierto es la parte mas laboriosa de la validacion.
La función \\\"mod\\\" te permite saber el residuo de una division, p.ej.

7 mod 2=1
15 mod 3=0
20 mod 7=6

suerte y cualquier duda aqui estamos

Muchas gracias!!!