не поможет -
Переменная = Round ( Переменная , 1 ) - округление до нужного кол-ва знаков.

Дубле по любому будет в голове держать тсолько знаков на сколько хватит головы

Как программно объявить переменную типа Double с одним знаком после запятой, а не с 14.