помогите не пашет алгоритм по вычеслению прожитых дней... Опции

[prevedmuraved]

не пойму чё ей не хватает...

program pr;
 uses crt,dos;
 var dn,an,ln:word;
 procedure days;
 var f:text;
      a:array[1..28,1..12] of integer;
      i,j:integer;
      ac,lc,dc,zc:word;
 begin
 getdate(ac,lc,dc,zc);
 assign(f,'D:\pascal\TP\BIN\exem\tebel1.txt');
 reset(f);
 for i:=1 to 28 do begin
  for j:=1 to 12 do begin
  read(f,a[i,j]);
  end;
  readln(f);
  end;
  close(f);

 end;
  begin
  writeln('dati data dvs de nastere ( dd ll aaa/EXEMPLU:  05 08 1999 )');
 readln(dn,ln,an);
 end.

М

Небольшие программы лучше все же помещать в текст мессаджа (с тегами code=pas), а не прикреплять файлом Lapp

[TarasBer]

Ладно, подскажу.
Удобнее перевести дату рождения и текущую дату в одно целое число типа longint, означающее, например, число дней с 1 января 00 года, вычесть, всё.
То есть достаточно написать одну функцию DateToInt

[prevedmuraved]

Удобнее перевести дату рождения и текущую дату в одно целое число типа longint, означающее, например, число дней с 1 января 00 года, вычесть, всё.
То есть достаточно написать одну функцию DateToInt

а можно по подробнее а то я чёт не понял...

[Lapp]

а можно по подробнее а то я чёт не понял...

Ну, чего тут непонятного? Считаем все в днях от Рождества Христова.

[prevedmuraved]

Считаем все в днях от Рождества Христова.

ааа... ну или с дня рождения...

Сообщение отредактировано: prevedmuraved - 10.06.2010 10:23

[Lapp]

ааа... ну или с дня рождения...

Если ты делаешь прогу для всех, а не для одного избранного человека, то нужна какая-то универсальность.. Выбери какой-нибудь момент (например, 1 января 1900г.) - и от него все считай. С нулевым годом действительно есть проблемы (точный учет високосных годов), так что лучше ограничить себя - сто лет достаточно..
А вообще - лучше не изобретать велосипед, а взять готовую формулу. Есть библиотеки для работы с датами.