cs_mouslisla
Messages postés16Date d'inscriptiondimanche 8 mai 2011StatutMembreDernière intervention27 mars 2013
-
27 mars 2013 à 17:19
Profil bloqué -
27 mars 2013 à 18:06
Option Compare Database
Public Function lettre(a As Double) As String
Select Case a
Case 0
lettre = Chr(32)
Case 1
lettre = "Un"
Case 2
lettre = "Deux"
Case 3
lettre = "Trois"
Case 4
lettre = "Quatre"
Case 5
lettre = "Cinq"
Case 6
lettre = "Six"
Case 7
lettre = "Sept"
Case 8
lettre = "Huit"
Case 9
lettre = "Neuf"
Case 10
lettre = "Dix"
Case 11
lettre = "Onze"
Case 12
lettre = "Douze"
Case 13
lettre = "Treize"
Case 14
lettre = "Quatorze"
Case 15
lettre = "Quinze"
Case 16
lettre = "Seize"
Case 17 To 19
lettre = lettre(10) & Chr(32) & lettre(a - 10)
Case 20
lettre = "Vingt"
Case 30
lettre = "Trente"
Case 40
lettre = "Quarante"
Case 50
lettre = "Cinquante"
Case 60
lettre = "Soixante"
Case 70
lettre = "Soixante Dix"
Case 80
lettre = "Quatre Vingt"
Case 90
lettre = lettre(a - 10) & Chr(32) & lettre(10)
Case 21, 31, 41, 51, 61
lettre = lettre(Int(a / 10) * 10) & Chr(32) & "et" & Chr(32) & lettre(1)
Case 22 To 29, 32 To 39, 42 To 49, 52 To 59, 62 To 69, 81 To 89
lettre = lettre(Int(a / 10) * 10) & Chr(32) & lettre(a - Int(a / 10) * 10)
Case 71
lettre = " soixante et onze"
Case 72 To 79, 91 To 99
lettre = lettre((Int(a / 10) * 10) - 10) & Chr(32) & lettre(a - (Int(a / 10) * 10 - 10))
Case 100
lettre = "Cent"
Case 200, 300, 400, 500, 600, 700, 800, 900
lettre = lettre(a / 100) & Chr(32) & lettre(100)
Case 101 To 199, 201 To 299, 301 To 399, 401 To 499, 501 To 599, 601 To 699, 701 To 799, 801 To 899, 901 To 999
lettre = lettre(Int(a / 100) * 100) & Chr(32) & lettre(a - Int(a / 100) * 100)
Case 1000
lettre = "un million "
Case 1000 To 999999