[Roman777]

Цитата:

Сообщение от EVGL

Шокированный коллега прислал сегодня сей изысканный образец творчества местного программиста:

actorForSpoiling = prodTableRun.QtySched / InventTableRun.qtyPerLayer / prodTableRun.MEM_NumOfLanes;
 numofpage = 1;
 if (factorForSpoiling > 198)
  numofpage = 12;
 else if (factorForSpoiling > 180)
  numofpage = 11;
 else if (factorForSpoiling > 162)
  numofpage = 10;
 else if (factorForSpoiling > 144)
  numofpage = 9;
 else if (factorForSpoiling > 126)
  numofpage = 8;
 else if (factorForSpoiling > 108)
  numofpage = 7;
 else if (factorForSpoiling > 90)
  numofpage = 6;
 else if (factorForSpoiling > 72)
  numofpage = 5;
 else if (factorForSpoiling > 54)
  numofpage = 4;
 else if (factorForSpoiling > 36)
  numofpage = 3;
 else if (factorForSpoiling > 18)
  numofpage = 2;

Остается только подчеркнуть: ребята и деачата, Австрии СРОЧНО нужны программисты!

Может так:

    numofpage = trunc(((factorForSpoiling - 1) / 18) + 1);

?