Архив форумов ЦИТФорума

[BBBB]

Посмотрите , пожалуйста исходник.Намеривалось сделать программу перестающую запускаться через определённый срок(самой программы нет дабы уменьшить размер сообщения),программа вроде работает,но с одним"но"-Эта програма расщитана только на месяц с 31 днём.Как это исправить?
Спасибо.
program dates;
uses dos,crt;
const
days:array[0..6] of string[11]=('Воскресение','Понедельник','Вторник','Среда','Четверг','П.. a=15;
var
y,m,d,d_Of_w:word;
sum,ost,newm,newd:byte;

{Описание функции установки нуля в случае когда число меньше 10}
function fzero(w:word):string;
var s:string;
begin
str(w:0,s);
if length(s)=1 then s:='0'+s;
fzero:=s;
end;
{Описание поцедуры возвращения и вывода на экран текущей даты}
procedure get_date;
begin
getdate(y,m,d,d_of_w);
gotoxy(22,15);
writeln('Сегодня ' , days[d_of_w] , ' , ',fzero(d) , ' / ' , fzero(m) , ' / ' , y);
end;
{Процедура установки времени окончания лицензии}
procedure Lic_sroc;
begin
sum:=d+a;
if sum 31 then
begin
ost:=31-d;
newd:=a-ost;
newm:=m+1;
gotoxy(20,16);
write('Срок окончания лицензии ', fzero(newd),':',fzero(newm),':',y);
end
else
begin
gotoxy(20,16);
write('Срок окончания лицензии ', fzero(sum),':',fzero(m),':',y);
end;
end;
{Осноаной блок программы}
begin
get_date;
lic_sroc;
end.