有分就进到角的函数是什么呀,不是四舍五入(如2.22保留为2.3)

andymark

以下是引用tz-chf在2006-7-14 8:42:00的发言：
不用楼上那么复杂吧

      应该有更简单的，把它贴出来，让大家也学习学习

andymark

真的可以更简单，谢谢tz-chf提醒

Function myRound(Number As Double, N As Integer) As String
    myRound = Format(Int(Number * (10 ^ N) + 0.99999) / (10 ^ N), "0." & String(N, "0"))
End Function

tz-chf

按他的要求，不做成通用函数的话

round(x+0.05,1)

jicheng

加0.045,否则会出错,如是1.10的话会取1.2了,应该1.11以上才取1.2

tz-chf

以下是引用jicheng在2006-7-14 21:57:00的发言：


加0.045,否则会出错,如是1.10的话会取1.2了,应该1.11以上才取1.2

有道理

ahjxqi

ROUNDUP(x,1)   
这个函数就可以，2.23＝2.3   2.25＝2.3   12.81＝12.9

希望能帮到你！

Henry D. Sy

if right(A,1)>0 then
B=left(A,len(A)-1)+0.1
end if
A为原值
B为进位后的值