|
05
|
VB.NET
|
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243 #Region "СуммаПрописью"
#Region "Константы числительных"
Dim numbers1() As String = {"ноль", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять", _
"ноль", "одна", "две", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять", _
"ноль", "одно", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять"}
Dim numbers10() As String = {"ноль", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто"}
Dim numbers100() As String = {"ноль", "сто", "двести", "триста", "четыреста", "пятьсот", "шестьсот", "семьсот", "восемьсот", "девятьсот"}
Dim numbers10_20() As String = {"десять", "одиннадцать", "двенадцать", "тринадцать", "четырнадцать", "пятнадцать", "шестнадцать", "семнадцать", "восемнадцать", "девятнадцать"}
Dim numbersDec() As String = {"десятая", "сотая", "тысячная", "десятитысячная", "стотысячная", "миллионная", "десятимиллионняа", "стомиллионняа", "миллиардняа", "десятимиллиардняа", _
"десятых", "сотых", "тысячных", "десятитысячных", "стотысячных", "миллионных", "десятимиллионных", "стомиллионных", "миллиардных", "десятимиллиардных", _
"десятых", "сотых", "тысячных", "десятитысячных", "стотысячных", "миллионных", "десятимиллионных", "стомиллионных", "миллиардных", "десятимиллиардных"}
Dim periods_m() As String = {"тысяча", "миллион", "миллиард", "триллион", "квадриллион", _
"тысячи", "миллиона", "миллиарда", "триллиона", "квадриллиона", _
"тысяч", "миллионов", "миллиардов", "триллионов", "квадриллионов"}
Dim periods_m_rod() As String = {"ж", "м", "м", "м", "м"}
#End Region #Region "СуммаПрописью" ... 'СуммаПрописью(1254.5, "м|рубль|рубля|рублей","ж|копейка|копейки|копеек") ... Public Function СуммаПрописьюВРублях(sum As Decimal) As String
Return СуммаПрописью(sum, "м|рубль|рубля|рублей", "ж|копейка|копейки|копеек")
End Function Public Function СуммаПрописьюВРублях(sum As Decimal) As String ... Public Function СуммаПрописьюВДолларах(sum As Decimal) As String
Return СуммаПрописью(sum, "м|доллар|доллара|долларов", "м|цент|цента|центов")
End Function Public Function СуммаПрописьюВДолларах(sum As Decimal) As String ... Public Function СуммаПрописьюВЕвро(sum As Decimal) As String
Return СуммаПрописью(sum, "м|евро|евро|евро", "м|цент|цента|центов")
End Function Public Function СуммаПрописьюВЕвро(sum As Decimal) As String ... Public Function СуммаПрописью( _
sum As Decimal, _
intvalue As String, _
decvalue As String, _
Optional showIntIfNull As Boolean = True, _
Optional showDecIfNull As Boolean = True, _
Optional decToWord As Boolean = False _
) As String
'showIntIfNull - переменная отвечающая за отображение целых, если они равны нулю - если True, то показывать, иначе - не показывать. ... countDecDigit As Integer = 2
Dim intValues() As String = intvalue.Split( "|")
Dim decValues() As String = decvalue.Split( "|")
If decValues.Count = 5 Then
' Например если нужно сделать 3,256 метров - и получить 256 см, то количество цифр после запятой - 3. ... Val(decValues(4)) >= 0 AndAlso Str(Val(decValues(4))).Trim = Val(decValues(4)) Then
countDecDigit = Val(decValues(4))
End If
End If
'Разделяем целую часть и дробную часть ... sumInt As Decimal = Int(sum)
Dim intStr As String = ""
If Not (sumInt = 0 And Not showIntIfNull) Then
intStr = ПолучитьЧислоПрописьюСВалютой(sumInt, intvalue)
End If
'====================================================================================== ... sumDec As Decimal = sum - sumInt
sumDec = Math.Round(sumDec * 10 ^ countDecDigit)
Dim decStr As String = ""
If Not (sumDec = 0 And Not showDecIfNull) Then
If decToWord Then
decStr = ПолучитьЧислоПрописьюСВалютой(sumDec, decvalue)
Else
decStr = CInt(sumDec).ToString + " " + ПолучитьПадежВалюты(sumDec, decvalue)
End If
End If
Return (intStr.Trim + " " + decStr.Trim).Trim
End Function Public Function СуммаПрописью( sum As Decimal, intvalue As String, decvalue As String, Optional showIntIfNull As Boolean = True, Optional showDecIfNull As Boolean = True, Optional decToWord As Boolean = False ) As String ... Public Function ЧислоПрописью( _
sum As Decimal, _
Optional countDecDigit As Integer = 0, _
Optional showIntIfNull As Boolean = True, _
Optional showDecIfNull As Boolean = True, _
Optional decToWord As Boolean = True _
) As String
'countDecDigit - переменная форсированно определяющая количество цифр после запятой. Если 0, то автоматически. ... intvalue As String = "ж|целая|целых|целых"
Dim intValues() As String = intvalue.Split( "|")
'Разделяем целую часть и дробную часть ... sumInt As Decimal = Int(sum)
Dim intStr As String = ""
If Not (sumInt = 0 And Not showIntIfNull) Then
intStr = ПолучитьЧислоПрописьюСВалютой(sumInt, intvalue)
End If
'====================================================================================== ... sumDec As Decimal = sum - sumInt
Dim i As Integer = 0
If countDecDigit <= 0 Then
Do
i += 1
If Int(sumDec * 10 ^ i) / 10 ^ i = sumDec Or i = 10 Then
sumDec = sumDec * 10 ^ i
Exit Do
End If
Loop
Else
If countDecDigit > 10 Then countDecDigit = 10
sumDec = Math.Round(sumDec * 10 ^ countDecDigit)
i = countDecDigit
End If
Dim decStr As String = ""
If Not (sumDec = 0 And Not showDecIfNull) Then
Dim curDecName As String = numbersDec(ПолучитьИндексПадежаПоЧислу(sumDec) * 10 + i - 1)
If decToWord Then
decStr = ПолучитьЧислоПрописью(sumDec, "ж") + curDecName
Else
decStr = CInt(sumDec).ToString + " " + curDecName
End If
End If
Return (intStr.Trim + " " + decStr.Trim).Trim
End Function Public Function ЧислоПрописью( sum As Decimal, Optional countDecDigit As Integer = 0, Optional showIntIfNull As Boolean = True, Optional showDecIfNull As Boolean = True, Optional decToWord As Boolean = True ) As String ... Public Function ПолучитьМассивТроек(sum As Decimal) As Integer()
Dim arr() As Integer = {}
Dim i As Integer = 0
Do
i += 1
Dim value As Integer = Int((CDec(sum / 1000 ^ i) - CDec(Int(sum / 1000 ^ i))) * 1000)
ReDim Preserve arr(arr.Length)
arr(arr.Length - 1) = value
Loop While sum / 1000 ^ i >= 1
Return arr
End Function Public Function ПолучитьМассивТроек(sum As Decimal) As Integer() ... Private Function ПолучитьСтрокуТройкиСПорядком(sum As Integer, period As Integer, rod As String) As String
Dim strInt As String = ""
Dim digits() As Integer = {Int(sum / 100), Int(sum / 10) - Int(sum / 100) * 10, sum - Int(sum / 10) * 10}
For i As Integer = 0 To 2
If digits(i) > 0 Then
If i = 0 Then
strInt += numbers100(digits(i)) + " "
ElseIf i = 1 Then
If digits(i) > 1 Then
strInt += numbers10(digits(i)) + " "
Else
strInt += numbers10_20(digits(2)) + " "
Exit For
End If
ElseIf i = 2 Then
Dim index As Integer = IIf(rod = "c", 20, IIf(rod = "ж", 10, 0))
strInt += numbers1(digits(i) + index) + " "
End If
End If
Next
If period >= 0 And period < periods_m.Length / 3 Then
Dim indexPer As Integer = ПолучитьИндексПадежа(digits(2), digits(1))
strInt += periods_m(period + indexPer * 5)
End If
Return strInt
End Function Private Function ПолучитьСтрокуТройкиСПорядком(sum As Integer, period As Integer, rod As String) As String ... Private Function ПолучитьИндексПадежа(lastDigit As Integer, prevDigit As Integer) As Integer
Dim indexPer As Integer = 0
If {2, 3, 4}.Contains(lastDigit) And prevDigit <> 1 Then indexPer = 1
If {0, 5, 6, 7, 8, 9}.Contains(lastDigit) Or prevDigit = 1 Then indexPer = 2
Return indexPer
End Function Private Function ПолучитьИндексПадежа(lastDigit As Integer, prevDigit As Integer) As Integer ... Public Function ПолучитьИндексПадежаПоЧислу(sum As Decimal) As Integer
Dim digits() As Integer = {Int(sum / 10) - Int(sum / 100) * 10, sum - Int(sum / 10) * 10}
Return ПолучитьИндексПадежа(digits(1), digits(0))
End Function Public Function ПолучитьИндексПадежаПоЧислу(sum As Decimal) As Integer ... Private Function ПолучитьЧислоПрописью(sum As Decimal, rod As String) As String
Dim sumStr As String = ""
'Необходимо разбить целую часть на тройки периодов, например ... arrInt3() As Integer = ПолучитьМассивТроек(sum)
Array.Reverse(arrInt3)
If arrInt3.Length = 1 And arrInt3(0) = 0 Then
sumStr += numbers1(0) + " "
Else
For i As Integer = 0 To arrInt3.Length - 1
If arrInt3(i) > 0 Then
Dim rodPeriodInt As String = rod
If arrInt3.Length - 2 - i >= 0 AndAlso rodPeriodInt.Length > arrInt3.Length - 2 - i Then rodPeriodInt = periods_m_rod(arrInt3.Length - 2 - i)
sumStr += ПолучитьСтрокуТройкиСПорядком(arrInt3(i), arrInt3.Length - 2 - i, rodPeriodInt)
If sumStr.Length > 0 AndAlso sumStr.Last <> " " Then sumStr += " "
End If
Next
End If
Return sumStr
End Function Private Function ПолучитьЧислоПрописью(sum As Decimal, rod As String) As String ... Private Function ПолучитьЧислоПрописьюСВалютой(sum As Decimal, curValues_ As String) As String
Dim strSum As String = ""
Dim curValues() As String = curValues_.Split("|")
Dim currencyName As String = ""
Dim rod As String = "м"
If curValues.Length > 0 Then rod = curValues(0)
Dim curIntNameIndex As Integer = ПолучитьИндексПадежаПоЧислу(sum) + 1
If curValues.Length > curIntNameIndex Then currencyName = curValues(curIntNameIndex)
strSum = ПолучитьЧислоПрописью(sum, rod)
strSum += currencyName
Return strSum
End Function Private Function ПолучитьЧислоПрописьюСВалютой(sum As Decimal, curValues_ As String) As String ... Private Function ПолучитьПадежВалюты(sum As Decimal, curValues_ As String) As String
Dim curValues() As String = curValues_.Split("|")
Dim currencyName As String = ""
Dim curIntNameIndex As Integer = ПолучитьИндексПадежаПоЧислу(sum) + 1
If curValues.Length > curIntNameIndex Then currencyName = curValues(curIntNameIndex)
Return currencyName
End Function Private Function ПолучитьПадежВалюты(sum As Decimal, curValues_ As String) As String ...
|
|