Visual Basic

    Shared bNumberIsNegative As Boolean = False<br />
    Public Shared Function SetComma(ByVal dblNumber As Double) As String<br />
        Try<br />
            If dblNumber < 0 Then bNumberIsNegative = True Else bNumberIsNegative = False<br />
            dblNumber = Math.Abs(dblNumber)<br />
            dblNumber = Math.Round(dblNumber, 4)<br />
            Dim dblNumberWithOutComma As String = dblNumber.ToString<br />
            Dim strNumberWithComma As String = ""<br />
            Dim shrDotIndex As Short = dblNumberWithOutComma.IndexOf(".")<br />
            Dim i As Integer<br />
            Dim k As Integer<br />
            If shrDotIndex = -1 Then shrDotIndex = dblNumberWithOutComma.Length<br />
            For i = shrDotIndex - 1 To 0 Step -1<br />
                k = shrDotIndex - 1 - i<br />
                If (k Mod 3) = 0 And Not k = 0 Then strNumberWithComma = "," & strNumberWithComma<br />
                strNumberWithComma = dblNumberWithOutComma.Chars(i) & strNumberWithComma<br />
            Next<br />
            strNumberWithComma &= dblNumberWithOutComma.Substring(shrDotIndex, dblNumberWithOutComma.Length - shrDotIndex)<br />
            Select Case dblNumberWithOutComma.Length - shrDotIndex<br />
                Case 0 : strNumberWithComma &= ".00"<br />
                Case 2 : strNumberWithComma &= "0"<br />
            End Select<br />
            If bNumberIsNegative Then strNumberWithComma = "-" & strNumberWithComma<br />
            Return strNumberWithComma<br />
        Catch ex As Exception<br />
<br />
        End Try<br />
    End Function