Pascal/Turbo Pascal - Algoritmo para determinar la vigencia de un certificado de salud.

{Algoritmo para determinar la vigencia del certificado de salud}

{El certificado de salud dura un año}

{Elaborado por El Varón}

Program Fecha_certificado_de_salud;

Uses Crt,dos;

Var

   a, m, d, ds : word; {Variables empleadas para obtener la fecha actual}

   a1,m1,d1: integer;  {variables empleadas para el certificado de salus}

begin

 clrscr;

 getdate(a,m,d,ds);    {getdate,  traducido literalmente como "obtener fecha"}

 writeln('FECHA DE HOY = ',d,'/',m,'/',a);

 writeln;

 writeln;

 writeln('Ingrese la fecha de expedición del certificado de salud');

 writeln;

 write('escriba dia   dd: ');

   repeat

     read(d1) until d1 in [1..31];

 write('escriba mes   mm: ');

   repeat

     read(m1) until m1 in [1..12];

 write('escriba año aaaa: ');

   repeat

     read(a1) until (a1>1960) and (a1<2060);

 writeln;

 writeln('FECHA CERTIFICADO DE SALUD = ',d1,'/',m1,'/',a1);

 writeln;

{El siguiente método no es muy preciso, pero fácil y efectivo para este problema.}

if (((d)+(m*30)+(360*a)) - ((d1) + (30*m1) +(360*a1))) >= 360   then

 write('Observación: VENCIDO')

   else

   write('Observación: VIGENTE');

 readkey;

end.

Classes,sysutils,dateutils;

var

  fechaActual,fechaExpedicion:TDate;

  fechaValida:Boolean;

  fecha:string;

begin

  fechaValida:=false;

  fecha:='';

  fechaActual:=Date;

  WriteLn('Fecha actual ',DateToStr(fechaActual));

  WriteLn;

  repeat

    WriteLn('Ingrese la fecha de expedicion del certificado de saludo  DD-MM-AA');

    ReadLn(fecha);

    fechaValida:=TryStrToDate(fecha,fechaExpedicion);

  until fechaValida=true ;

  WriteLn('Fecha de certificado de salud es ',DateToStr(fechaExpedicion));

  if DaysBetween(fechaActual,fechaExpedicion)>365 then WriteLn('Observacion vencido ')

  else WriteLn('Observacion vigente ');

  ReadLn;

end.