Недавно отец спросил у меня могу ли я узнать день недели по дате его рождения. 5 сентября 1956 года. Не нашел календарь который мог бы мне показать эту дату ... Подскажите это реально?

DayOfTheWeek + F1

> Подскажите это реально?

Блин, в уме можно подсчитать. Трудно 365 на 7 разделить и учесть несколько високосных годов?

Excel

В среду он родился. Как и я с сынами. :)

Чего извращаться, если можно просто виндовый календарь перемотать на нужный год? :)

> Kerk ©   (28.10.08 10:57) [5]

Винда так много назад не перематывает:)
http://ochag.narod.ru/vechn_kalend.htm

а вот интересно, что будет с DayOfTheWeek, если ей подсунуть дату, которой в нашем календаре не было?
например, когда переходили с юлианского на григорианский календарь
а если подсунуть дату до перехода, она по какому календарю будет считать? или это от локали зависит?

> Kerk ©   (28.10.08 10:57) [5]

Это ты Рома пошутил. Не все же как ты недавно вылезли из подгузников. Тут есть и солидные люди!!

> Правильный$Вася   (28.10.08 11:17) [7]

Меня еще заинтересовал вот такой эффект (копипастну из блога, уж извините):




> Дуб ©   (28.10.08 11:45) [8]

Ну я постараюсь расти над собой :)

а если дату конца света подкинуть?

> Petr V. Abramov ©   (28.10.08 23:26) [10]
>
> а если дату конца света подкинуть?
>

А ты, Петь её знаешь? Скажи.

Можно достаточно легко посчитать на бумаге, если знать как устроен календарь.

> Dimka Maslov  (29.10.2008 13:40:12)  [12]

Календарь устроен просто, но его знания недостаточно, надо еще знать когда и как он менялся.

> надо еще знать когда и как он менялся.

По моему, с 1956 года календарь не менялся

> Dimka Maslov  (30.10.2008 12:41:14)  [14]

Зато в 17 году менялся и недавно у кого то там в Азии недавно сменился, сразу на 13 лет.

> Зато в 17 году менялся

Точнее в 18-м

Если взять дни недели и года, то здесь два периода - 7 и 4. Отсюда вывод: каждые 7*4 лет календари в точности повторяются. Т. е. если взять календарь на 1956 год, то календари на 1984 и на 2012 год будут в точности такими же. А до 2012 года можно долистать из Windows.

Существует еще метонов цикл. Древние люди думали, что через каждые 19 лет фазы Луны приходятся на то же самое число. На самом деле это не совсем точно. Однако этот цикл был положен в основу алгоритма вычисления даты Пасхи. И получается, что каждые 28*19 лет даты Пасхи начинают повторяться. Естественно, речь идет о Юлианском календаре. Период 28*19=532 года называется великим индиктионом. По истечении этого периода начинают повторяться не только дни недели, но и фазы Луны.

Кстати, еще каждые сто лет високосный год выпадает, но раз в 400 лет делается исключение.

бардак :)

:))

> Petr V. Abramov ©   (28.10.08 23:26) [10]
> а если дату конца света подкинуть?

> Германн ©   (29.10.08 01:38) [11]
>  А ты, Петь её знаешь? Скажи.

> Dimka Maslov ©   (29.10.08 13:40) [12]
> Можно достаточно легко посчитать на бумаге, если знать как
> устроен календарь.

Ну вы, блин, даёте! :))) Где записывают в секту?

Навеяло Вовкиным вопросом и развернувшейся в связи с ним полемикой:


> отец спросил у меня


> Подскажите это реально?


Кроха-сын в DM пришел
И спросила кроха:
"Подскажите календарь
При царе Горохе !"

)

> [20] Vlad Oshin ©   (01.11.08 14:41)
> бардак :)

Что делать, если Земля так вращается.

> Что делать, если Земля так вращается.

В православном (юлианском) календаре исключения (бардака) нет. Но их календарь не соответствует божьему устройству мира.

> palva  (01.11.2008 18:42:25)  [25]

А Юлий по твоему кто?

> А Юлий по твоему кто?

Не Юлий, а Юлиан. Это певец такой. Вроде Магомаева.

Старое и не мое. Автора не знаю

