Private Function GetNumber(f As Double, iPos As Integer) As String
Dim k As Integer
Dim i As Integer
Dim s As String
Dim s1 As String
Dim s2 As String
Dim k1, k2 As Integer

s = Trim$(CStr(f))
i = InStr(1, s, ".") '查找小数点的位置
'检查是否需要进行处理
s1 = Mid(s, i + iPos + 1, 1)
s2 = Mid(s, i + iPos, 1)
k1 = Val(s1)
k2 = Val(s2)

If iPos = 0 Then
If i > 0 Then s1 = Left$(s, i)
Else '小数点后是否有大于精度的位数。不大于则不需处理
If Len(s) - i > iPos Then '最后一位<5：舍去，>5：进位，=5：奇进偶舍

If k < 5 Then '舍去
s1 = Left$(s, i + iPos)
ElseIf k > 5 Then '进位
s1 = Mid(s, i + iPos, 1)
k = Val(s1)
k = k + 1
s1 = Left$(s, i + iPos - 1) + Trim(Str(k))
ElseIf k = 5 Then '奇进偶舍
s1 = Mid(s, i + iPos, 1)
k = Val(s1)
k2 = Val(Len(s)) - i - iPos

If k2 = 0 Then '偶舍
If k Mod 2 = 0 Then
s1 = Left$(s, i + iPos)
Else '奇进
k = k + 1
s1 = Left$(s, i + iPos - 1) + Trim$(Str(k))
End If
Else
k = k + 1
s1 = Left$(s, i + iPos - 1) + Trim$(Str(k))
End If
End If
End If
End If
' s1 = Format(s1, "####0.000")
' Print s1
GetNumber = CStr(s1) '送回处理后的数据
End Function

Private Function GetNumber(f As Double, iPos As Integer) As String
Dim k As Integer
Dim i As Integer
Dim s As String
Dim s1 As String
Dim s2 As String
Dim k1 As Integer, k2 As Integer ''As Integer不可以省略不然k1为Variant

s = CStr(f) ''CStr不存在前导空位不需要Trim
i = InStr(1, s, ".") '查找小数点的位置
'检查是否需要进行处理
s1 = Mid(s, i + iPos + 1, 1)
s2 = Mid(s, i + iPos, 1)
k = Val(s1) ''这里错误了。下面是k你本身却写的是k1
k2 = Val(s2)

If iPos = 0 Then
If i > 0 Then s1 = Left$(s, i)
Else '小数点后是否有大于精度的位数。不大于则不需处理
If Len(s) - i > iPos Then '最后一位<5：舍去，>5：进位，=5：奇进偶舍

If k < 5 Then '舍去
s1 = Left$(s, i + iPos)
ElseIf k > 5 Then '进位
s1 = Mid(s, i + iPos, 1)
k = Val(s1)
k = k + 1
s1 = Left$(s, i + iPos - 1) + Trim(Str(k))
ElseIf k = 5 Then '奇进偶舍
s1 = Mid(s, i + iPos, 1)
k = Val(s1)
k2 = Len(s) - i - iPos ''Len返回Long数据不需要Val转换

If k2 = 0 Then '偶舍
If k Mod 2 = 0 Then
s1 = Left$(s, i + iPos)
Else '奇进
k = k + 1
s1 = Left$(s, i + iPos - 1) + Trim$(Str(k))
End If
Else
k = k + 1
s1 = Left$(s, i + iPos - 1) + Trim$(Str(k))
End If
End If
Else ''如果精确位数小于原长度
s1 = f ''返回原数字
End If
End If
' s1 = Format(s1, "####0.000")
' Print s1
GetNumber = CStr(s1) '送回处理后的数据
End Function

其实系统内部提供了这样一个函数，下面是我写的函数
Private Function SGetNumber(f As Double, iPos As Integer) As String
SGetNumber = LTrim$(Round(f, iPos))
End Function

什么叫四舍6入啊!
round函数不可以实现吗?

是啊，但是那个1.0545，保留三位小数时，应该是1.054啊！结果也是1.055呢

i=insert(1,s,".")
n=i+3
m=mid(s,n,1)
if m>=6 then
text1.text=left(s,i) +0.01 ’六进
else
text1.text=left(s,i) '五舍?(你要的是四舍。。。那如果是5你要怎样)
end if

[此贴子已经被作者于2007-8-14 9:01:19编辑过]