In our ERP projects we usually need to display commas in numbers. In most of the format we did not get Indian style commas. So I had developed this class. Its main function is Put_Commas it take string as input and return string with commas.
Public Class ClsCommas
Public Function Put_Commas(ByVal PassString As String) As String
Dim IsNegative As Boolean
Dim DecimalPart As String
Dim TLen As Long 'Length of String without "-" and "."
Dim LString As String 'String for Storing Changed String
'-------
'Check Must Be Greater than 999
'------
If System.Math.Abs(Decimal.Parse(PassString)) <= 999 Then
Put_Commas = PassString
Exit Function
End If
'-------------
'Check Negative Values
'-------------
If Decimal.Parse(PassString) < 0 Then
IsNegative = True
PassString = Right(PassString, Len(PassString) - 1)
Else
IsNegative = False
End If
'---------
'Remove Decimal Part
'---------
If PassString.Contains(".") Then
DecimalPart = Right(PassString, Len(PassString) - PassString.IndexOf("."))
PassString = Left(PassString, InStr(1, PassString, ".") - 1)
Else
DecimalPart = ""
End If
'-----------------
TLen = Len(PassString)
If TLen > 3 Then 'First Time Three Char
LString = Right(PassString, 3)
TLen = TLen - 3
PassString = Left(PassString, Len(PassString) - 3)
Else
LString = ""
End If
Do While TLen > 2
LString = Right(PassString, 2) + "," + LString
TLen = TLen - 2
PassString = Left(PassString, Len(PassString) - 2)
Loop
LString = Trim(PassString) + "," + Trim(LString)
'--------------
'Add Decimal Part
'-------------
If Trim(DecimalPart) <> "" Then
If Trim(DecimalPart.Contains(".")) = False Then
LString = LString + "." + DecimalPart
Else
LString = LString + DecimalPart
End If
'-------------------------------------------------
End If
'-----------
'Check for Negative
'-----------
If IsNegative Then
LString = "-" + Trim(LString)
End If
Put_Commas = LString
End Function
Private Function Right(ByVal PassStr As String, ByVal RChar As Integer) As String
Dim LStr As String
Try
LStr = PassStr.Substring(PassStr.Length - RChar, RChar)
Return LStr
Catch ex As Exception
Return PassStr
End Try
End Function
Private Function Left(ByVal PassStr As String, ByVal LChar As Integer) As String
Dim LStr As String
Try
LStr = PassStr.Substring(0, LChar)
Return LStr
Catch ex As Exception
Return PassStr
End Try
End Function
End Class
Happy Coding!!
Tariq
