
PROGRAM DateDifference;

// get the difference between 2 dates!

   
procedure dateDifference;
var
  date1, date2: TDateTime;
  difference: Integer;
begin
  date1:= EncodeDate(1959, 06, 20);  
  date2:= EncodeDate(2009, 10, 11);  
  difference := trunc(date2) - trunc(date1);
  ShowMessage(IntToStr(difference));
end;


begin
  //days of live
  DateDifference
  //hex to int
  writeln(IntToStr(StrToInt('$AFFE'))); //45054
end.
      
      
