La Web del Programador: Comunidad de Programadores
 
    Pregunta:  57082 - AÑOS BISIESTOS EN PASCAL
Autor:  Genesis Gamboa Delgado
bueno mi pregunta es como calcular exactamente el número de días vividos por una persona hasta la fecha. contemplando los años bisiestos. ¿como hacer con los años bisiestos en pascal?

  Respuesta:  Luis Felipe García Gutiérrez
Definición: http://es.wikipedia.org/wiki/Bisiesto

Se efectúa un procedimiento para validar si determinado es biciesto, para ello y según la definición ésto ocurre cada 4 años y siempre y cuando no sea divisible exactamente por 100.

Para ello de la fecha ingresada por el usuario como la de su nacimiento se separa de ella el año de nacimiento, y se inicicia un ciclo que va desde el año de nacimiento hasta el actual-1, se verifica si el año es biciesto y la primera vez que se ejecuta se calculan los días faltantes de ese año y se acumulan en una variable previamente inicializada en 0; para los demás casos se verifican si es bisieto o no y se suman la cantidad de días contenidos; para el año actual se verifica que la fecha actual no sea mayor a 28 de febrero, hace la misma validación de año bisiesto y se suman la cantidad de días transcurridos... y eureka!!!

suerte y pulso!!!