提供一个思路：以小数点为分隔符，截取小数点后的值，作为字符型输入，然后直接用length函数就可以了。

format A 10.3

啊这……不能定死，万一数据更新之后出现了数值型10.2000 这就算是4位小数了

如果你这个数据集不是所有data的最后一位都是以0结尾，那就可以用put 加length函数来确定小数点后有几位。decimal=length(scan(strip(put(a, best.)) , 2 , "."));

如果不转为文本截取小数点后的位数，或者用循环语句：
if a=round(a,0.1) then decimal=1;
else if a=round(a,0.01) then decimal=2;
else if a=round(a,0.001) then decimal=3;
else if a=round(a,0.0001) then decimal=4;