1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
|
Faibles oneWords comme corde = « , une, deux, trois, quatre, cinq, six, sept, huit, neuf, Dix, onze, douze, treize, quatorze, quinze, seize, dix-sept, dix-huit, dix-neuf »
Obscurcir ceux () comme corde = oneWords.Split (« , ")
Obscurcir les tenWords comme corde = « , Dix, vingt, trente, quarante, cinquante, soixante, soixante-dix, quatre-vingts, quatre-vingt-dix »
Obscurcir les dix () comme corde = tenWords.Split (« , ")
Converti privé de fonction (ByVal a entré comme corde) comme corde
entrée = entré. Remplacer (« $ », ""). Remplacer ( », « , "")
Si entré. Longueur > 12 puis retour « erreur en valeur d'entrée »
Faible rendement, dollars, moulins, milles, hunds, cents comme corde
Faible moulin, mille, hund, cent comme nombre entier
S'input.IndexOf (« .") > 0 puis
dollars = entré. Sous-chaîne (0, input.IndexOf (« .")) .PadLeft (9, « 0 »)
cents = entré. Sous-chaîne (input.IndexOf (« .") + 1).PadRight (2, « 0 »)
Si cents = « 00 » puis cents = « 0 »
Autrement
dollars = input.PadLeft (9, « 0 ») : cents = « 0 »
Finir si
moulin = C (dollars. Sous-chaîne (0, 3), nombre entier) : moulins = convertHundreds (moulin)
mille = C (dollars. Sous-chaîne (3, 3), nombre entier) : milles = convertHundreds (mille)
hund = C (dollars. Sous-chaîne (6, 3), nombre entier) : hunds = convertHundreds (hund)
cent = C (cents, nombre entier) : cents = convertHundreds (cent)
rendement = IIf (moulins. Équilibre = "", "", moulins + « million ")
rendement += IIf (milles. Équilibre = "", "", milles + « mille ")
rendement += IIf (hunds. Équilibre = "", "", hunds)
rendement = IIf (rendement. Longueur = 0, « dollars zéro et », rendement + « dollars et ")
rendement = IIf (rendement = « un dollars et », « un dollar et », rendement)
rendement += IIf (cents = "", « zéro », cents) + » cents "
Rendement de retour
Fonction de fin
convertHundreds privés de fonction (ByVal entré comme nombre entier) comme corde
Faible rendement comme corde
Si entré <>
|
