Например, function Дней_с_1_января_2004_года (число, месяц, год : Longint) : Longint;
Примерно так:
if номер_месяца >= 1
then дни := дни + 31
else дни := дни + число - 1;
if номер_месяца >= 2
then дни := дни + 28 (или 29, если високосный)
else дни := дни + число - 1;
if номер_месяца >= 3
then дни := дни + 31
else дни := дни + число - 1;
и так далее до 12...
Затем определяешь челое число лет и умножаешь на 365, плюс надо учесть високосные годы.
Складываешь число дней в целом числе лет и в текущем году с 1-го января.
В конце ответ равен:
Ответ := Дней_с_1_января_2004_года (число_сегодня, месяц_сегодня, год_сегодня) -
Дней_с_1_января_2004_года (27, 11, 2004);
Добавлено @ 22:18
PS На Алголисте решение красивее
)