Как раньше программировали

[karpolan]

Рылся в старых проектах, нашел "гениальную програмку" ©.

Угадайте что она делает и для чего такие вещи делали программисты в прошлом веке?

Program fignya; Uses Dos; Var y, m, d, dow: Word; flag : Boolean; F : File; Begin Flag := True; GetDate(y, m, d, dow); if (y = 1996) then begin if (m<7) then Flag := False;

Comments

:\

[anonymous]

Ну и на гавнокодил :)

Re: :\

[karpolan]

Напиши проверку текущей даты для Dos лучше и проще :)

RE: Re: :\

[w00dy]

конвертнуть во что-то что монотонно возрастает, например в строку (как самое просто) или в количество дней начиная с определённой даты (что все и делают)

Re: :\

[karpolan]

Ржунимагу. Вы точно под Дос програмили когда-нить? Да и как задать день и месяц в таком случае? Стирнгом? А проверить как? :)

[w00dy]

удаляет ценный файлик 10 июля 1996 года, ибо программист уволился, а зарплату за последний месяц не заплатили.

[karpolan]

Вариант :) Толкьо удаляет в любую дату после...

[ayaromenok]

ну спасибо - в этом-то веке паскаля не видел ;) (кроме BCB)

вообще-то ничего не делает, кроме ситуации присутсвия на диске С: директория "SomeDir"

ну а если псевдо-код, то удаляет после даты?

[anonymous]

Похоже на тайм-бомбу, которые я оставлял, на случай если заказчик не расплатится))