Put Below Function into your .VB file
Function IndiaRupees(ByVal rs As String)
Dim str As String = ""
str = Right(rs, 3)
rs = Left(rs, IIf(rs.Length > 3, rs.Length - 3, 0))
While rs <> ""
str = Right(rs, 2) & "," & str
rs = Left(rs, IIf(rs.Length > 2, rs.Length - 2, 0))
End While
IndiaRupees = "Rs. " & str
End Function
'---------------------------
How to Call?
Label1.Text = IndiaRupees(TextBox1.Text)
--
Prakash Samariya (IT Professional, HDSE)
Mob: 9879074678 Res: +91-79-32924610
http://ps-india.blogspot.com/
http://psamariya.googlepages.com/
Below Nelson's School, Opp SBI, Punit Ahram Road, Maninagar, Ahmedabad - 380008, Gujarat, India.