Program kalendar;
uses crt;
const
kd:array[1..7] of string=('пн','вт','ср','чт','пт','сб','вс');
month:array[1..12] of string=('январь','февраль','март','апрель','май',
'июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь');
days:array [1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var
year:word;
i,j,d,t:byte;
Begin clrscr;writeln('введите год');
read(year);clrscr;
d:=(2+(year-1901)+(year-1901) div 4); d:=d mod 7;
if d=0 then d:=7;
for i:=1 to 3 do
 begin
  for j:=1 to 7 do
   begin
    gotoxy(1,i+j+(i-1)*7);
    write(kd[j])
   end;
 for j:=1 to 4 do
  begin
   gotoxy(wherex+8,wherey-7);
   write(month[j+4*(i-1)]);
   gotoxy(wherex-6-length(month[j+4*(i-1)]),wherey+d);
   if year mod 4=0 then days[2]:=29;
    for t:=1 to days[j+(i-1)*4] do
     begin
{----------}
      if ((wherey-1) mod 8=7) then TextColor(LightRed);
      write(t);
      TextColor(LightGray);
{----------}
      if d+1=8 then begin
                 if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6)
                                     else gotoxy(wherex+1,wherey-6);
                 d:=1;end
               else begin d:=d+1;
                          if (t>=1) and (t<9)
                           then gotoxy(wherex-1,i+(i-1)*7+d)
                          else gotoxy(wherex-2,i+(i-1)*7+d);
                    end;
    end; gotoxy(wherex+3,i+i*7);
  end
end ; readln;
End.

Хм... А как же увеличение орбиты Земли на метр в год из-за потери Солнцем массы со скростью 4.4млн.т./сек.?
:)))

А ещё прибавляют один час ночью, в последнее воскресение октября!

> if year mod 4=0 then days[2]:=29;


Эхо испугалось и не стало повторять.

> Старое и не мое. Автора не знаю


А..блин все как обычно, а я думал неужели блекмен хоть что-то САМ сделал, пусть и криво.

Странно, что никто не воспользовался поиском по сайту
Здесь тоже есть "вечный календарь"
http://www.delphimaster.ru/cgi-bin/search.pl?words=%E2%E5%F7%ED%FB%E9+%EA%E0%EB%E5%ED%E4%E0%F0%FC&n=0

Копир ©   (02.11.08 00:44) [30]
А ещё прибавляют один час ночью, в последнее воскресение октября!
Прибавляют это хорошо! Но они еще и убавляют иногда, что не радует :)

> Копир ©   (02.11.08 00:44) [30]
>
> А ещё прибавляют один час ночью, в последнее воскресение
> октября!

правда через пол года забирают обратно :)

> правда через пол года забирают обратно

Хорошо еще, что без процентов.

> AndreyV ©   (01.11.08 16:35) [24]
> > [20] Vlad Oshin ©   (01.11.08 14:41)> бардак :)Что делать,
>  если Земля так вращается.

Да, в високосные годы она вращается медленнее...

> Alex Konshin ©   (03.11.08 04:19) [35]
>
>

НиФига!
В високосные годы эллипс орбиты другой!

> Alex Konshin ©   (03.11.08 04:19) [35]
> > AndreyV ©   (01.11.08 16:35) [24]> > [20] Vlad Oshin ©
>   (01.11.08 14:41)> бардак :)Что делать,>  если Земля так
> вращается.Да, в високосные годы она вращается медленнее.
> ..

Ой, я имел в виду быстрее... Или на орбите на день останавливается... Причём именно в конце февраля.

> [37] Alex Konshin ©   (03.11.08 04:52)
> Или на орбите на день останавливается...
> Причём именно в конце февраля.

Дожны же у неё быть выходные, а то как в отпуск уйдёт? Ладно хоть на пенсию не скоро.

> > А ещё прибавляют один час ночью, в последнее воскресение
>
> > октября!
>
> правда через пол года забирают обратно

Вообще-то, сначала начали забирать... Т.ч. в октябре возвращают.

> Плохиш  (03.11.2008 10:41:39)  [39]

Вообще то даже и не сначала, а всегда так было, в октябре отнимают и никогда не прибавляли.