crystal report currency conversion

[PerumalSamy]

Hi, i am developing software in asp.net using vb coding and MS ACCESS database.

I created a crystal report for printing sales bill.

Now i need to convert currency into words and need to print. ex: 3,250 as "Three Thousand Two Hundred and Fifty only".

How can i write codings and make to print using crystal report.

Thanks in advance.

[sans]

hai

I am santhanam

I need number to word convertion in crystal report for 100041.22

(one Lakh forty one and twentytwo only)

[sans]

hai

I am santhanam

I need a code for number to word convertion for 100041.22

[CandorZ]

It is worthless to post now but still for the sake of others who come to this link on searching.

You can do the same in the code behind as follows for ASP.NET

ASPX page:

  <form id="form1" runat="server">
  <div>
    <asp:TextBox ID="TextBox1" runat="server">
    </asp:TextBox><asp:Button ID="Button1" runat="server" Text="Button" />
  </div>
  </form>

Code behind:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Response.Write(NumberToWords(CDbl(TextBox1.Text)))
  End Sub
  Public Function NumberToWords(ByVal OrigNum As Long) As String
    'This function converts numbers to words. For example 101 -> One hundred and one
    'It uses standard english notation and will only accept positive long numbers
    Dim billionpart As Long
    Dim millionpart As Long
    billionpart = Int(OrigNum / 10000000)
    millionpart = OrigNum Mod 10000000
    NumberToWords = HundredsToWords(billionpart) & IIf(billionpart <> 0, " Crore", "")
    If millionpart > 99 Then
      NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " ", "") & millionstowords(millionpart)
    Else
      NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " and ", "") & millionstowords(millionpart)
    End If
  End Function
 
  Public Function millionstowords(ByVal millionnumber As Long)
    Dim millionpart As Long
    Dim thousandpart As Long
    millionpart = Int(millionnumber / 100000)
    thousandpart = millionnumber Mod 100000
    millionstowords = HundredsToWords(millionpart) & IIf(millionpart <> 0, " Lac", "")
    If thousandpart > 99 Then
      millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " ", "") & thousandstowords(thousandpart)
    Else
      millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " and ", "") & thousandstowords(thousandpart)
    End If
  End Function
 
 
  Public Function thousandstowords(ByVal thousandnumber As Long) As String
    Dim thousandpart As Long
    Dim HundredPart As Long
    HundredPart = thousandnumber Mod 1000
    thousandpart = Int(thousandnumber / 1000)
    thousandstowords = HundredsToWords(thousandpart) & IIf(thousandpart <> 0, " thousand", "")
    If HundredPart > 99 Then
      thousandstowords = thousandstowords & IIf(HundredPart <> 0 And thousandpart <> 0, " ", "") & HundredsToWords(HundredPart)
    Else
      thousandstowords = thousandstowords & IIf(HundredPart <> 0 And thousandpart <> 0, " and ", "") & HundredsToWords(HundredPart)
    End If
  End Function
 
 
  Public Function HundredsToWords(ByVal HundredNumber As Long) As String
    'This function converts a three digit long to the hundred wording
    Dim TensPart As Long
    Dim HundredPart As Long
    TensPart = HundredNumber Mod 100
    HundredPart = Int(HundredNumber / 100)
    Select Case HundredPart
      Case 0
        HundredsToWords = TensToWords(TensPart)
      Case Else
        HundredsToWords = SingleToWord(HundredPart) & " Hundred" & IIf(TensPart <> 0, " and ", "") & TensToWords(TensPart)
    End Select
  End Function
 
 
  Public Function TensToWords(ByVal TensNumber As Long) As String
    'This function converts a two digit long to a two digit wording
    Dim tens As Long
    Dim Singles As Long
    tens = Int(TensNumber / 10)
    Singles = TensNumber Mod 10
    Select Case tens
      Case 0
        TensToWords = SingleToWord(Singles)
      Case 1
        TensToWords = teens(TensNumber)
      Case 2
        TensToWords = "Twenty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 3
        TensToWords = "Thirty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 4
        TensToWords = "Fourty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 5
        TensToWords = "Fifty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 6
        TensToWords = "Sixty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 7
        TensToWords = "Seventy" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 8
        TensToWords = "Eighty" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
      Case 9
        TensToWords = "Ninety" & IIf(Singles <> 0, " ", "") & SingleToWord(Singles)
    End Select
  End Function
 
 
  Public Function SingleToWord(ByVal SingleDigit As Long) As String
    Select Case SingleDigit
      Case 1
        SingleToWord = "One"
      Case 2
        SingleToWord = "Two"
      Case 3
        SingleToWord = "Three"
      Case 4
        SingleToWord = "Four"
      Case 5
        SingleToWord = "Five"
      Case 6
        SingleToWord = "Six"
      Case 7
        SingleToWord = "Seven"
      Case 8
        SingleToWord = "Eight"
      Case 9
        SingleToWord = "Nine"
      Case 0
        SingleToWord = ""
    End Select
  End Function
 
 
  Public Function teens(ByVal TeenNumber As Long) As String
    Select Case TeenNumber
      Case 10
        teens = "Ten"
      Case 11
        teens = "Eleven"
      Case 12
        teens = "Twelve"
      Case 13
        teens = "Thirteen"
      Case 14
        teens = "Fourteen"
      Case 15
        teens = "Fifteen"
      Case 16
        teens = "Sixteen"
      Case 17
        teens = "Seventeen"
      Case 18
        teens = "Eighteen"
      Case 19
        teens = "Nineteen"
    End Select
  End Function
 

As far as I tested it wont work over 999999999 (1 Hundred Crores) but you can modify it accordingly and set limitations

Modified from <link snipped>
See Ya!

[sagarrupani]

Thx a lot CandorZ for writing whole code.it help a lot to me.
Here I have done this Code in C#.NET,hope it will help to others who wants code in C#.

Protected Sub Button1_Click(object sender, EventArgs e) 
{
    Response.Write(NumberToWords(CDbl(TextBox1.Text)));
}
 
  Public string NumberToWords(Long OrigNum)
  {
  'This function converts numbers to words. For example 101 -> One hundred and one
    'It uses standard english notation and will only accept positive long numbers
    Long bilionpart;
    Long millionpart;
 
    billionpart = Convert.ToInt32(OrigNum / 10000000);
    millionpart = OrigNum Mod 10000000;
    NumberToWords = HundredsToWords(billionpart) & IIf(billionpart <> 0, " Crore", "")
    If( millionpart > 99)
      NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " ", "") & millionstowords(millionpart);
    Else
      NumberToWords = NumberToWords & IIf(millionpart <> 0 And billionpart <> 0, " and ", "") & millionstowords(millionpart);
    return NumberToWords;
  }
 
  Public void millionstowords(Long millionnumber)
    {
        Long millionpart;
        Long thousandpart;
        millionpart = Convert.ToInt32(millionnumber / 100000);
        thousandpart = millionnumber Mod 100000;
        millionstowords = HundredsToWords(millionpart) & IIf(millionpart <> 0, " Lac", "");
        If (thousandpart > 99)
            millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " ", "") & thousandstowords(thousandpart);
        Else
        millionstowords = millionstowords & IIf(thousandpart <> 0 And millionpart <> 0, " and ", "") & thousandstowords(thousandpart);
    }