Цитата:
|
Сообщение от 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).