[Reks888]

1. Переводим в текст
2. Берем всю целую часть + следующую цифру после запятой(например str=Copy(str,1,Instr(str,',')+1); где Copy копирует с первого символа до Instr(str,',')+1 которая вернет где находится запятая.
3. Переводим в число