Office中国论坛/Access中国论坛

标题: 怎样取得一个小数的小数部分? [打印本页]

作者: dyjzbs 时间: 2002-10-12 06:36
标题: 怎样取得一个小数的小数部分?
怎样取得一个小数的小数部分?

作者: skylark 时间: 2002-10-12 18:15
To dyjzbs:
IIf([号码1]<1,[号码1],IIf(Round([号码1])-[号码1]>0,([号码1]+1)-Round([号码1]),[号码1]-Round([号码1])))
SQL语句：UPDATE 号码表 SET 号码表.号码2 = IIf([号码1]<1,[号码1],IIf(Round([号码1])-[号码1]>0,([号码1]+1)-Round([号码1]),[号码1]-Round([号码1])));
——————————————————————
Try Anything Once.

作者: davy 时间: 2002-10-14 04:55
如果您想得到一个数的小数部分（正数和负数）
请您参考这个函数：
Function SsWrHS(SZdata As Currency) As Currency
'********************************
'四舍五入（保留小数点后两位）函数
'********************************
Dim zsWWW As Currency, xsWWW As Currency, zhWWW As Currency, ssWWW As Currency

zsWWW = Fix(SZdata) '取整数部分

xsWWW = SZdata - zsWWW '取小数部分

zhWWW = xsWWW * 100 '将小数部分转换成两位整数的数

ssWWW = CLng(zhWWW) / 100 '用CLNG函数将小数部分四舍五入

SsWrHS = zsWWW + ssWWW '合成新的数据

End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)