LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 15 мая 2024
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Число про...
 Тема: Число прописью
 
 15.06.2007 19:58:12
All
4316 сообщения
1-ый


Тема: Число прописью
Как можно представить число прописью?


P.S. Раздел для новичков
Автор: Алекс от 0:00:00 Источник ...
 15.06.2007 19:58:12
All
4316 сообщения
1-ый


RE: Число прописью
В 18 примере файла la_form1.mdb есть решение этой проблемы. Обязательно посмотрите ниже пример Кормилкина Юрия, email: medtech@spb.cityline.ru

Private d, os, a9, os1, os2, p1, p2, p3, p4, p5, p6, p7, p8, p9, a8, a7, a6, a5, a4, a3, a2, a1 As Integer
Private kk, kp, kk1, ito, zx, ssss

Function itog1(ssss As Double)
' ssss - в диапазоне от 1р 00 коп до сотен миллионов
p1 = ""
p2 = ""
p3 = ""
p4 = ""
p5 = ""
p6 = ""
p7 = ""
p8 = ""
p9 = ""
d = Int(ssss)
os = (ssss - d)
d = " " + Str(d)
a9 = Mid(Right(d, 9), 1, 1)
a8 = Mid(Right(d, 9), 2, 1)
a7 = Mid(Right(d, 9), 3, 1)
a6 = Mid(Right(d, 9), 4, 1)
a5 = Mid(Right(d, 9), 5, 1)
a4 = Mid(Right(d, 9), 6, 1)
a3 = Mid(Right(d, 9), 7, 1)
a2 = Mid(Right(d, 9), 8, 1)
a1 = Mid(Right(d, 9), 9, 1)
Select Case a9
Case "1"
p9 = "сто"
Case "2"
p9 = "двести"
Case "3"
p9 = "триста"
Case "4"
p9 = "четыреста"
Case "5"
p9 = "пятьсот"
Case "6"
p9 = "шестьсот"
Case "7"
p9 = "семьсот"
Case "8"
p9 = "восемьсот"
Case "9"
p9 = "девятьсот"
End Select
If a8 <> "1" Then
Select Case a8
Case "2"
p8 = " двадцать"
Case "3"
p8 = " тpидцать"
Case "4"
p8 = " соpок"
Case "5"
p8 = " пятьдесят "
Case "6"
p8 = " шестьдесят"
Case "7"
p8 = " семьдесят"
Case "8"
p8 = " восемьдесят "
Case "9"
p8 = " девяносто"
End Select
Else
p8 = ""
Select Case a7
Case "0"
p8 = " десять миллионов"
p7 = ""
Case "1"
p8 = " одиннадцать миллионов"
p7 = ""
Case "2"
p8 = " двенадцать миллионов"
p7 = ""
Case "3"
p8 = " тpинадцать миллионов"
p7 = ""
Case "4"
p8 = " четыpнадцать миллионов"
p7 = ""
Case "5"
p8 = " пятнадцать миллионов"
p7 = ""
Case "6"
p8 = " шестнадцать миллионов"
p7 = ""
Case "7"
p8 = " семнадцать миллионов"
p7 = ""
Case "8"
p8 = " восемнадцать миллионов"
p7 = ""
Case "9"
p8 = " девятнадцать миллионов"
p7 = ""
End Select
End If
If a8 <> " " And a8 <> "1" Then
p7 = " миллионов"
End If
If a8 <> "1" Or a8 = " " Then
Select Case a7
Case "1"
p7 = " один миллион"
Case "2"
p7 = " два миллиона"
Case "3"
p7 = " тpи миллиона"
Case "4"
p7 = " четыpе миллиона"
Case "5"
p7 = " пять миллионов"
Case "6"
p7 = " шесть миллионов"
Case "7"
p7 = " семь миллионов"
Case "8"
p7 = " восемь миллионов"
Case "9"
p7 = " девять миллионов"
Case " "
p7 = ""
End Select
End If
If a8 = " " And a7 = " " Then
p8 = ""
p7 = ""
End If
Select Case a6
Case "1"
p6 = " сто"
Case "2"
p6 = " двести"
Case "3"
p6 = " триста"
Case "4"
p6 = " четыреста"
Case "5"
p6 = " пятьсот"
Case "6"
p6 = " шестьсот"
Case "7"
p6 = " семьсот"
Case "8"
p6 = " восемьсот"
Case "9"
p6 = " девятьсот"
Case " "
p6 = ""
Case "0"
p6 = ""
End Select
Select Case a5
Case "2"
p5 = " двадцать"
Case "3"
p5 = " тридцать"
Case "4"
p5 = " сорок"
Case "5"
p5 = " пятьдесят"
Case "6"
p5 = " шестьдесят"
Case "7"
p5 = " семьдесят"
Case "8"
p5 = " восемьдесят"
Case "9"
p5 = " девяносто"
Case "0"
p5 = ""
Case ""
p5 = ""
End Select
If a5 = "1" Then
Select Case a4
Case "9"
p5 = " девятнадцать тысяч"
p4 = ""
Case "8"
p5 = " восемнадцать тысяч"
p4 = ""
Case "7"
p5 = " семнадцать тысяч"
p4 = ""
Case "6"
p5 = " шестнадцать тысяч"
p4 = ""
Case "5"
p5 = " пятнадцать тысяч"
p4 = ""
Case "4"
p5 = " четырнадцать тысяч"
p4 = ""
Case "3"
p5 = " тринадцать тысяч"
p4 = ""
Case "2"
p5 = " двенадцать тысяч"
p4 = ""
Case "1"
p5 = " одиннадцать тысяч"
p4 = ""
Case "0"
p5 = " десять тысяч"
p4 = ""
End Select
Else
Select Case a4
Case "9"
p4 = " девять тысяч"
Case "8"
p4 = " восемь тысяч"
Case "7"
p4 = " семь тысяч"
Case "6"
p4 = " шесть тысяч"
Case "5"
p4 = " пять тысяч"
Case "4"
p4 = " четыре тысячи"
Case "3"
p4 = " три тысячи"
Case "2"
p4 = " две тысячи"
Case "1"
p4 = " одна тысяча"
Case "0"
p4 = " тысяч"
End Select
End If

