importo in lettere

[malecce]

Vorrei se fosse possibile formattare un importo in modo che venga visualizzato in lettere.
esempio ho un importo di € 500,00 e vorrei che , oltre questo formato, fosse visualizzato lo stesso imèporto in lettere:
Euro cinquecento//00

Tutto ciò è possibile in asp o no?

Grazie per le risposte

Maurizio

[kalosjo]

Devi fare un algoritmo che effettua la traduzione...

[malecce]

Tutto qua?
pensavo peggio!

Sto scherzando ovviamente, attendo degli aiuti concreti!

Grazie

Maurizio

[KLINKO]

carina come idea

ho la trovi gia fatta ... oppure ti armi di pazienza e te la tiri su.

senza pensarci molto penso si possa fare.

[kalosjo]

In VB

[morphy79]

so che mi darai un bacio per questo....
Questa è la funzione per asp... !!!!
la chiami passandogli la cifra e te la converte in lettere !!!!!

es
<%=convertNumber(564)%>

Devi implementarla perchè arriva a novemila (4 cifre) ma è facilissimo...
l'ho fatta io... usala pure free....

<%

Public Function convertNumber(numero)

A1 = Array("","uno","due","tre","quattro","cinque","sei","sette","otto","nove","dieci","undici","dodici","tredici","quattordici","quindici","sedici","diciassette","diciotto","diciannove")
A2 = Array("","","vent","trent","quarant","cinquant","sessant","settant","ottant","novant")
A3 = Array("","","venti","trenta","quaranta","cinquanta","sessanta","settanta","ottanta","novanta")
A4 = Array("","cento","duecento","trecento","quattrocento","cinquecento","seicento","settecento","ottocento","novecento")
A5 = Array("","mille","duemila","tremila","quattromila","cinquemila","seimila","settemila","ottomila","novemila")

numero_s = ""

'SE NUMERO NON VALIDO 
if len(numero) =< 0 or len(numero) > 4 then
	numero_s = ""
end if


'SE NUMERO HA 1 CIFRA
if len(numero) = 1 then
	numero_s = A1(numero)
end if



'SE NUMERO HA 2 CIFRE
if len(numero) = 2 then

	' SE LA PRIMA CIFRA è UNO
	if left(numero,1) = "1" then
		numero_s = A1(numero)
	else	
		' SE LA SECONDA CIFRA è ZERO
		if right(numero,1) = "0" then
			numero_s = A3(numero)	
		else
			'SE LA SECONDA CIFRA è 1 o 8
			if right(numero,1) = "1" or right(numero,1) = "8" then
				numero_s = A2(left(numero,1))
			else
				numero_s = A3(left(numero,1))
			end if
		
			numero_s = numero_s & A1(right(numero,1))

		end if
	end if

end if


'SE NUMERO HA 3 CIFRE
if len(numero) = 3 then

	primaCifra = left(numero,1)
	numero_cent = A4(primaCifra)

	numeroDecimale = right(numero,2)

	' SE LA PRIMA CIFRA è UNO
	if left(numeroDecimale,1) = "1" then
		numero_s = numero_cent & A1(numeroDecimale)
	else	
		' SE LA SECONDA CIFRA è ZERO
		if right(numeroDecimale,1) = "0" then
			numero_s = numero_cent & A3(numeroDecimale)	
		else
			'SE LA SECONDA CIFRA è 1 o 8
			if right(numeroDecimale,1) = "1" or right(numeroDecimale,1) = "8" then			
				numero_s = A2(left(numeroDecimale,1))
			else
				numero_s = A3(left(numeroDecimale,1))
			end if
		
			numero_s = numero_cent & numero_s & A1(right(numeroDecimale,1))

		end if
	end if
	
end if


'SE NUMERO HA 4 CIFRE
if len(numero) = 4 then

	primaCifra = left(numero,1)
	numero_mill = A5(primaCifra)
	
	primaCifra = mid(numero,2,1)
	numero_cent = A4(primaCifra)

	numeroDecimale = right(numero,2)

	' SE LA PRIMA CIFRA è UNO
	if left(numeroDecimale,1) = "1" then
		numero_s = numero_mill & numero_cent & A1(numeroDecimale)
	else	
		' SE LA SECONDA CIFRA è ZERO
		if right(numeroDecimale,1) = "0" then
			numero_s = numero_mill & numero_cent & A3(numeroDecimale)	
		else
			'SE LA SECONDA CIFRA è 1 o 8
			if right(numeroDecimale,1) = "1" or right(numeroDecimale,1) = "8" then
				numero_s = A2(left(numeroDecimale,1))
			else
				numero_s = A3(left(numeroDecimale,1))
			end if
		
			numero_s = numero_mill & numero_cent & numero_s & A1(right(numeroDecimale,1))

		end if
	end if
	
end if







convertNumber = numero_s

End Function
%>

[malecce]

prima di baciarti....( che sch...) ti ringrazio, cercherò di fare il meglio per implementarla.

Grazie

Maurizio

[malecce]

Già provata!

Sei un grande!

Maurizio

[morphy79]

... se l'hai implementata... me la ripassi ????
non ho il tempo e la necessità per farla... però averla aggiornata il più possibile mi piacerebbe !!!

[malecce]

appena modifico te la ripasso,
grazie.