Предыдущая страница реферата | 1  2  3  4  5  6  7  8

Для расчета суммы амортизационных отчислений для подвижного состава автомобильного транспорта, по которому начисление амортизации на реновацию производится по нормам, определенным в процентах от стоимости автомашины, отнесенной к 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*Da taModule1.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;

2. Автотранспортное средство:

DataModule1.Table6.Edit;
DataModule1.Table6Pol_iznos.Value:=(DataModule1.Table6Bas_Stoim.Value*0.481)
/1000*DataModule1.Table6KMetrash.Value;
DataModule1.Table6Ost_stoim.Value:=StrToFloat(FormatFloat('0.00',DataModule1
.Table6Bas_Stoim.Value-DataModule1.Table6Pol_iznos.Value));
DataModule1.Table6.Post;

3. В случае если оборудование полностью самортизировало:

DataModule1.Table6.Edit;
IF DataModule1.Table6Pol_iznos.Value>DataModule1.Table6Bas_Stoim.Value Then
Begin

DataModule1.Table6Mes_amort.Value:=0;

DataModule1.Table6Pol_iznos.Value:=DataModule1.Table6Bas_Stoim.Value;

DataModule1.Table6Ost_stoim.Value:=0;
End;
IF DataModule1.Table6Ost_Stoim.Value

Скачали данный реферат: Tarasov, Попков, Ершов, Липин, Karpencev, Erzov, Jakimenko.
Последние просмотренные рефераты на тему: защита курсовой работы, доклад листья, реферат война, государственный диплом.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8

Поделитесь этой записью или добавьте в закладки