funkcje

function Odejmij(D1, D2: TData): TData;
 var Tymcz: integer;
 begin
  if (D1.Rok = D2.Rok) then
  begin
    Odejmij := 0;
  end
  else
  begin
    Tymcz := D1.Rok - D2.Rok;
    Odejmij := Tymcz * 365;
  end;
  if not (D1.Miesiac = D2.Miesiac) then
  begin
    Tymcz := D1.Miesiac - D2.Miesiac;
    Odejmij := Tymcz * 31 + Odejmij;
  end;
  if not (D1.Dzien = D2.Dzien) then
  begin
    Tymcz := D1.Dzien - D2.Dzien;
    Odejmij := Odejmij + Tymcz;
  end;
 end;

 function Dodaj(D1, D2: TData): TData;
 var
   Tymcz1, Tymcz2: integer;
 begin
   Tymcz1 := D1.Dzien + D2.Dzien;
   Dodaj.Dzien := Tymcz1 mod 31;
   Tymcz2 := Tymcz1 div 31;
   Tymcz1 := D1.Miesiac + D2.Miesiac + Tymcz2;
   Dodaj.Miesiac := Tymcz1 mod 12;
   Tymcz2 := Tymcz1 div 12;
   Dodaj.Rok := D1.Rok + D2.Rok + Tymcz2;
 end;