在计算成绩的时候 怎么才能不让小数点后面的数 不四舍五入呢

举例说明

?INT(3.1415926*1000)/1000

结果：3.1410

?INT(1.235*100)*0.01

VFP本身提供了四舍五入函数round(),如果你不想四舍五入，是否可以考虑将原数-0.5再使用四舍五入函数呢？

clear
?Not_Round(11.987654321,6)

FUNCTION Not_Round(nExp1,nDec1)
LOCAL nDec2,cFormat,nExp2,cExp2

nDec2 = SET("DECIMALS") &&保存原先小数点位数,设置新的小数点位数
SET DECIMALS TO nDec1

IF nDec1>=1
   cFormat = REPLICATE("9",INT(LOG10(nExp1))+1)+"."+REPLICATE("9",nDec1) &&设置掩码,如 9999.999
ELSE
   cFormat = REPLICATE("9",INT(LOG10(nExp1))+1)
ENDIF
   
nExp2 = INT(nExp1*10^nDec1)/10^nDec1 &&根据小数点位数放大N倍,取整数,然后还原倍数

cExp2 = TRANSFORM(nExp2,cFormat) &&用掩码换行为字符,然后在转换为数值,目的是为了去掉多余的0,如 1.23400的后面2个0
nExp2 = VAL(cExp2)
SET DECIMALS TO nDec2 &&恢复小数点位数

RETURN nExp2

ENDFUNC
   

6楼的方法,去掉了3楼的结果3.1410后面的3.141

直接用INT()函数不行吗，无论小数点之后是什么，一律舍掉。如果小数点之后的一律进位，就根据精度需要加0.9或0.99...，然后再取整。

3楼（或4楼）的方法就可以办到的。

3楼或者4楼的,是可以,但你们没发现,后面会多出几个0