怎样取得一个小数的小数部分?

dyjzbs

怎样取得一个小数的小数部分?

skylark

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

如果您想得到一个数的小数部分（正数和负数）
请您参考 这个函数：
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