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:
|
Тусклые oneWords как шнур = «, одно, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19»
Затемните одни () как шнур = oneWords.Split («, ")
Затемните tenWords как шнур = «, 10, 20, 30, 40, 50, 60, 70, 80, 90»
Затемните 10 () как шнур = tenWords.Split («, ")
Приватный новообращенный функции (ByVal input как шнур) как шнур
входной сигнал = input. Замените («$», ""). Замените (», «, "")
Если input. Длина > 12 после этого возвращение «ошибка в значении входного сигнала»
Тусклый выход, доллары, станы, Вы, hunds, центы как шнур
Тусклый стан, Вы, hund, цент как интежер
Если input.IndexOf, то («.") > 0 после этого
доллары = input. Подстрока (0, input.IndexOf («.")) .PadLeft (9, «0»)
центы = input. Подстрока (input.IndexOf («.") + 1).PadRight (2, «0»)
Если центы = «00» после этого центов = «0», то
Еще
доллары = input.PadLeft (9, «0»): центы = «0»
Закончитесь если
стан = CType (доллары. Подстрока (0, 3), интежер): станы = convertHundreds (стан)
Вы = CType (доллары. Подстрока (3, 3), интежер): Вы = convertHundreds (Вы)
hund = CType (доллары. Подстрока (6, 3), интежер): hunds = convertHundreds (hund)
цент = CType (центы, интежер): центы = convertHundreds (цент)
выход = IIf (станы. Уравновешивание = "", "", станы + «миллион ")
выход += IIf (Вы. Уравновешивание = "", "", Вы + «тысяча ")
выход += IIf (hunds. Уравновешивание = "", "", hunds)
выход = IIf (выход. Длина = 0, «Zero доллары и», выход + «доллары и ")
выход = IIf (выход = «один доллар и», «один доллар и», выход)
выход += IIf (центы = "", «нул», центы) +» центы "
Возвращенный выход
Функция конца
Приватные convertHundreds функции (ByVal input как интежер) как шнур
Тусклый выход как шнур
Если input <>
|
