stringvar x: = totext ({YourFieldValue}, 3, "");
массив stringvar y: = split (x, ".");
если ubound (y)> 1, то
если остаток (val (y [2]), 100)> 49, то
val (y [1]) + ((Усеченный (val (y [2]) / 100) +1) * 100) / 1000
еще
val (y [1]) + ((усеченное (val (y [2]) / 100)) * 100) / 1000
Я получаю решение таким образом.