вот мне не понятно...Такое случается РАЗ в 823 года..Но ЭТО уже посчитали достаточно частым явлением, чтобы придумать поверье и назвать такой месяц денежным. По-моему, за 823 года можно капитально забыть, во что верили предки и выдумать новые предрассудки..Но вон оказывается какая крепкая народная память...Просто забавно..
Кот, не тырила. Коммерческой цели не преследую, в личных интересах не использую. А авторы их и выкладывают, чтобы своим мастерством похвастаться. Так что, можно сказать, мы им еще и рекламу (заметь — бесплатную!) создаем.
Комментарии
Для того, кому каждая пятница
День пустой и обычный вполне,
Скажем мы — какая вам разница?
Мы бухаем, а вы — в стороне!
Year:1993
Year:1999
Year:2004
Year:2010
Year:2021
Year:2027
Year:2032
uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
d: TDateTime;
i, j: Integer;
s: string;
begin
For i:=1910 to 2010 do
for j:=1 to 12 do
begin
s:='01.'+IntTostr(j)+'.'+IntTostr(i);
d := StrToDate(s);
if ((DayOfWeek(d)=6) and (DaysInMonth(d)=31)) then
Memo1.Lines.Add(FormatDateTime('mmmm',d)+' '+inttostr(i));
end;
end;
P.S. с января 2010 года прошло 823 года )
"В багрец и золото одетые леса..."
68.142.214.24/photos/slavaplato/sets/72157625041869375/