'金钱类数字每三位加逗点

'金钱类数字每三位加逗点
    Public Shared Function GetMoney(ByVal strMoney As String) As String

        If 0 < strMoney.Length Then
            If "0".Equals(strMoney) _
            OrElse "0.0".Equals(strMoney) Then

                Return ""

            Else

                '取得字符串长度
                strMoney = strMoney.Replace("-", "")
                strMoney = strMoney.Replace(",", "")
                Dim StrOhter As String = ""
                Dim intOther As Integer = strMoney.IndexOf(".")
                If intOther <> -1 Then
                    StrOhter = strMoney.Substring(intOther)
                    strMoney = strMoney.Substring(0, intOther)
                End If
                Dim intLength As Integer = strMoney.Length
                '返回字符串
                Dim strReturn As String = ""
                '求模后返回值   
                Dim intMod As Integer = 0
                Try
                    '判断是否用加逗点
                    If intLength > 3 Then
                        intMod = intLength Mod 3
                        If 0 <> intMod Then
                            strReturn += strMoney.Substring(0, intMod) & ","
                            strMoney = strMoney.Substring(intMod)
                        End If
                        For i As Integer = 1 To strMoney.Length
                            strReturn += strMoney.Substring(i - 1, 1)
                            If i Mod 3 = 0 _
                            AndAlso i <> strMoney.Length Then
                                strReturn += ","
                            End If
                        Next
                    Else
                        strMoney += StrOhter
                        Return strMoney
                    End If
                Catch ex As Exception

                End Try

                strReturn += StrOhter
                Return strReturn

            End If
        Else

            GetMoney = ""

        End If

    End Function