[nnndaniil]

Мне нужно на delphi написать программу, которая рассчитывает, сколько лет, начиная с 1900 по 2000 год начались в воскресенье и закончились в воскресенье (=
Помогите пожалуйста!

[lmikle]

Сообщение от nnndaniil

Мне нужно на delphi написать программу, которая рассчитывает, сколько лет, начиная с 1900 по 2000 год начались в воскресенье и закончились в воскресенье (=
Помогите пожалуйста!

Ну, тебя интересуют 2 даты в году - 1 января и 31 декабря.
Функция "сборки" даты - EncodeDate, функция получения дня недели - DayOfWeek. Осталось завернуть все это в цикл по годам и сделать счетчик:

Код:

function SatYears : Integer;
var
  I : Integer;
begin
  Result := 0; 
  For I := 1900 To 2000 Do
    If (DayOfWeek(EncodeDate(I,1,1)) = 7) And
       (DayOfWeek(EncodeDate(I,12,31)) = 7) Then Inc(Result);
end;

ЗЫ. Проверь по хелпу какую из 2х функций надо использовать - DayOfWeek или DayOfTheWeek (одна из них возвращает для воскресенья 1, другая - 7).

[t116]

ЗЫ. Проверь по хелпу какую из 2х функций надо использовать - DayOfWeek или DayOfTheWeek (одна из них возвращает для воскресенья 1, другая - 7).

DayOfWeek возвращает воскресенье(1)
DayOfTheWeek возвращает воскресенье(7)