if (k=9) or(k=10) then o:=p+4;
if (k=11) then o:=p+3;
var
y, m, d: word;
p, k, o, t: integer;
begin
DecodeDate(StrToDate(Edit3.Text), y, m, d); // Получили исходный год
d:= 0;
Case RadioGroup1.ItemIndex of // Выбираем тип счёта
0: begin
for p:= y to y + 59 do // Считаем количество дней для мужчин
if IsLeapYear(p) then // Если год высокосный
d:= d + 366
else // Если нет
d:= d + 365;
label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d); // Считаем и выводим результат
end;
1: begin
for p:= y to y + 54 do
if IsLeapYear(p) then
d:= d + 366
else
d:= d + 365;
label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d);
end;
end;
end;
var p,k,o,t,e,new,yy,no,code,new1:integer;
s,y,x:string;
begin
s:=edit3.text;
p:=strtoint(edit6.Text); {год поступления}
k:=strtoint(edit4.Text); {какой класс}
t:=strtoint(edit3.Text); {дата рождения}
e:=strtoint(edit2.Text); {текущий класс}
if (k=9) or(k=10) then o:=p+4;
if (k=11) then o:=p+3;
label9.Caption:=inttostr(o);
no:=pos('.',s);
y:=copy(s,no+4,length(s)-no); {год (число)}
x:=copy(s,1,length(s)-4); {дд.мм}
yy:=strtoint(y); {числом}
new:=0;
new1:=0;
if radiogroup1.ItemIndex=0 then
begin
new:=yy+men;
label9.Caption:=inttostr(new)+x;
end;
if radiogroup1.ItemIndex=1 then
begin
new1:=yy+women;
label9.Caption:=inttostr(new1)+x;
end;
s:=edit3.text;
p:=strtoint(edit6.Text); {год поступления}
k:=strtoint(edit4.Text); {какой класс}
e:=strtoint(edit2.Text); {текущий класс}
if (k=9) or(k=10) then o:=p+4;
if (k=11) then o:=p+3;
label9.Caption:=inttostr(o);
no:=pos('.',s);
y:=copy(s,no+4,length(s)-no); {год (число)}
x:=copy(s,1,length(s)-4); {дд.мм}
yy:=strtoint(y); {числом}
new:=0;
new1:=0;
if radiogroup1.ItemIndex=0 then
begin
new:=yy+60;
label11.Caption:= x + inttostr(new);
end;
if radiogroup1.ItemIndex=1 then
begin
new1:=yy+55;
label11.Caption:= x + inttostr(new1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p: integer;
y, m, d: word;
begin
DecodeDate(StrToDate(Edit3.Text), y, m, d); // Получили исходный год
d:= 0;
Case RadioGroup1.ItemIndex of // Выбираем тип счёта
0: begin
for p:= y to y + 59 do // Считаем количество дней для мужчин
if IsLeapYear(p) then // Если год высокосный
d:= d + 366
else // Если нет
d:= d + 365;
label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d); // Считаем и выводим результат
end;
1: begin
for p:= y to y + 54 do // Считаем количество дней для женщин
if IsLeapYear(p) then
d:= d + 366
else
d:= d + 365;
label11.Caption:= DateToStr(StrToDate(Edit3.Text) + d);
end;
end;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.