Ну так поправьте, чтобы не резал...

Sumo 18.01.2014 15:23 / 18.01.2014 16:58

@formatNumeric[aValue;aFracLen][locals]
  $aFracLen(^aFracLen.int(8))
  ^if($aFracLen){
    $lInteger(^math:trunc($aValue))
    $lFrac(^math:frac($aValue))
    $lFrac[^lFrac.format[%.${aFracLen}f]]]
    $lFrac[^lFrac.mid(^lFrac.pos[.])]
    $result[$lInteger^lFrac.trim[right;.0]]
  }{
     $result[^math:round($aValue)]
   }