If a4 = "0" And a5 = "0" And a6 = "0" Then
p4 = ""
End If
If a5 = " " And a4 = " " And a6 = " " Then
p4 = ""
End If

Select Case a3
Case "1"
p3 = " cто"
Case "2"
p3 = " двести"
Case "3"
p3 = " триста"
Case "4"
p3 = " четыреста"
Case "5"
p3 = " пятьсот"
Case "6"
p3 = " шестьсот"
Case "7"
p3 = " семьсот"
Case "8"
p3 = " восемьсот"
Case "9"
p3 = " девятьсот"
Case " "
p3 = ""
End Select
Select Case a2
Case "2"
p2 = " двадцать"
Case "3"
p2 = " тридцать"
Case "4"
p2 = " сорок"
Case "5"
p2 = " пятьдесят"
Case "6"
p2 = " шестьдесят"
Case "7"
p2 = " семьдесят"
Case "8"
p2 = " восемьдесят"
Case "9"
p2 = " девяносто"
Case "0"
p2 = ""
Case " "
p2 = ""
End Select
If a2 = "1" Then
Select Case a1
Case "9"
p2 = " девятнадцать рублей"
p1 = ""
Case "8"
p2 = " восемнадцать рублей"
p1 = ""
Case "7"
p2 = " семнадцать рублей"
p1 = ""
Case "6"
p2 = " шестнадцать рублей"
p1 = ""
Case "5"
p2 = " пятнадцать рублей"
p1 = ""
Case "4"
p2 = " четырнадцать рублей"
p1 = ""
Case "3"
p2 = " тринадцать рублей"
p1 = ""
Case "2"
p2 = " двенадцать рублей"
p1 = ""
Case "1"
p2 = " одиннадцать рублей"
p1 = ""
Case "0"
p2 = " десять рублей"
p1 = ""
End Select
Else
End If
If a2 <> "1" Then
Select Case a1
Case "9"
p1 = " девять рублей"
Case "8"
p1 = " восемь рублей"
Case "7"
p1 = " семь рублей"
Case "6"
p1 = " шесть рублей"
Case "5"
p1 = " пять рублей"
Case "4"
p1 = " четыре рубля"
Case "3"
p1 = " три рубля"
Case "2"
p1 = " два рубля"
Case "1"
p1 = " один рубль"
Case "0"
p1 = " рублей"
End Select
End If
If a3 = "0" Then
p3 = ""
End If
If a2 = " " And a1 = " " And a3 = " " Then
p1 = ""
End If
kp = " копеек"
kk = Mid(Format(os, "0"), 2, 1)
kk1 = Mid(Format(os, "0"), 1, 1)
If kk1 <> "1" Then
Select Case kk
Case "1"
kp = " копейка"
Case "2"
kp = " копейки"
Case "3"
kp = " копейки"
Case "4"
kp = " копейки"
End Select
Else
End If
os1 = os * 100
Select Case os1
Case 0
ito = p9 + p8 + p7 + p6 + p5 + p4 + p3 + p2 + p1 + " 00" + kp
Case Is < 10
ito = p9 + p8 + p7 + p6 + p5 + p4 + p3 + p2 + p1 + " 0" + Format(os1, "0") + kp
Case Is > 9
ito = p9 + p8 + p7 + p6 + p5 + p4 + p3 + p2 + p1 + " " + Format(os1, "0") + kp
End Select
zx = Mid(LTrim(ito), 1, 1)
itog1 = StrConv(zx, 1) + Mid(LTrim(ito), 2)
End Function



P.S. Раздел для новичков
Автор: Виктор Конюков от 0:00:00 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Число про...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke