Перевод номера дня в дату

[DmT]

Всем доброго времени суток
У меня задача:
Дано количество дней от 1 явн 2000 года.
Определить дату(число, месяц и год)(учетом високосных годов).
Нельзя использовать стандартные средства сред программирования, т.е. чистая арифметика.

[_SERGEYX_]

Ну, дык..,, дата плюс единица - значит дата плюс один день.
Допустим, количество дней от 1 явн 2000 года = 100;

var d: TDate;
daycount: Integer;
begin
  daycount:=100;
  d:=StrToDate('01.01.2000');
  d:= d + daycount;
ShowMessage(DateToStr(d));
end;

Результат: '10.04.2000'

//********************
А если высчитывать дни чисто арифметичеки, то:
int(daycount div 365) = количество лет
frac(daycount div 365) = количество оставшихся дней в этом году
Високосный год можно вычислить, например так:

function is_visokos(dd: Tdate): boolean;
var y,m,d: Word;
begin
  Result := False;
  DecodeDate(dd,y,m,d);
if Frac(y div 4) = 0 then
Result := True;
end;

//т.е. если год делится на 4 без остатка - значит високосный (способов много)
//пишу на "бум", может ошибся где...
Но вся эта арифметика как-то глупо смотрится. Все равно, что вместо

var i: integer;
i:=strtoint('2')

написать

case i of
2: str:='2';
end;

[DmT]

это понятно. Вот еще как найти количество високосных годов?

[DmT]

Visokos_count = (daynum/365) % 4 + 1;
тока будет ошибка примерно раз в через 365 високосных годов...

[beso]

ИЗВИНИЯИУС на етат вапросу не сможите памоч ребията ???

http://programmersforum.ru/showthrea...438#post197438