[s0Creator]

Похоже в той программе используется приблизительно такая функция:

Код:

function SecToDateEx(ASec : Integer) : TDateTime;
var
  Year, Month, Day, SecInDay: Integer;
begin
  SecInDay := ASec mod SecsPerDay;
  ASec := ASec div SecsPerDay;

  Day := ASec mod 31;
  ASec := ASec div 31;

  Month := ASec mod 12;
  Year := ASec div 12;

  Result := EncodeDate(2009 + Year,1 + Month,1 + Day) + (SecInDay / SecsPerDay);
end;

Проверь.