amount converter

Question

Hello users.

i am developing a invoice programme using c# (using Visual Studio 2005). in that i want to use the functionallity of converting the amount figure into Text.... Please help me....

eg:- $ 1275

Dollar one thousand two hundred and seventy five only.

Purushottam Rathore · Answer

@ Page Language ="VB" AutoEventWireup ="false" CodeFile ="Default.aspx.vb" Inherits ="_Default" %> DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> html xmlns ="http://www.w3.org/1999/xhtml"> head runat ="server"> title > Convert Numeric value To Word title > head > body > form id ="form1" runat ="server"> div > table cellpadding ="4" cellspacing ="4" width ="50%" align ="center"> tr > td > asp : Label ID ="Label1" runat ="server" Text ="Enter Your Numeric Value" Width ="216px"> asp : Label > br /> asp : TextBox ID ="NumericTextBox" runat ="server" Width ="300px"> asp : TextBox > td > tr > tr > td > asp : Button ID ="Button1" runat ="server" Text ="Convert" Width ="206px" OnClick ="Button1_Click" /> td > tr > tr > td > asp : Label ID ="Label2" runat ="server" Text ="Your Converted Value"> asp : Label > br /> asp : TextBox ID ="NumericToWordTextBox" runat ="server" Width ="500px"> asp : TextBox > td > tr > table > div > form > body > html > This is the aspx.vb code Partial Class _Default Inherits System.Web.UI.Page Dim unitNum(20) As String Dim hundredNum(20) As String Dim thousendNum(20) As String Dim myNum As String Dim numGroup As Integer Public Function NumericToWords( ByVal myNum As String ) As String Dim units As String Dim numericToWordsOutPut As String units = numericToWordsOutPut = "" Dim myNumArray(myNum.Length \ numGroup) As String Dim index As Int16 = -1 For Count As Int16 = 0 To myNum.Length - numGroup Step numGroup index += 1 myNumArray(index) = myNum.Substring(Count, numGroup) Next For Count As Int16 = 0 To (myNum.Length \ 3) - 1 units = thousendNum(((myNum.Length \ numGroup) - 1) - Count + 1) numericToWordsOutPut &= CheckUnitOutput(myNumArray(Count)).TrimEnd( " " ) & " " & units & " " Next myNumArray = Nothing Return numericToWordsOutPut End Function Private Function CheckUnitOutput( ByVal myNum As String ) As String Dim unitBasedOutput As String = "" Dim unitDigit As Int16 = Val(myNum.Substring(0, 1)) Dim hundredDigit As Int16 = Val(myNum.Substring(1, 1)) Dim thousendDigit As Int16 = Val(myNum.Substring(2, 1)) If unitDigit >= 1 Then unitBasedOutput &= unitNum(unitDigit) & " hundred " End If If Val(myNum.Substring(1, 2)) Then unitBasedOutput &= unitNum(Val(myNum.Substring(1, 2))) End If If Val(myNum.Substring(1, 2)) >= 20 Then unitBasedOutput &= hundredNum(hundredDigit) & " " & unitNum(thousendDigit) End If Return unitBasedOutput End Function Private Sub FormatInitialization() thousendNum(0) = "" thousendNum(1) = "" thousendNum(2) = "Thousand" thousendNum(3) = "Million" thousendNum(4) = "Billion" thousendNum(5) = "Trillion" thousendNum(6) = "Quadrillion" thousendNum(7) = "Quintillion" thousendNum(8) = "Sextillion" thousendNum(9) = "Septillion" thousendNum(10) = "Octillion" thousendNum(11) = "Nonillion" thousendNum(12) = "Decillion" thousendNum(13) = "Undecillion" thousendNum(14) = "Duodecillion" thousendNum(15) = "Tredecillion" hundredNum(0) = "" hundredNum(1) = "" hundredNum(2) = "Twenty" hundredNum(3) = "Thirty" hundredNum(4) = "Forty" hundredNum(5) = "Fifty" hundredNum(6) = "Sixty" hundredNum(7) = "Seventy" hundredNum(8) = "Eighty" hundredNum(9) = "Ninety" unitNum(0) = "" unitNum(1) = "One" unitNum(2) = "Two" unitNum(3) = "Three" unitNum(4) = "Four" unitNum(5) = "Five" unitNum(6) = "Six" unitNum(7) = "Seven" unitNum(8) = "Eight" unitNum(9) = "Nine" unitNum(10) = "Ten" unitNum(11) = "Eleven" unitNum(12) = "Twelve" unitNum(13) = "Thirteen" unitNum(14) = "Fourteen" unitNum(15) = "Fifteen" unitNum(16) = "Sixteen" unitNum(17) = "Seventeen" unitNum(18) = "Eighteen" unitNum(19) = "Nineteen" End Sub Protected Sub Page_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load numGroup = 3 FormatInitialization() End Sub Protected Sub Button1_Click( ByVal sender As Object , ByVal e As System.EventArgs) Handles Button1.Click myNum = NumericTextBox.Text If myNum.Length Mod numGroup 0 Then myNum = myNum.PadLeft(myNum.Length + (numGroup - (myNum.Length Mod numGroup)), "0" ) End If NumericToWordTextBox.Text = "" NumericToWordTextBox.Text = NumericToWords(myNum) End Sub End Class

Vimal Kandasamy · Answer

Hi, Please check out the following links link1 link2 link3

amount converter

Answers (2)