Göra om siffror till bokstäver...

Kul fråga!

Det blev så här:

function SweNum(inNumber)
	
	mNumber=inNumber
	
	ARR_ONE=Array("ett","två","tre","fyra","fem","sex","sju","åtta","nio","tio","elva","tolv","tretton","fjorton","femton","sexton","sjutton","arton","nitton")

	ARR_TEN=Array("tjugo","trettio","fyrtio","femtio","sextio","sjuttio","åttio","nittio")

	ARR_POT=Array("tusen","miljon","miljard","biljon")
	for i=ubound(ARR_POT) to 0 step -1
		y=Int(mNumber/(10^((i+1)*3)))
		if y=1 then
			strNumber=strNumber & SweNum(y) & " " & ARR_POT(i)
		elseif y>1 and i>0 then
			strNumber=strNumber & SweNum(y) & " " & ARR_POT(i) & "er "
		elseif y>1 and i=0 then
			strNumber=strNumber & SweNum(y) & "" & ARR_POT(i)
		end if
		mNumber=mNumber-y*(10^((i+1)*3))
	next
	y=Int(mNumber/100)
	if y>0 then strNumber=strNumber & SweNum(y) & "hundra"
	mNumber=mNumber-y*100
	y=int(mNumber/10)
	if y>1 then 
		strNumber=strNumber & ARR_TEN(y-2)
		mNumber=mNumber-y*10
	end if
	if mNumber>0 then strNumber=strNumber & "" & ARR_ONE(mNumber-1)
	SweNum=strNumber 
end function

hmm... fattar jag rätt?
är mNumber talet som ska göras om?
och är strNumber resultatet?

får det inte att funka men det är väll för att jag är nybörjare

Väldigt häftigt, emission! Trodde först inte att det skulle gå, men det är ju ganska logiskt när man tänker efter!

Jonfor:
Så här använder du funktionen, lägg denna mellan <html> och </html>
<% =SweNum(333) %>

och själva funktionen inom
<%
' här!
%>

åhh vad dum jag är. Kollade sen i koden och förstod det själv...

tackar så mycket!

inte för att klaga på ett sånt fint script men skriver man ett tal som ex,

1000000001 får man; ett miljardett

borde ju vara en miljardett

[Redigerat av SimonG den 15 jul 2001]