四舍五入
来源:互联网 发布:淘宝首页怎么设计 编辑:程序博客网 时间:2024/03/28 17:48
Public Function RoundF(Number, Optional NumOfDigits As Long) As Double
If Not IsNumeric(Number) Then Exit Function
Dim iPos As Long
iPos = InStr(Number, ".")
Dim dbDesimalPart As Long
Dim dbRoundPart As Long
If iPos > 0 Then
dbDesimalPart = Mid(Number, iPos + 1)
End If
If NumOfDigits < Len(CStr(dbDesimalPart)) Then
dbRoundPart = Mid(dbDesimalPart, NumOfDigits + 1, 1)
End If
If dbRoundPart > 4 Then
dbDesimalPart = Left(dbDesimalPart, NumOfDigits) + 1
Else
dbDesimalPart = Left(dbDesimalPart, NumOfDigits)
End If
RoundF = Val(Int(Number) & "." & dbDesimalPart)
End Function
If Not IsNumeric(Number) Then Exit Function
Dim iPos As Long
iPos = InStr(Number, ".")
Dim dbDesimalPart As Long
Dim dbRoundPart As Long
If iPos > 0 Then
dbDesimalPart = Mid(Number, iPos + 1)
End If
If NumOfDigits < Len(CStr(dbDesimalPart)) Then
dbRoundPart = Mid(dbDesimalPart, NumOfDigits + 1, 1)
End If
If dbRoundPart > 4 Then
dbDesimalPart = Left(dbDesimalPart, NumOfDigits) + 1
Else
dbDesimalPart = Left(dbDesimalPart, NumOfDigits)
End If
RoundF = Val(Int(Number) & "." & dbDesimalPart)
End Function
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- 四舍五入
- Some sites I found ...
- Knowlege Management - Document Management System practice
- Ms Wu, good teacher!
- java新手,用Jbuilder X的问题
- BrowseFolder
- 四舍五入
- 列举正在运行的所有应用程序
- Tomcat4.01全攻略(转)
- Hibernate 入门
- GetInternetIP
- GetPID
- 关注Queue:Java 1.5 添加新的数据结构接口
- LockListViewHead
- 查看与更改NTFS文件夹权限