五舍六入→四舍五入

http://yul.cnblogs.com/archive/2006/04/22/382231.html

M$总晃惦人，C#里Math.Round()似乎在做舍入计算的时候没那么好用，简直可以说是“五舍六入”啦~~~刚开始不知道这茬，计算结果总不对。后来，跟了程序才发现这方法居然忽悠了我。没法子，既然这么不好用，或者说这么没有中国特色，只能自己搞点中国特色出来了。重写Round()：

public static double Round(double d, int i)
        {
            if(d >=0)
            {
                d += 5 * Math.Pow(10, -(i + 1));
            }
            else
            {
                d += -5 * Math.Pow(10, -(i + 1));
            }
            string str = d.ToString();
            string[] strs = str.Split('.');
            int idot = str.IndexOf('.');
            string prestr = strs[0];
            string poststr = strs[1];
            if(poststr.Length > i)
            {
                poststr = str.Substring(idot + 1, i);
            }
            string strd = prestr + "." + poststr;
            d = Double.Parse(strd);
            return d;
        }

参数：d表示要四舍五入的数；i表示要保留的小数点后为数。

初步来看效果还不错，基本把书上的题目算了一转，都OK！行了，就这么招吧，别影响GM的精确度就好了 ;-)

最后，简单举个离子，描述下原理：
准备将1.4和1.5四舍五入到整数，那么就先加上0.5，然后截小数点前的那串数字就OK了。我们看，1.4 + 0.5 = 1.9 ==》 截得到1；1.5 + 0.5 = 2.0 ==》 截得到2。这就完成了四舍五入，这个点子真的不错！

PS：点子很牛×，可惜不是我想出来地，真遗憾！感谢网络上的无名英雄了~~~还好点子落实到行动，是由我自己来做的，有点安慰。。。

VB:

 Public Function double_rount()Function double_rount(ByVal d As String, ByVal i As Int16) As String
        Dim num As Decimal = Val(d)
        If num > 0 Then
            d += 5 * Math.Pow(10, -(i + 1))
        Else
            d += -5 * Math.Pow(10, -(i + 1))
        End If
        Dim str As String = d
        Dim strs() As String = str.Split(".")
        Dim idot As Int16 = str.IndexOf(".")
        Dim prestr As String = strs(0)
        Dim poststr As String = strs(1)
        If (poststr.Length > i) Then
            poststr = str.Substring(idot + 1, i)
           
        End If
        Dim strd As String = prestr + "." + poststr
        d = Double.Parse(strd).ToString
        Return d
    End Function