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

jicheng

见分进角的函数是什么呀

如2.22保留为2.3

12.11 保留为12.2

12.89  保留为12.9

反正有1分也进到角，不是四舍五入

[此贴子已经被作者于2006-7-13 11:04:20编辑过]

jicheng

有知道的吗

andymark

Function FixJiao(Mydata As Variant) As Variant
'================================================

'逢分进角
'用法:Fixjiao(200.33)
' andymark
' 2006-7-13
'==================================================
Dim IntFen As Integer
Dim IntJiao As Integer
Dim IntYuan As Integer
IntYuan = Fix(Mydata)

IntJiao = Int((Mydata - IntYuan) * 10)

IntFen = Int((Mydata - IntYuan - IntJiao / 10) * 100)

If IntFen > 0 Then
   FixJiao = IntYuan + (IntJiao + 1) / 10
  Else
  FixJiao = IntYuan + IntJiao / 10
End If

End Function

jicheng

还是版主OK

最好再加个自动取保留位数的,如见角进元,像FixJiao(mydate,2) 为见厘进分,

andymark

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


还是版主OK

最好再加个自动取保留位数的,如见角进元,像FixJiao(mydate,2) 为见厘进分,

     原理都一样的，你先试试写写，这样对你也有帮助

jicheng

我就是不理解关系,这也是网上看到的四舍五入函数,但要换成只要有小数就进位,不知改哪个数字?

Function myRound(Number As Double, N As Integer) As String
    myRound = Format(Int(Number * (10 ^ N) + 0.5) / (10 ^ N), "0." & String(N, "0"))
End Function
是不是改0.5?请版主帮帮忙吧

tz-chf

加5分再四舍五入，很常用的方法嘛。

andymark

Function myRound(Number As Variant, N As Integer) As Variant

'=========================================================
'自定义小数位,小数位后的数大于零就进1
'用法: myRound(33.2120,2)
' andymark 修改于 2006-7-13

'==========================================================
Dim IntNum As Variant

IntNum = Number - Int(Number * (10 ^ N)) / (10 ^ N)

If IntNum > 0 Then
   myRound = Int(Number * (10 ^ N)) / (10 ^ N) + 1 / (10 ^ N)
Else
   myRound = Int(Number * (10 ^ N)) / (10 ^ N)
End If

myRound = Format(myRound, "0." & String(N, "0"))


End Function

tz-chf

不用楼上那么复杂吧

jicheng

哪有直接应用的函数吗?

像round(x,2)这样的直接函数,有吗?