Календарь от 1.01.1 до наших дней (Delphi7)

[Alexxl2009]

Помогите пожалуйста решить задачу или хотя бы подкиньте идейку как решать.
Вот условие (задача на записи):
Написать функцию ДН( d ) для определения дня недели, на который
приходится дата d (учесть, что 1 января 1-го года нашей эры было
понедельником)

[OCTAGRAM]

Нужно посчитать количество дней между 01.01.01 и этой датой. И взять остаток от 7. Складывается количество дней между началом первого года и началом указанного года, количество дней между началом указанного года и началом указанного месяца указанного года, наконец, указанное число.

Количество дней между началом первого года и указанным — это примерно (year - 1) * 365 + (year - 1) div 4 - (year - 1) div 100 + (year - 1) div 400

Ну остальное просто.

Кстати, через каждые 2000 лет календарь повторяется, так что можно сделать бесконечный календарь, отсекая все цифры, кроме 4 последних.

[OCTAGRAM]

Нужно посчитать количество дней между 01.01.01 и этой датой. И взять остаток от 7. Складывается количество дней между началом первого года и началом указанного года, количество дней между началом указанного года и началом указанного месяца указанного года, наконец, указанное число.

Количество дней между началом первого года и указанным — это примерно (year - 1) * 365 + (year - 1) div 4 - (year - 1) div 100 + (year - 1) div 400

Ну остальное просто.

Кстати, через каждые 2000 лет календарь повторяется, так что можно сделать бесконечный календарь, отсекая все цифры, кроме 4 последних.

[Serge_Bliznykov]

Количество дней между началом первого года и указанным — это примерно

с одной стороны - ржачно. "Примерный" календарь
с другой:

учесть, что 1 января 1-го года нашей эры было
понедельником

ой. за это время была не одна и не две реформы календаря..
я бы всё таки считал дни/года в цикле, учитывая високосные года (в современной формулировке, что считать високосным годом, а что - нет

[Alexxl2009]

Написал код через циклы, но не получается учитывать високосные годы

day:=StrToInt(Edit1.Text);
month:=StrToInt(Edit2.Text);
year:=StrToInt(Edit3.Text);
today:=mon;
for j:=1 to year do
 begin
  for i:=1 to month do
   begin
    for i:=1 to day do
     begin
      case today of
       mon: s:='Понедельник';
       tue: s:='Вторник';
       wed: s:='Среда';
       thu: s:='Четверг';
       fri: s:='Пятница';
       sat: s:='Суббота';
       sun: s:='Воскресение';
      end;
     today:=succ(today);
     Label1.Caption:=s;
     if today>sun then
      today:=mon;
     end;
   month:=month-1;
    day:=31;
   case month of
    2: day:=28;
    4,6,9,11: day:=30;
   end;
   end;
    month:=12;
 end;

[Alexxl2009]

Но с циклами есть минус при больших значениях лет, программа виснет((

[Alexxl2009]

Спабо всем за помощь сделал без циклов, все работает!!!!!!