Тип данных для сравнения даты, какой лучше использовать? Опции

[Евгений]

Решаю задание по записям, все вроде понятно, но есть один вопрос. Какой тип данных(и какой формат ДД.ММ.ГГ или еще как?) лучше использовать для нахождения минимальной(максимальной) даты?

[volvo]

А потом если приближенно Дата+30*(Месяц+12*Год) не устраивает, делать кучу проверок на високосный/невисокосный год, на количество дней в месяце.

А если написать функцию сравнения, которая будет возвращать (+1) когда First > Second, 0 если даты равны, и (-1) если First < Second:

type
   RData = record
      Day, Month, Year : Integer;
   end;

{$B-}
function Compare (First, Second : RData) : Integer;

   function Impl (var R : Integer; A, B : Integer) : Boolean;
   begin
      Impl := True;
      R := A - B;

      if R <> 0 then R := R div Abs( R ) else Impl := False;
   end;

var
   Res : Integer;
begin
   if not Impl (Res, First.Year, Second.Year) and
      not Impl (Res, First.Month, Second.Month) and
      not Impl (Res, First.Day, Second.Day) then Res := 0;

   Compare := Res;
end;

const
  F : RData = (Day : 11; Month : 01; Year : 2011);
  S : RData = (Day : 12; Month : 11; Year : 2010);
begin
  writeln (Compare (F, S))
end.

- это уже очень сложно?

[Евгений]

- это уже очень сложно?

Для меня пока да, но попытаюсь разобраться.
А почему нельзя тупо сначала сравнить года, если они равны. то месяцы и т.д?