Вы можете использовать функцию COMPRESS, которая принимает форму
COMPRESS(<source><, chars><, modifiers>)
Обновление:
Есть много способов достичь этого. Согласно их комментариям, RWill и Кит предоставляют лучшие решения:
var2=input(compress(var,compress(var,,"d")),best.);
или даже лучше:
var2=input(compress(var,,"kd"),best.);