小数点四舍五入 - VFP论坛 - 编程论坛档案馆

编程论坛 → 数据库技术 → 『 VFP论坛』 → 小数点四舍五入

标题：小数点四舍五入

只看楼主

久久旺达

等　级：论坛游民
威　望：1
帖　子：201
专家分：12
注　册：2013-4-10
结帖率：88.14%

楼主

已结贴√ 问题点数：20 回复次数：10

小数点四舍五入

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

搜索更多相关主题的帖子: 小数点　四舍五入　计算　成绩　

2017-11-09 10:55

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 2 楼

得分:4

举例说明

坚守VFP最后的阵地

2017-11-09 11:01

pjtyzyq

等　级：业余侠客
威　望：6
帖　子：230
专家分：240
注　册：2016-2-14

第 3 楼

得分:4

?INT(3.1415926*1000)/1000

结果：3.1410

2017-11-09 11:17

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 4 楼

得分:0

?INT(1.235*100)*0.01

坚守VFP最后的阵地

2017-11-09 11:27

wangzhiyi

等　级：贵宾
威　望：34
帖　子：366
专家分：684
注　册：2014-4-9

第 5 楼

得分:4

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

2017-11-09 14:10

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 6 楼

得分:4

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

2017-11-09 15:26

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 7 楼

得分:0

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

2017-11-09 15:27

hu9jj