4舍6入5看右，5后有数进上去，尾数为0向左看，左数奇进偶舍弃

求数值修约的程序，实现如题，如果函数写的好的，可以申请悬赏分值！先谢谢了！java实现的代码更好，记住我要的是代码！

Public Function sRound(ByVal Data As Double, ByVal Number As Integer) As Double
Dim Temp As Double
If Number < 0 Then sRound = 0: Exit Function
Temp = Data - Int(Data)
If Len(Str(Temp)) <= Number + 2 Then
sRound = Data
Else
Dim Temp1, Temp2 As Double
Temp1 = Data * (10 ^ Number) - Int(Data * (10 ^ Number))
If Temp1 < 0.5 Then
Temp1 = 0
ElseIf Temp1 = 0.5 Then
Temp2 = Int(Data * (10 ^ Number))
If Temp2 Mod 2 = 0 Then
Temp1 = 0
Else
Temp1 = 1
End If
Else
Temp1 = 1
End If
sRound = (Int(Data * (10 ^ Number)) + Temp1) / (10 ^ Number)
End If
End Function

不明白那段简洁的描述