Основные сведенья для расчета заработной платы. Формирование отчета при помощи электронных таблиц. Налоговые отчисления, персональные надбавки. Диаграммы распределения сотрудников по должностям, средних должностных окладов в зависимости от стажа и отдела.
Аннотация к работе
Задание В ведомости по выплатам заработной платы необходимо представить следующие сведения дата выдачи заработной платы Фамилия Должность К выплате (руб) В пересчете на СКВ Для формирования данного отчета были использованы следующие электронные таблицы: 1. СВЕДЕНИЯ ДЛЯ РАСЧЕТА ЗАРАБОТНОЙ ПЛАТЫ: (в access)· Номер календарного месяцаwhile (copy(sheet.cells[i 1,1],1,1)"") do begin sg1.Cells[0,i]:=inttostr(sheet.cells[i 1,1]); //Расчет и вычет налога for i := 1 to sg1.rowcount - 1 do if (strtoint(sg1.cells[3,i])>=strtoint(sg2.cells[0,1])) and (strtoint(sg1.cells[3,i])<=strtoint(sg2.cells[1,1])) then begin it_sum:=strtoint(sg1.cells[3,i])*strtoint(sg2.cells[2,1]) div 100; end else if strtoint(sg1.cells[3,i])<=strtoint(sg2.cells[1,2]) then begin it_sum:=strtoint(sg1.cells[3,i])*strtoint(sg2.cells[2,2]) div 100; end else if strtoint(sg1.cells[3,i])<=strtoint(sg2.cells[1,3]) then begin it_sum:=strtoint(sg1.cells[3,i])*strtoint(sg2.cells[2,3]) div 100; end else if strtoint(sg1.cells[3,i])<=strtoint(sg2.cells[1,4]) then begin it_sum:=strtoint(sg1.cells[3,i])*strtoint(sg2.