Hi guys,
I need codes to convert Currency into Words. e.g.
120,500 into "One Lac. Five hundred only."
in asp.net with vb.net 1.1.
Please if anybody know about it. Reply me.
Vivek.
2 3955
Hi guys,
I need codes to convert Currency into Words. e.g.
120,500 into "One Lac. Five hundred only."
in asp.net with vb.net 1.1.
Please if anybody know about it. Reply me.
Vivek.
I have got a function from a website...call this function like this - Dim rs as Integer
-
Dim rsWord as String=RupeesToWord(rs)
-
...........................see if it helps... -
Function RupeesToWord(ByVal MyNumber)
-
Dim Temp
-
Dim Rupees, Paisa As String
-
Dim DecimalPlace, iCount
-
Dim Hundreds, Words As String
-
Dim place(9) As String
-
place(0) = " Thousand "
-
place(2) = " Lakh "
-
place(4) = " Crore "
-
place(6) = " Arab "
-
place(8) = " Kharab "
-
On Error Resume Next
-
' Convert MyNumber to a string, trimming extra spaces.
-
MyNumber = Trim(Str(MyNumber))
-
' Find decimal place.
-
DecimalPlace = InStr(MyNumber, ".")
-
' If we find decimal place...
-
If DecimalPlace > 0 Then
-
' Convert Paisa
-
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
-
Paisa = " and " & ConvertTens(Temp) & " Paisa"
-
' Strip off paisa from remainder to convert.
-
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
-
End If
-
'===============================================================
-
Dim TM As String ' If MyNumber between Rs.1 To 99 Only.
-
TM = Right(MyNumber, 2)
-
If Len(MyNumber) > 0 And Len(MyNumber) <= 2 Then
-
If Len(TM) = 1 Then
-
Words = ConvertDigit(TM)
-
RupeesToWord = "Rupees " & Words & Paisa & " Only"
-
Exit Function
-
Else
-
If Len(TM) = 2 Then
-
Words = ConvertTens(TM)
-
RupeesToWord = "Rupees " & Words & Paisa & " Only"
-
Exit Function
-
End If
-
End If
-
End If
-
'===============================================================
-
-
' Convert last 3 digits of MyNumber to ruppees in word.
-
Hundreds = ConvertHundreds(Right(MyNumber, 3))
-
' Strip off last three digits
-
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
-
iCount = 0
-
Do While MyNumber <> ""
-
'Strip last two digits
-
Temp = Right(MyNumber, 2)
-
If Len(MyNumber) = 1 Then
-
-
If Trim(Words) = "Thousand" Or _
-
Trim(Words) = "Lakh Thousand" Or _
-
Trim(Words) = "Lakh" Or _
-
Trim(Words) = "Crore" Or _
-
Trim(Words) = "Crore Lakh Thousand" Or _
-
Trim(Words) = "Arab Crore Lakh Thousand" Or _
-
Trim(Words) = "Arab" Or _
-
Trim(Words) = "Kharab Arab Crore Lakh Thousand" Or _
-
Trim(Words) = "Kharab" Then
-
Words = ConvertDigit(Temp) & place(iCount)
-
MyNumber = Left(MyNumber, Len(MyNumber) - 1)
-
Else
-
Words = ConvertDigit(Temp) & place(iCount) & Words
-
MyNumber = Left(MyNumber, Len(MyNumber) - 1)
-
End If
-
Else
-
If Trim(Words) = "Thousand" Or _
-
Trim(Words) = "Lakh Thousand" Or _
-
Trim(Words) = "Lakh" Or _
-
Trim(Words) = "Crore" Or _
-
Trim(Words) = "Crore Lakh Thousand" Or _
-
Trim(Words) = "Arab Crore Lakh Thousand" Or _
-
Trim(Words) = "Arab" Then
-
-
Words = ConvertTens(Temp) & place(iCount)
-
-
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
-
Else
-
Words = ConvertTens(Temp) & place(iCount) & Words
-
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
-
End If
-
End If
-
iCount = iCount + 2
-
Loop
-
RupeesToWord = "Rupees " & Words & Hundreds & Paisa & " Only"
-
End Function
-
' Conversion for hundreds
-
'*****************************************
-
Private Function ConvertHundreds(ByVal MyNumber)
-
Dim Result As String
-
' Exit if there is nothing to convert.
-
If Val(MyNumber) = 0 Then Exit Function
-
' Append leading zeros to number.
-
MyNumber = Right("000" & MyNumber, 3)
-
' Do we have a hundreds place digit to convert?
-
If Left(MyNumber, 1) <> "0" Then
-
Result = ConvertDigit(Left(MyNumber, 1)) & " Hundreds "
-
End If
-
' Do we have a tens place digit to convert?
-
If Mid(MyNumber, 2, 1) <> "0" Then
-
Result = Result & ConvertTens(Mid(MyNumber, 2))
-
Else
-
' If not, then convert the ones place digit.
-
Result = Result & ConvertDigit(Mid(MyNumber, 3))
-
End If
-
ConvertHundreds = Trim(Result)
-
End Function
-
' Conversion for tens
-
'*****************************************
-
Private Function ConvertTens(ByVal MyTens)
-
Dim Result As String
-
' Is value between 10 and 19?
-
If Val(Left(MyTens, 1)) = 1 Then
-
Select Case Val(MyTens)
-
Case 10 : Result = "Ten"
-
Case 11 : Result = "Eleven"
-
Case 12 : Result = "Twelve"
-
Case 13 : Result = "Thirteen"
-
Case 14 : Result = "Fourteen"
-
Case 15 : Result = "Fifteen"
-
Case 16 : Result = "Sixteen"
-
Case 17 : Result = "Seventeen"
-
Case 18 : Result = "Eighteen"
-
Case 19 : Result = "Nineteen"
-
Case Else
-
End Select
-
Else
-
' .. otherwise it's between 20 and 99.
-
Select Case Val(Left(MyTens, 1))
-
Case 2 : Result = "Twenty "
-
Case 3 : Result = "Thirty "
-
Case 4 : Result = "Forty "
-
Case 5 : Result = "Fifty "
-
Case 6 : Result = "Sixty "
-
Case 7 : Result = "Seventy "
-
Case 8 : Result = "Eighty "
-
Case 9 : Result = "Ninety "
-
Case Else
-
End Select
-
' Convert ones place digit.
-
Result = Result & ConvertDigit(Right(MyTens, 1))
-
End If
-
ConvertTens = Result
-
End Function
-
Private Function ConvertDigit(ByVal MyDigit)
-
Select Case Val(MyDigit)
-
Case 1 : ConvertDigit = "One"
-
Case 2 : ConvertDigit = "Two"
-
Case 3 : ConvertDigit = "Three"
-
Case 4 : ConvertDigit = "Four"
-
Case 5 : ConvertDigit = "Five"
-
Case 6 : ConvertDigit = "Six"
-
Case 7 : ConvertDigit = "Seven"
-
Case 8 : ConvertDigit = "Eight"
-
Case 9 : ConvertDigit = "Nine"
-
Case Else : ConvertDigit = ""
-
End Select
-
End Function
Thanx for the CODE.
I really appreciate it. It's working fine.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: D |
last post by:
Does anyone have a VBA code that converts numbers to Spelled out numbers?
Example 100 to One Hundred. I need it for a check writing program and I
don't feel like reinventing the wheel.
Thanks
|
by: jeff regoord |
last post by:
A user inputs a float value. The scanf() function gets the value.
However, I need to create an error handler with an if else statement
saying invalid input if the input is not a number. Does...
|
by: Juan |
last post by:
Best way to convert back a currency string into a number(int or long)?
If I have, for example, $ 15.000,00 what is the best way to make it again an
int or long?
pls help!,
Juan.
|
by: R. John Reed |
last post by:
Hi All,
I'm am looking to convert a currency string (e.g. "$1,234.56" to a
double value).
It appears this will work:
double val = Convert.ToDouble(Double.Parse("$123,456.78901",...
|
by: KB |
last post by:
Hi guys,
In my DataGrid I have a column that displays decimal values as currency ( I
set the Data Formatting expression of that column to {0:C}). So the actual
string displayed in the grid looks...
|
by: Andrea |
last post by:
Hi there -
I'm hoping someone can help me; I've been struggling with this for a
few days! :-)
I have a webpage that is comprised of many forms containing questions.
As the user answers one...
|
by: czi02 |
last post by:
Hi there;
Is there anybody out there knows how to design a function or data flow on how to convert a numerical currency valu (33,163.33) into words
33Million one hundred sixty three thousand...
|
by: tararreb |
last post by:
#include<stdio.h>
/*This line is standard input output, # is directive, include is keyword, and stdio.h is header file*/
#include<stdlib.h>
/*This line is standard input output, # is directive,...
|
by: jemar19 |
last post by:
import java.util.*;
public class Kopi
{
static Scanner console=new Scanner(System.in);
public static void main(Stringargs)
{
String f;
double a,z,y,x,w;
|
by: DolphinDB |
last post by:
Tired of spending countless mintues downsampling your data? Look no further!
In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
|
by: ryjfgjl |
last post by:
ExcelToDatabase: batch import excel into database automatically...
|
by: isladogs |
last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM).
In this month's session, we are pleased to welcome back...
|
by: ArrayDB |
last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
|
by: PapaRatzi |
last post by:
Hello,
I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: Defcon1945 |
last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
|
by: af34tf |
last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
|
by: Faith0G |
last post by:
I am starting a new it consulting business and it's been a while since I setup a new website. Is wordpress still the best web based software for hosting a 5 page website? The webpages will be...
| |