Format numbers with Indian style commas.

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


Comments

Post a Comment

Popular posts from this blog

Mix different .Net Framework on Windows 2003 Server

Image
This tutorial is for setting up websites based on .Net Framework 2.0 and 4.0 on windows 2003 server. Very first thing we should keep in mind that IIS 6.0 application pools do not allow mixed .Net Framework. Here I am showing pictures for making new application pool in IIS 6.0 and IIS 7.0  IIS 6.0 New application pool dialogue  IIS 7.0 New application pool dialogue As you can see in IIS 6.0 we do not have option for selecting .Net Framework Steps to setting up mixed .Net Framework(2.0/4.0) on Windows 2003 Server Step-1 We will create two different application pool. I named them DotNet2Pool and DotNet4Pool you can give any name as per your choice. Step-2 Now assign application pool as per .Net requirement of your website as shown in figure You can check and set your website .Net Framework requirement as shown in below image. Please make sure do not use .Net Framework 2.0 application pool on ASP.net 4.0 website and vice-versa. Thanks!
Read more

CBM Calculator for single type of cartons

Hi All,  After 6 year of CBM Calculator support and development we had launched new version of CBM Calculator to calculate volume for single type of cartons.  In this user need to enter length, width, height and carton gross weight either in cm and kg / inch and lbs. CBM Calculator will calculate cubic meter, cubic feet, gross weight, volumetric weight and quantity approximation for all type of containers. You can check this version at CBM Calculator .  Apart this new type of simple calculator, CBM Calculator offers advance online version for multiple type of cartons. You can calculate volume and weight targeting one container or you can let CBM Calculator suggest you container type and no of containers required. Try this at online CBM Calculator .  If you are not comfortable with online working you can always use our windows version from Windows CBM Calculator version.  So try these calculators and let us know your feedback.  Thanks.  T...
Read more