Календарь в delphi

[nnndaniil]

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

[p51x]

Есть формула, кот. дает день недели на заданную дату... а дальше просто цикл

[Stilet]

uses  dateutils,
  SysUtils;
var d:TDateTime;
begin
 d:=EncodeDate(1900,1,1);
 if NthDayOfWeek(d)=7 then write('sunday');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

А теперь как и было сказано - циклом увеличивая год через incYear до 2000

[Fdrum]

если я тебе подсуну календарь на асм, подойдет?

[Serge_Bliznykov]

 CountYear := 0;
 for year:=1900 to 2000 do begin
   if  (DayOfTheWeek(EncodeDate(year,1,1))=7) and
        (DayOfTheWeek(EncodeDate(year,12,31))=7) then Inc(CountYear);
 end; 

 ShowMessage('Таких годов было : '+IntToStr(CountYear));

[nnndaniil]

большое спасибо, что быстро ответили!
я в программировании совсем профан, а курсовую седлать нужно))
у меня delphi ругается на CountYear, пробовал в переменных объявить, а все-равно не работает.
Подскажите пожалуйста, что делать?)

[Mad_Cat]

пробовал в переменных объявить

как пробовали?
должно быть

var CountYear :integer;

[nnndaniil]

я так и написал, потом он начал ругаться на Year, я и его добавил, потом он ругался на DayOfTheWeek, и его добавил и сразу EncodeDate.
А Delphi на DayOfTheWeek пишет:
missing operator or semicolon

я код просто скопировал и вставил в обработчик он ButtonClick.

var CountYear, year :Integer
begin
 CountYear := 0;
 for year:=1900 to 2000 do begin
   if  (DayOfTheWeek(EncodeDate(year,1,1))=7) and
        (DayOfTheWeek(EncodeDate(year,12,31))=7) then Inc(CountYear);
 end; 

 ShowMessage('Таких годов было : '+IntToStr(CountYear));
end;

правильно?

[Mad_Cat]

DayOfTheWeek, и его добавил

не надо было
надо было в uses добавить Dateutils

[nnndaniil]

Огромное вам спасибо!!!!
Теперь все работает!
А если не сложно, можете немножко по коду рассказать, если я правильно понял, то:
считать годы от 0
для 1900 до 2000
если ... и дальше нечего не понял)