四舍五入

标签：直接   bst   The   contains   ring   小数点   sum   nta   contain   

‘‘‘ <summary>

‘‘‘     四舍五入

‘‘‘ </summary>

‘‘‘ <param name="dbValue">需要四舍五入的原始数据，字符串类型</param>

‘‘‘ <param name="rightBits">四舍五入以后，小数点右边保留几位；整数类型</param>

‘‘‘ <returns>返回字符串</returns>

‘‘‘ <remarks></remarks>

Public Function add5remove4(dbValue As String, rightBits As Integer) As String

       If dbValue.Contains(".") Then    ‘   如果金额数值 带有小数点

          Dim strLeft AsString = dbValue.Split(".")(0)     ‘ 取得 小数点左边的字符串

         Dim strRight AsString = dbValue.Split(".")(1)    ‘  取得小数点右边的字符串（小数部分）

         If strRight.Trim.Length > rightBits Then  ‘ 如果小数点后面超过位数，则需要对其进行处理（四舍五入，保留3位）

              Dim strRight123 As String = strRight.Substring(0, rightBits)    ‘  小数部分 前 n 位

              Dim strRight4 As String = strRight.Substring(rightBits, 1)      ‘  小数部分 第 n+1 位

              If CInt(strRight4) >= 5 Then   ‘ 如果第 n+1 位大于等于5 

                               strRight123 = ( CInt(strRight123) + 1).ToString   ‘  前 n 位加一

               If strRight123.Length > rightBits Then   ‘  如果 前n位是 9999（加一就变成 10000 ）  

                                         strLeft = ( CInt(strLeft) + 1).ToString   ‘  左边加一

                      strRight123 = strRight123.Substring(1, rightBits)   ‘  右边取 n 位

                End If

              End If

              dbValue = strLeft & "." & strRight123     ‘   重新组合

         End If

     End If

      Return dbValue   ‘ 如果数值没有小数点，则直接返回

End Function

四舍五入

标签：直接   bst   The   contains   ring   小数点   sum   nta   contain   

原文地址：https://www.cnblogs.com/gaoleionline/p/11790919.html