Connecting Tech Pros Worldwide Help | Site Map

how to covert number to indian format

Newbie
 
Join Date: Jul 2009
Posts: 2
#1: Aug 18 '09
example

i need like
1234567.45 = 12,34,567.45

123456.00 = 1,23,456.00
debasisdas's Avatar
Moderator
 
Join Date: Dec 2006
Location: Bangalore ,India
Posts: 7,499
#2: Aug 18 '09

re: how to covert number to indian format


try to sue FORMAT function.
CyberSoftHari's Avatar
Expert
 
Join Date: Sep 2007
Location: Banglore, India.
Posts: 450
#3: Aug 22 '09

re: how to covert number to indian format


you can use FORMATNUMBER Function as well.
Familiar Sight
 
Join Date: Oct 2007
Posts: 158
#4: Aug 22 '09

re: how to covert number to indian format


hi
use following code to convert numbers in to indian format

Option Explicit

Private Function MyFormat(ByVal TNum As String) As String
Dim TStr As String
Dim OStr As String
Dim TempStr As String
'
TNum = Replace(TNum, ",", "")
'
OStr = Format(TNum, "0.00")
TStr = Right(OStr, 6)
If Len(OStr) <= 6 Then
MyFormat = TStr
Else
OStr = Left(OStr, Len(OStr) - 6)
Do
TempStr = Right(OStr, 2)
TStr = TempStr & "," & TStr
OStr = Left(OStr, Len(OStr) - Len(TempStr))
Loop Until Trim(OStr) = ""
MyFormat = TStr
End If
End Function

Private Sub Form_Load()
MsgBox MyFormat("121123456")
End
End Sub


regards
manpreet singh dhillon hoshiarpur
Reply