Newsgroup: it.comp.appl.access
Titolo: conversione da numero a lettere

Salve a tutti,
ho scovato tra i meandri di un mio HD una funzione (1989) di Access per la
conversione di numeri a lettere, tipo:
1250 (milleduecentocinquanta)
e vorrei utilizzarla all'interno di un'applicazione che sto facendo in asp.
Non riesco a farla funzionare ... mi sapete dire come faccio a renderla
adattata ad asp?
Qui sotto il codice originale...
Grazie
Gio'
<%
cifra_lettere = request.form("cifra")
Dim numero
Dim comodo
Dim stringa
Dim cifre_lettere_1000
numero = cifra
If numero > 1000000000 Then
comodo = Int(numero / 1000000000)
If comodo = 1 Then
stringa = stringa & "unmiliardo"
Else
stringa = stringa & cifre_lettere_1000(comodo) & "miliardi"
End If
numero = numero - comodo * 1000000000
End If
If numero > 1000000 Then
comodo = Int(numero / 1000000)
If comodo = 1 Then
stringa = stringa & "unmilione"
Else
stringa = stringa & cifre_lettere_1000(comodo) & "milioni"
End If
numero = numero - comodo * 1000000
End If
If numero > 1000 Then
comodo = Int(numero / 1000)
If comodo = 1 Then
stringa = stringa & "mille"
Else
stringa = stringa & cifre_lettere_1000(comodo) & "mila"
End If
numero = numero - comodo * 1000
End If
If numero = 1 Then
stringa = stringa & "uno"
Else
stringa = stringa & cifre_lettere_1000(comodo)
End If
cifra_lettere = stringa
comodo = numero
If comodo > 899 Then
stringa = "novecento"
comodo = comodo - 900
End If
If comodo > 799 Then
stringa = "ottocento"
comodo = comodo - 800
End If
If comodo > 699 Then
stringa = "settecento"
comodo = comodo - 700
End If
If comodo > 599 Then
stringa = "seicento"
comodo = comodo - 600
End If
If comodo > 499 Then
stringa = "cinquecento"
comodo = comodo - 500
End If
If comodo > 399 Then
stringa = "quattrocento"
comodo = comodo - 400
End If
If comodo > 299 Then
stringa = "trecento"
comodo = comodo - 300
End If
If comodo > 199 Then
stringa = "duecento"
comodo = comodo - 200
End If
If comodo > 99 Then
stringa = "cento"
comodo = comodo - 100
End If
Select Case (comodo)
Case 1
stringa = stringa & "uno"
Case 2
stringa = stringa & "due"
Case 3
stringa = stringa & "tre"
Case 4
stringa = stringa & "quattro"
Case 5
stringa = stringa & "cinque"
Case 6
stringa = stringa & "sei"
Case 7
stringa = stringa & "sette"
Case 8
stringa = stringa & "otto"
Case 9
stringa = stringa & "nove"
Case 10
stringa = stringa & "dieci"
Case 11
stringa = stringa & "undici"
Case 12
stringa = stringa & "dodici"
Case 13
stringa = stringa & "tredici"
Case 14
stringa = stringa & "quattordici"
Case 15
stringa = stringa & "quindici"
Case 16
stringa = stringa & "sedici"
Case 17
stringa = stringa & "diciassette"
Case 18
stringa = stringa & "diciotto"
Case 19
stringa = stringa & "diciannove"
Case 20
stringa = stringa & "venti"
Case 21
stringa = stringa & "ventuno"
Case 22
stringa = stringa & "ventidue"
Case 23
stringa = stringa & "ventitre"
Case 24
stringa = stringa & "ventiquattro"
Case 25
stringa = stringa & "venticinque"
Case 26
stringa = stringa & "ventisei"
Case 27
stringa = stringa & "ventisette"
Case 28
stringa = stringa & "ventotto"
Case 29
stringa = stringa & "ventinove"
Case 30
stringa = stringa & "trenta"
Case 31
stringa = stringa & "trentuno"
Case 32
stringa = stringa & "trentadue"
Case 33
stringa = stringa & "trentatre"
Case 34
stringa = stringa & "trentaquattro"
Case 35
stringa = stringa & "trentacinque"
Case 36
stringa = stringa & "trentasei"
Case 37
stringa = stringa & "trentasette"
Case 38
stringa = stringa & "trentotto"
Case 39
stringa = stringa & "trentanove"
Case 40
stringa = stringa & "quaranta"
Case 41
stringa = stringa & "quarantuno"
Case 42
stringa = stringa & "quarantadue"
Case 43
stringa = stringa & "quarantatre"
Case 44
stringa = stringa & "quarantaquattro"
Case 45
stringa = stringa & "quarantacinque"
Case 46
stringa = stringa & "quarantasei"
Case 47
stringa = stringa & "quarantasette"
Case 48
stringa = stringa & "quarantaotto"
Case 49
stringa = stringa & "quarantanove"
Case 50
stringa = stringa & "cinquanta"
Case 51
stringa = stringa & "cinquantuno"
Case 52
stringa = stringa & "cinquantadue"
Case 53
stringa = stringa & "cinquantatre"
Case 54
stringa = stringa & "cinquantaquattro"
Case 55
stringa = stringa & "cinquantacinque"
Case 56
stringa = stringa & "cinquantasei"
Case 57
stringa = stringa & "cinquantasette"
Case 58
stringa = stringa & "cinquantotto"
Case 59
stringa = stringa & "cinquantanove"
Case 60
stringa = stringa & "sessanta"
Case 61
stringa = stringa & "sessantuno"
Case 62
stringa = stringa & "sessantadue"
Case 63
stringa = stringa & "sessantatre"
Case 64
stringa = stringa & "sessantaquattro"
Case 65
stringa = stringa & "sessantacinque"
Case 66
stringa = stringa & "sessantasei"
Case 67
stringa = stringa & "sessantasette"
Case 68
stringa = stringa & "sessantotto"
Case 69
stringa = stringa & "sessantanove"
Case 70
stringa = stringa & "settanta"
Case 71
stringa = stringa & "settantuno"
Case 72
stringa = stringa & "settantadue"
Case 73
stringa = stringa & "settantatre"
Case 74
stringa = stringa & "settantaquattro"
Case 75
stringa = stringa & "settantacinque"
Case 76
stringa = stringa & "settantasei"
Case 77
stringa = stringa & "settantasette"
Case 78
stringa = stringa & "settantotto"
Case 79
stringa = stringa & "settantanove"
Case 80
stringa = stringa & "ottanta"
Case 81
stringa = stringa & "ottantuno"
Case 82
stringa = stringa & "ottantadue"
Case 83
stringa = stringa & "ottantatre"
Case 84
stringa = stringa & "ottantaquattro"
Case 85
stringa = stringa & "ottantacinque"
Case 86
stringa = stringa & "ottantasei"
Case 87
stringa = stringa & "ottantasette"
Case 88
stringa = stringa & "ottantotto"
Case 89
stringa = stringa & "ottantanove"
Case 90
stringa = stringa & "novanta"
Case 91
stringa = stringa & "novantuno"
Case 92
stringa = stringa & "novantadue"
Case 93
stringa = stringa & "novantatre"
Case 94
stringa = stringa & "novantaquattro"
Case 95
stringa = stringa & "novantacinque"
Case 96
stringa = stringa & "novantasei"
Case 97
stringa = stringa & "novantasette"
Case 98
stringa = stringa & "novantotto"
Case 99
stringa = stringa & "novantanove"
End Select
response.write comodo
%>

 wrote in message
8s98lp$aji$1...@nslave3.tin.it...


 %>
magari se fai la response.write di stringa hai qualhe' possibilita' in
piu' che funzioni
Il post per la sua natura era probabilmente da indirizzare a
it.comp.www.asp
-- 
Alessandro Cara

ho scovato tra i meandri di un mio HD una funzione (1989) di Access per la
Gulp!
E chi e' il chiaroveggente?
--
Lorenzo Coronati
--
<<Complimenti per la risposta disinteressata a 
differenza di altri che sul NG ci mangiano sopra.>>
(Voltolini, 20/04/2000)
--
<<[...] Altrimenti ci arrabbiamo....>>
(Voltolini, 10/10/2000)
--