Экономическое состояние предприятия

Дипломная работа - Экономика

>strtofloat(tabl.Cells[2,14]))/

strtofloat(tabl1.cells[2,9]);{коэф-т маневренности}

Kolk:=(strtofloat(tabl.cells[2,39])-

strtofloat(tabl.cells[2,14]))

/(strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,33]));{коэф-т общ ликвидности}

Kslk:=(strtofloat(tabl.Cells[2,37])-

strtofloat(tabl.Cells[2,16])-strtofloat(tabl.Cells[2,17])

-strtofloat(tabl.Cells[2,18])-strtofloat(tabl.Cells[2,36]))

/(strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,33]));{коэф-т срочной ликвидности}

Kalk:=(strtofloat( tabl.Cells[2,32])+

strtofloat(tabl.Cells[2,34])+strtofloat(tabl.Cells[2,35]))

/(strtofloat(tabl1.Cells[2,32])+strtofloat(tabl1.Cells[2,13])+

strtofloat(tabl1.Cells[2,33]));{коэф-т абсолютной ликвидности}

{Вывод результатов}

tabl2.Cells[1,1]:=floattostrf(Ka,ffgeneral,4,0);{коэф-т фин автономии}

tabl2.Cells[1,2]:=floattostrf(Kz,ffgeneral,4,0);{коэф-т зависимости}

tabl2.Cells[1,3]:=floattostrf(Kr,ffgeneral,4,0);{коэф-т фин риска}

tabl2.Cells[1,4]:=floattostrf(Km,ffgeneral,4,0);{коэф-т маневренности}

tabl2.cells[1,5]:=floattostrf(Kol,ffgeneral,4,0);{коэф-т общ ликвидности}

tabl2.Cells[1,6]:=floattostrf(Ksl,ffgeneral,4,0);{коэф-т срочной ликвидности}

tabl2.cells[1,7]:=floattostrf(Kal,ffgeneral,4,0);{коэф-т абсолютной ликвидности}

tabl2.Cells[1,8]:=floattostrf(P1,ffgeneral,4,0);{рентабельность совокупного капитала}

tabl2.Cells[1,9]:=floattostrf(P2,ffgeneral,4,0);{рентабельность собственного капитала}

tabl2.Cells[1,10]:=floattostrf(P3,ffgeneral,4,0);{валовая рентабельность продаж}

tabl2.Cells[1,11]:=floattostrf(P4,ffgeneral,4,0);{операционная рентабельность продаж}

tabl2.Cells[1,12]:=floattostrf(P5,ffgeneral,4,0);{чистая рентабельность продаж}

tabl2.Cells[2,1]:=floattostrf(Kak,ffgeneral,4,0);{коэф-т фин автономии}

tabl2.Cells[2,2]:=floattostrf(Kzk,ffgeneral,4,0);{коэф-т зависимости}

tabl2.Cells[2,3]:=floattostrf(Krk,ffgeneral,4,0);{коэф-т фин риска}

tabl2.Cells[2,4]:=floattostrf(Kmk,ffgeneral,4,0);{коэф-т маневренности}

tabl2.cells[2,5]:=floattostrf(Kolk,ffgeneral,4,0);{коэф-т общ ликвидности}

tabl2.Cells[2,6]:=floattostrf(Kslk,ffgeneral,4,0);{коэф-т срочной ликвидности}

tabl2.cells[2,7]:=floattostrf(Kalk,ffgeneral,4,0);{коэф-т абсолютной ликвидности}

end;

end.