怎么把 .107476 自动改写成 10.8% 呢?因为这个数据是用来表示误差的,所以误差只能放大,不能四舍五入。
所以要做到
1、判断小数后面第4位是不是0,是0的话就改写成10.7%
2、小数后面第4位大于0,就改写成10.8%大家可以帮写一下吗?我写得很累赘,想看看简洁明了的代码?谢谢!
所以要做到
1、判断小数后面第4位是不是0,是0的话就改写成10.7%
2、小数后面第4位大于0,就改写成10.8%大家可以帮写一下吗?我写得很累赘,想看看简洁明了的代码?谢谢!
MsgBox Format(CStr(Text1.Text), "0.0%")
End Sub
dim Tmp as double
FloatIn =FloatIn * 1000
Tmp =int(FloatIn)
if Tmp < FloatIn then Tmp=Tmp + 1
Tmp=Tmp / 10
FormatFloat = Format(Tmp, "0.0%")
End Function
Function FormatFloat(byval FloatIn as Double) As String
好了。
或者
Format(Int( .107476 *1000)/10#, "0.0%")
CStr(Int( .107476 *1000-0.1)/10+0.1) & "%"
或者
Format(Int( .107476 *1000-0.1)/1000+0.001, "0.0%")
希望能交个朋友!My QQ:57458628