Is there any inbuilt function in ASP to convert figure (digit)
into Words

example : figure --> 438908
 in words -->Four lacks thirty eight thousand nine hundred and eight

Nope, this is not supported by default.

However, creating a custom function that does this shouldn't be too hard. You'll need to figure out how large the number is, and how large each individual number is (the 3 in 312 is 3 hundred, while it's 3 thousand in 3912).

If you need some help creating this function, just post your questions here.

Cheers,

Imar


---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

A guy called Mat Tillet wrote this (mat at fusioninternet.co.uk)


<%
Function Number_to_Text(number)
Dim arrUnit(19), arrTens(8), arrHundred(2)

arrUnit(0) = ""
arrUnit(1) = "One"
arrUnit(2) = "Two"
arrUnit(3) = "Three"
arrUnit(4) = "Four"
arrUnit(5) = "Five"
arrUnit(6) = "Six"
arrUnit(7) = "Seven"
arrUnit(8) = "Eigth"
arrUnit(9) = "Nine"
arrUnit(10) = "Ten"
arrUnit(11) = "Eleven"
arrUnit(12) = "Twelve"
arrUnit(13) = "Thirteen"
arrUnit(14) = "Fourteen"
arrUnit(15) = "Fifteen"
arrUnit(16) = "Sixteen"
arrUnit(17) = "Seventeen"
arrUnit(18) = "Eighteen"
arrUnit(19) = "Nineteen"

arrTens(0) = ""
arrTens(1) = "Twenty"
arrTens(2) = "Thirty"
arrTens(3) = "Forty"
arrTens(4) = "Fifty"
arrTens(5) = "Sixty"
arrTens(6) = "Seventy"
arrTens(7) = "Eighty"
arrTens(8) = "Ninety"

arrHundred(0) = "Hundred"

if number > 0 and number <= 19 then
Number_to_Text = arrUnit(number)
end if

if number >= 20 and number <= 99 then
Number_to_Text = arrTens(mid(number,1,1)-1) & " " &
arrUnit(mid(number,2,1))
end if

if number >= 100 and number <= 999 then
strTemp = arrUnit(mid(number,1,1)) & " " & arrHundred(0)

if mid(number,2,2) = 0 then
Number_to_Text = strTemp' & " and " &
arrUnit(mid(number,3,1))
end if

if mid(number,2,2) >= 1 and mid(number,2,2) <= 19 then
Number_to_Text = strTemp & " and " &
arrUnit(mid(number,2,2))
end if

if mid(number,2,2) >= 20 then
Number_to_Text = strTemp & " and " &
arrTens(mid(number,2,1)-1) & " " & arrUnit(mid(number,3,1))
end if
end if
end function


%>
<%
for a = 0 to 999
response.write(number_to_text (a) & "<br>")
next
%>

Cheers
Ken


Microsoft MVP - Windows Server (IIS)
www.adOpenStatic.com