Реферат: АРМ бухгалтера Учет основных средств

2. Полная сумма амортизационных отчислений:

ПолнАморт=МесАморт*КолвоМес,

где:

- ПолнАморт - полная сумма амортизационных отчислений;

- МесАморт - сумма месячной амортизации;

- КолвоМес - количество месяцев с момента введения в эксплуатацию оборудования, до текущего отчетного месяца.

3. Остаточная стоимость:

ОстСтоим=БалСтоим-ПолАморт,

где:

- ОстСтоим - остаточная стоимость;

- БалСтоим - балансовая стоимость основных фондов;

- ПолнАморт - полная сумма амортизационных отчислений.

Начисление амортизационных отчислений по основным фондам, по вновь введенным в эксплуатацию, начисляется с первого числа, следующего за месяцем их введения в эксплуатацию, а по выбывшим основным фондам – прекращается с первого числа месяца, следующим за месяцем выбытия [2].

Для расчета суммы амортизационных отчислений для подвижного состава автомобильного транспорта, по которому начисление амортизации на реновацию производится по нормам, определенным в процентах от стоимости автомашины, отнесенной к 1000 километрам фактического пробега.

4. Полная стоимость амортизации для автотранспорта:

ПолнАморт=(БалСтоим*0,481)/1000*КМ,

где:

- ПолнАморт - полная стоимость амортизационных отчислений со дня введения автотранспортного средства в эксплуатацию;

- БалСтоим - балансовая стоимость;

- КМ - фактическое значение пробега.

По полностью самортизированным основным фондам начисление амортизации прекращается с первого числа месяца, следующего за последним месяцем, в котором стоимость этих фондов полностью была перенесена на стоимость продукции [1].

Вариант реализации расчетов на языке Pascal:

1. Обычное оборудование (не являющееся автотранспортным средством):

DataModule1.Table6.Edit;

MonthIn:=StrToInt(Copy(DateTimeToStr(DataModule1.Table6Data_vvod.Value),4,2));

YearIn:=StrToInt(Copy(DateTimeToStr(DataModule1.Table6Data_vvod.Value),7,4));

YearOut:=StrToInt(AHMSpinEdit1.Text);

SumMonth:=(YearOut-YearIn)*12+(MesNumber-MonthIn);

DataModule1.Table6Mes_amort.Value:=StrToFloat(FormatFloat('0.00',DataModule1.Table6Procent.Value*DataModule1.Table6Bas_Stoim.Value/12/100));

DataModule1.Table6Pol_iznos.Value:=StrToFloat(FormatFloat('0.00',SumMonth*DataModule1.Table6Mes_amort.Value));

DataModule1.Table6Ost_stoim.Value:=StrToFloat(FormatFloat('0.00',DataModule1.Table6Bas_Stoim.Value-DataModule1.Table6Pol_iznos.Value-DataModule1.Table6Old_amortiz.Value));

DataModule1.Table6.Post;