Рылся в старых проектах, нашел "гениальную програмку" ©.
Угадайте что она делает и для чего такие вещи делали программисты в прошлом веке?
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;
(
Read more... )