День Программиста

← →
Anna_ © (2002-07-17 13:17) [40]

Как-то несолидно такой день раз в 365/366 суток устраивать. Как насчет того, чтобы праздновать каждый 256ой день начиная с 01.01.01, например? Во-первых, чаще, чем раз в год. Во-вторых, попадает на разные месяцы - тут тебе и белые ночи, и игра в снежки с "сионистами", и вылазки на природу. В-третьих, интереснее высчитывать ближайшую дату.
А День Программистки можно праздновать также, только начиная с 10 декабря, 1815 года.

← →
Извращенец © (2002-07-23 18:54) [41]

давайте праздновать и 256-ой день и 10 декабря. Две дополнительные пьянки в году!!!

← →
vuk © (2002-07-23 20:36) [42]

Ну еще тогда можно отмечать 4 апреля(от номера ошибки 404 - not found) - день всех интернетчиков, а в особенности Web-мастеров. :o)

← →
GydruS © (2002-07-24 10:00) [43]

Солидарен с Анной! Только точкой отсчёта нужно брать, наверное, не 01.01.01. Может быть лучше 00.00.00? Или дату открытия электричества? Или создания булевой алгебры? Но день программера нужно отмечать раз в 256 дней!!! Почему? см. выше :)))

← →
Anna_ © (2002-07-25 13:38) [44]

> GydruS , вот спасибо... Главное - чтобы нас теперь не заставили эту самую дату высчитывать по принципу "инициатива наказуема"...
А по поводу дату отсчета - не думаю, что дату создания булевой алгебры кто-нить знает с точностью до дня...

← →
Сочувствующий (2002-07-25 14:41) [45]

10 декабря это по какому стилю?А вообще можно было бы с 22 на 23 декабря отмечать.Самый короткий день..соответсено самая длинная ночь...ведь программисты создали хаос.

← →
RV © (2002-07-25 14:46) [46]

не 2, 4, 8, 16, 32, 64 или 128. Или все енти даты?
все эти даты, причем еще с 2х недельным смещением (по ст. стилю)

← →
Man-In-Red © (2002-07-25 15:39) [47]

Я всегда за 256 день…

P.S. А если бы 252, то попало бы прямо на мой день рождения :)

← →
vads © (2002-07-25 17:49) [48]

RV © (25.07.02 14:46)

Идея богатая, но считаю, что исчиcлять по старому стилю - неправильно

Пусть лучше по новому, тогда на каждый "официальный" день, будет еще и "неофициальный" (типа старый новый год). :)))

Осталось кому-нибудь не поленится и написать программку которая бы рисовала красивый календарь, выделяя эти даты
ядовито-ярко-красным цветом. Заодно и подсчитывала - сколько в текущем году (за вычетом этих дней, выходных и утвержденных госдумой праздников) осталось "черных дней календаря" :)))

← →
GydruS © (2002-07-26 09:15) [49]

2 Anna: Дык это ж даже интересно! Я бы с радостью прямо сейчас этим занялся, если бы не работа, из-за которой дома только валишься в постель! Не хватает уже почти ни на что! :( Но как появится время... :)))
А на счёт булевой алгебры жаль. :( :) Но всё же мне ближе 00.00.00.
А ещё можно считать дату не в годах а в байтах. :) Т.е. в поле дата всегда писать столько, сколько раз прошло 256 дней от точки отсчёта + 1. %))

← →
Lord Warlock © (2002-07-26 09:20) [50]

Давайте сообща напишем программу которая будет высчитывать День Программиста! :)))

← →
Judith © (2002-07-26 09:55) [51]

Между прочим, сегодня день сисадмина. С праздником присутствующих здесь труженников этого нелегкого и неблагодарного труда.

← →
RV © (2002-07-26 10:05) [52]

а давайте обратимся к автору сайта, пусть он 30-31 декабря положит где-нить кнопку, которая генерит случайный день

по большинству ответов кнопки получим если не день программиста, то день программиста, крый был тут.
А в тот день - следующий день выберем (но не более чем через год).
Главное - праздник не повторяется, никакой закономерности, чем не программистский праздник.

← →
Asteroid © (2002-07-26 10:29) [53]

Кхм...если я не ошибся, то 256-й день в этом году - это 13 сентября, пятница (если считать с начала этого года).

А прогу написать стоит :)

← →
Сочувствующий (2002-07-26 11:42) [54]

Asteroid © (26.07.02 10:29)
Да пятница 13-это круто...погуляем.

2Asteroid
>А прогу написать стоит :)

Странно, а мне казалось, что тема закрыта еще
в ветке http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1026979986&n=3

Вот эта крутая прога :)

procedure TForm1.Button4Click(Sender: TObject);
var
DayCount:integer;
i,j,k:integer;
begin
for k:=2002 to 2012 do begin
DayCount:=0;
Calendar1.Year:=k;
for j:=1 to 12 do begin
Calendar1.Day:=1;
Calendar1.Month:=j;
if Calendar1.Month=j then
for i:=1 to 32 do begin
Calendar1.Day:=i;
if Calendar1.Day=i then inc(DayCount);
if DayCount=256 then begin
ListBox1.Items.Add(IntToStr(Calendar1.Year)+" "+DateToStr(Calendar1.CalendarDate));
Break;
end;
end;
end;
end;
end;

2 GydruS: Программу писать - интересно. Вспоминать, сколько в разные времена апгрейдили календарь всякими "+11 дней" и "+13 дней" - скучно.

>мне ближе 00.00.00.
Мне тоже ближе, но что-то далекие предки не озаботились созданием нулевого года и нулевого месяца. :-). Ну не подумали.

> igorr © (26.07.02 13:27)

Прога и правда крутая. Особенно понравились вот эти две строчки, идущие ПОДРЯД:

Calendar1.Month:=j;
if Calendar1.Month=j then... // А что, здесь может быть иначе?

Игорь, вот эта прога, конечно, не такая крутая, но делает абсолютно то же самое (только намного быстрее и с гораздо меньшими затратами памяти).

procedure TForm1.Button4Click(Sender: TObject);
var
Year: word;
begin
ListBox1.Clear;
for Year := 2002 to 2012 do
ListBox1.Items.Add(DateToStr(EncodeDate(Year, 1, 1) + 255))
end;

Поймите правильно - это не с целью выпендрежа (слишком простая задача), а с целью убедить, что использование функций и самого языка очень часто дает гораздо лучший результат, чем использование компонентов.

Вариант написанного Юрием Зотовым:
procedure TForm1.Button1Click(Sender: TObject); var date: Double; yoff, moff, doff: WORD; i: WORD; begin ListBox1.Clear; yoff := 2002; moff := 1; doff := 1; date := EncodeDate( yoff, moff, doff ) - 1; for i := 0 to 19 do begin ListBox1.Items.Add( DateToStr( date ) ); date := date + 256; end end;

Считает с любого дня по 256 дней

← →
Ate (2002-07-27 13:07) [59]

А по-мйму день НАС уже давно отмечают....
1 апреля...
Меня в этом году ТАААК отметили!

День Программиста Найти похожие ветки