-
19 окт 10Про 5 пятниц (посвящается тем, кто проводит их НЕ с друзьями):
Для того, кому каждая пятница
День пустой и обычный вполне,
Скажем мы — какая вам разница?
Мы бухаем, а вы — в стороне! -
19 окт 10//=========ГЫ :) ===================
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; -
-
19 окт 10вот мне не понятно...Такое случается РАЗ в 823 года..Но ЭТО уже посчитали достаточно частым явлением, чтобы придумать поверье и назвать такой месяц денежным. По-моему, за 823 года можно капитально забыть, во что верили предки и выдумать новые предрассудки..Но вон оказывается какая крепкая народная память...Просто забавно..
-
19 окт 10такое (осень, листопад, спелые желуди ...) случается каждый год:) а октябрь с пятью пятницами, субботами и воскресеньями каждые 11 лет
-
-
-
girlfriendHudo АВТОР19 окт 10Кот, не тырила. Коммерческой цели не преследую, в личных интересах не использую. А авторы их и выкладывают, чтобы своим мастерством похвастаться. Так что, можно сказать, мы им еще и рекламу (заметь — бесплатную!) создаем.
-
Сделано с
NoNaMe