Pascal/Turbo Pascal - Pascal calculo de fecha

{Mira Esto}

program diasquefaltan;

  uses

     crt, dos;

   const

     mesesbi : array[1..12] of word = (31, 29, 31, 30, 31,

30, 31, 31, 30,

                                                       31,

30, 31);

     meses : array[1..12] of word = (31, 28, 31, 30, 31,

30, 31, 31, 30,

                                                       31,

30, 31);

    var

    ano, mes, dia, diasem : word;

    actual, mesant, diaant, posterior : word;

    faltan : word;

    u : integer;

  function bisiesto(ano3 : word) : boolean;

  var

     bb, bx, by : real;

  begin

     bx := frac(ano3/4);

     by := frac(ano3/100);

     bb := frac(ano3/400);

     if ((bx = 0) and (by > 0)) or ((bx = 0) and (bb = 0))

then

     bisiesto := true

   else

     bisiesto := false;

  end;

   procedure toma_fechas;

   begin

       getdate(ano, mes, dia, diasem);

       actual := ano;

       mesant := mes;

       diaant := dia;

       posterior := ano - 1;

   end;

   begin

       clrscr;

      toma_fechas;

      writeln(' La Fecho Actual Es :

',diaant,':','',mesant,':','',actual);

      faltan := 0;

      if bisiesto(actual) then

      begin

      faltan := faltan + (mesesbi[mesant] - diaant);

      for u := mesant + 1 to 12 do

      begin

         faltan := faltan + mesesbi[u];

      end;

    end

  else

     begin

        faltan := faltan + (meses[mesant] - diaant);

        for u := mesant + 1 to 12 do

      begin

         faltan := faltan + meses[u];

      end;

     end;

      writeln('  Faltan Dias Para 31 De Diciembre :

',faltan);

      readkey;

   end.