Календарь в delphi

[Sasha_Smirnov]

CountYear := 0

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

считать годы от 0
... и дальше нечего не понял)

да и тут недопоняли: это счётчик (нужных вам) лет; ему присволи 0

EncodeDate(year,1,1))=7 (?!..)

А вот я не уверен, что так мы найдём воскресенья: а не субботы ли?

Извините, зря влез!

[nnndaniil]

а можно подробнее?))
так что, код этот считает кол-во лет, начавшихся и закончившихся в субботу?

[Sasha_Smirnov]

У меня нет среды Delphi, но вообще, в заокеанских средах программирования (в том же мобильнике, если он, так сказать, нерусский) 1-й день недели — воскресенье; суббота же соответственно 7-й.

Вот ниже и ответ. Всё okay!

[Serge_Bliznykov]

так что, код этот считает кол-во лет, начавшихся и закончившихся в субботу?

Нет.
Этот код считает количество лет, которые начались и закончились ВОСКРЕСЕНИЕМ!

если под рукой нет Delphi, что написать любую дату и проверить, какой номер возвращается,
очень легко посмотреть в интернете!
Навскидку:
DayOfWeek - Функция_ Справочник - Основы Delphi
Delphi DayOfWeek - Функция возвращает индекс дня недели (справочник функций и процедур - Delphi Sources)

Функция DayOfTheWeek возвращает индекс дня недели:

1 = Понедельник
2 = Вторник
3 = Среда
4 = Четверг
5 = Пятница
6 = Суббота
7 = Воскресенье

[Sasha_Smirnov]

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

Delphi DayOfWeek - Функция возвращает индекс дня недели

http://lingvo.yandex.ru/индекс/по-английски/

Вот чудеса перевода!

[nnndaniil]

ух ты, большое спасибо. буду разбираться.

а можно как-то сделать, что бы показывались, какие это года были?

[Serge_Bliznykov]

а можно как-то сделать, что бы показывались, какие это года были?

можно.
в цикле выводите их туда, где Вы их хотите показать.

Например, если отображать их в Memo.
Киньте на форму Memo (пусть это будет Memo1, для простоты)
тогда достаточно:

var CountYear, year :Integer;
begin
 CountYear := 0;
 Memo1.Lines.Clear; {очистим мемо}
 Memo1.Lines.Append('Года, которые начинались и заканчивались на воскресение:');

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

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

[nnndaniil]

спасибо, правда мне в поле memo вывелся просто перечень лет, начиная с 1900 по 2000 год

[Sasha_Smirnov]

05(06) 11(12) 22 33 39 50 61 78 89 95

В скобочках — по юлианскому календарю; но «по-дельфийски» их у нас получается 10.

Юлианский 1912-й — високосный (по любому календарю из двух), так что 31 декабря в нём выпадает не на тот же день (что 1 января), а на следующий: понедельник — по-старому и вторник — по-новому (см. рисунок).

Перед 1906 (1905 по Григорию) «воскресным» в России был 1895-й (в Зап. Европе — 1899-й).

Примечание. В 21-м веке ВОСКРЕСЕНЬЕ — начало и конец 2006-го, затем (если будут!) 2017-го и 2023-го.

[nnndaniil]

а чего тогда программа считает, что таких лет было 11, если на самом деле их 10 или она посчитала и 2005 год?