Число прописью в Access

@tldrive · Регистрация: 29.08.2011

Author24 — интернет-сервис помощи студентам

Кода число прописью где надо вставлять в Access? Например: у меня на форме 2 поле первую поле цифру ввел, а вторую поле пропись???

@admadmi · 06.09.2011, 15:23

Сообщение от tldrive

Кода число прописью где надо вставлять в Access? Например: у меня на форме 2 поле первую поле цифру ввел, а вторую поле пропись???

пришли базу

@Ameli · 06.09.2011, 15:35

Прописать в коде VBA на после обновления первого поля: если первое поле = 1, то второе = "один" и т.д. Для сокращения кол-а строк кода можно расписать отдельно сотни, десятки, единицы.

@tldrive · 07.09.2011, 08:09 **[ТС]**

Сообщение от admadmi

пришли базу

Здравствуйте,

выслал базу,
здесь надо в поле "Рынстоим" число, в поле "Рынстоим, прописью" надо пропись

заранее спасибо

@alvk · 07.09.2011, 12:55

Изучайте, разбирайтесь и используйте, скажу сразу, это не моё:

@tldrive · 07.09.2011, 13:42 **[ТС]**

Спасибо, но этого модуля на форме как использовать??? Например: поле1=20 потом поле2=Двадцать

@alvk · 07.09.2011, 16:27

там же есть в самом начале, прочтите.

Visual Basic

1	поле2 = propiskop(поле1)

@tldrive · 08.09.2011, 07:47 **[ТС]**

Прочитал но у меня не получается, пожалуйста покажите эту в форме для примера

@alvk · 08.09.2011, 09:53

вот модуль и форма:

@tldrive · 08.09.2011, 15:16 **[ТС]**

Спасибо, пожалуйста эту базу можете выслать?

что то у меня не получается,

Добавлено через 7 минут
'ïðèìåð èñïîëüçîâàíèÿ

Visual Basic

Private Sub Äàííûå_AfterUpdate(Cancel As Integer)
Äàííûå = propiskop(Ðûíñòîèì)
End Sub
 
'
'ÈÑÏÎËÜÇÎÂÀÒÜ ÝÒÓ ÔÓÍÊÖÈÞ!!!
'
 
Function propiskop(num)
' Àðãóìåíòû:  ïîëîæèòåëüíîå ÷èñëî < 1 000 000 000 000,457
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ïðîïèñüþ (ñ ðóáëÿìè è ñ êîïåéêàìè)
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð propiskop(3000119,472) -> òðè ìèëëèîíà ñòî äåâÿòíàäöàòü ðóáëåé 47 êîïååê
' Âûçûâàåò: ôóíêöèè prop3(), prop3t(), prop3rub() è propkop()
' Âûçîâ: propiskop()
' Ñîñòàâèë: 4.07.96ã., äîïèñàíû êîïåéêè 12.01.98ã.
 
    N = Int(((num - Int(num)) * 100) + 0.5) ' âûäåëèòü êîïåéêè ñ ïðàâèëüíûì îêðóãëåíèåì
    S = propkop(N)                          ' ïðåîáðàçîâàòü êîïåéêè
    N = Int(num)                  ' âûäåëèòü ðóáëè
    M = N - 1000 * Int(N / 1000)  ' âûäåëèòü òðåõçíà÷íîå ÷èñëî
    S = prop3rub(M) + S           ' ïðåîáðàçîâàòü ìëàäøèå òðè öèôðû è ïðèïèñàòü ðóáëåé/ðóáëÿ/ðóáëü
    N = Int(num / 1000)           ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)  ' âûäåëèòü òðåõçíà÷íîå ÷èñëî òûñÿ÷
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "òûñÿ÷à "
        Case 2 To 4
          L = "òûñÿ÷è "
        Case Else
          L = "òûñÿ÷ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "òûñÿ÷ "
      End Select
    S = prop3t(M) + L + S              ' âûçîâ prop3t äëÿ ïðåîáðàçîâàíèÿ òûñÿ÷
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî ìèëëèîíîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "ìèëëèîí "
        Case 2 To 4
          L = "ìèëëèîíà "
        Case Else
          L = "ìèëëèîíîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "ìèëëèîíîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ ìèëëèîíîâ
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî ìèëëèàðäîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "ìèëëèàðä "
        Case 2 To 4
          L = "ìèëëèàðäà "
        Case Else
          L = "ìèëëèàðäîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "ìèëëèàðäîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ ìèëëèàðäîâ
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî òðèëëèîíîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "òðèëëèîí "
        Case 2 To 4
          L = "òðèëëèîíà "
        Case Else
          L = "òðèëëèîíîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "òðèëëèîíîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ òðèëëèîíîâ
    End If
    S = UCase(Mid(S, 1, 1)) + Mid(S, 2) ' ïåðâóþ áóêâó ñäåëàòü çàãëàâíîé
    propiskop = S
 
End Function
 
 
 
Function prop3(N)
' Àðãóìåíòû:  òðåõçíà÷íîå öåëîå ïîëîæèòåëüíîå ÷èñëî
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ïðîïèñüþ
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð prop3(119) -> ñòî äåâÿòíàäöàòü
' Âûçîâ: èç ôóíêöèè propis()
' Ñîñòàâèë: 2.07.96ã.
 
    S = ""
    Select Case (N - 100 * Int(N / 100))  ' âûäåëèòü äâå ïîñëåäíèå öèôðû
      Case 10
        S = "äåñÿòü "
      Case 11
        S = "îäèíàäöàòü "
        Case 12
        S = "äâåíàäöàòü "
      Case 13
        S = "òðèíàäöàòü "
      Case 14
        S = "÷åòûðíàäöàòü "
      Case 15
        S = "ïÿòíàäöàòü "
      Case 16
        S = "øåñòíàäöàòü "
      Case 17
        S = "ñåìíàäöàòü "
      Case 18
        S = "âîñåìíàäöàòü "
      Case 19
        S = "äåâÿòíàäöàòü "
      Case Else
        i = 10 * Int(N / 10)
        Select Case (N - i)  ' âûäåëèòü öèôðó åäèíèöû
          Case 1
            S = "îäèí "
          Case 2
            S = "äâà "
          Case 3
            S = "òðè "
          Case 4
            S = "÷åòûðå "
          Case 5
            S = "ïÿòü "
          Case 6
            S = "øåñòü "
          Case 7
            S = "ñåìü "
          Case 8
            S = "âîñåìü "
          Case 9
            S = "äåâÿòü "
        End Select
        SS = ""
        i = i / 10
        Select Case (i - 10 * Int(i / 10))  ' âûäåëèòü öèôðó äåñÿòêîâ
          Case 2
            SS = "äâàäöàòü "
          Case 3
            SS = "òðèäöàòü "
          Case 4
            SS = "ñîðîê "
          Case 5
            SS = "ïÿòüäåñÿò "
          Case 6
            SS = "øåñòüäåñÿò "
          Case 7
            SS = "ñåìüäåñÿò "
          Case 8
            SS = "âîñåìüäåñÿò "
          Case 9
            SS = "äåâÿíîñòî "
        End Select
        S = SS + S
    End Select
     SS = ""
     Select Case Int(N / 100)  ' âûäåëèòü öèôðó ñîòåí
       Case 1
         SS = "ñòî "
       Case 2
         SS = "äâåñòè "
       Case 3
         SS = "òðèñòà "
       Case 4
         SS = "÷åòûðåñòà "
       Case 5
         SS = "ïÿòüñîò "
       Case 6
         SS = "øåñòüñîò "
       Case 7
         SS = "ñåìüñîò "
       Case 8
         SS = "âîñåìüñîò "
       Case 9
         SS = "äåâÿòüñîò "
     End Select
     S = SS + S
     prop3 = S
End Function
 
Function prop3rub(N)
' Àðãóìåíòû:  òðåõçíà÷íîå öåëîå ïîëîæèòåëüíîå ÷èñëî
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ïðîïèñüþ ñ äîïèñêîé ðóáëåé/ðóáëÿ/ðóáëü
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð prop3rub(132) -> ñòî òðèäöàòü äâà ðóáëÿ
' Âûçîâ: èç ôóíêöèè propis()
' Ñîñòàâèë: 8.01.98ã.
 
    S = ""
    Rub = "ðóáëåé "
    Select Case (N - 100 * Int(N / 100))  ' âûäåëèòü äâå ïîñëåäíèå öèôðû
      Case 10
        S = "äåñÿòü " + Rub
      Case 11
        S = "îäèíàäöàòü " + Rub
      Case 12
        S = "äâåíàäöàòü " + Rub
      Case 13
        S = "òðèíàäöàòü " + Rub
      Case 14
        S = "÷åòûðíàäöàòü " + Rub
      Case 15
        S = "ïÿòíàäöàòü " + Rub
      Case 16
        S = "øåñòíàäöàòü " + Rub
      Case 17
        S = "ñåìíàäöàòü " + Rub
      Case 18
        S = "âîñåìíàäöàòü " + Rub
      Case 19
        S = "äåâÿòíàäöàòü " + Rub
      Case Else
        i = 10 * Int(N / 10)
        Select Case (N - i)  ' âûäåëèòü öèôðó åäèíèöû
          Case 0
            S = Rub
          Case 1
            S = "îäèí ðóáëü "
          Case 2
            S = "äâà ðóáëÿ "
          Case 3
            S = "òðè ðóáëÿ "
          Case 4
            S = "÷åòûðå ðóáëÿ "
          Case 5
            S = "ïÿòü " + Rub
          Case 6
            S = "øåñòü " + Rub
          Case 7
            S = "ñåìü " + Rub
          Case 8
            S = "âîñåìü " + Rub
          Case 9
            S = "äåâÿòü " + Rub
        End Select
        SS = ""
        i = i / 10
        Select Case (i - 10 * Int(i / 10))  ' âûäåëèòü öèôðó äåñÿòêîâ
          Case 2
            SS = "äâàäöàòü "
          Case 3
            SS = "òðèäöàòü "
          Case 4
            SS = "ñîðîê "
          Case 5
            SS = "ïÿòüäåñÿò "
          Case 6
            SS = "øåñòüäåñÿò "
          Case 7
            SS = "ñåìüäåñÿò "
          Case 8
            SS = "âîñåìüäåñÿò "
          Case 9
            SS = "äåâÿíîñòî "
        End Select
        S = SS + S
    End Select
     SS = ""
     Select Case Int(N / 100)  ' âûäåëèòü öèôðó ñîòåí
       Case 1
         SS = "ñòî "
       Case 2
         SS = "äâåñòè "
       Case 3
         SS = "òðèñòà "
       Case 4
         SS = "÷åòûðåñòà "
       Case 5
         SS = "ïÿòüñîò "
       Case 6
         SS = "øåñòüñîò "
       Case 7
         SS = "ñåìüñîò "
       Case 8
         SS = "âîñåìüñîò "
       Case 9
         SS = "äåâÿòüñîò "
     End Select
     S = SS + S
     prop3rub = S
 
End Function
 
Function prop3t(N)
' Àðãóìåíòû:  òðåõçíà÷íîå öåëîå ïîëîæèòåëüíîå ÷èñëî
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ïðîïèñüþ
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð prop3å(101) -> ñòî îäíà  (òûñÿ÷à)
'             íàïðèìåð prop3å(102) -> ñòî äâå   (òûñÿ÷è)
' Âûçîâ: èç ôóíêöèè propis() äëÿ òûñÿ÷
' Ñîñòàâèë: 2.07.96ã.
 
    S = ""
    Select Case (N - 100 * Int(N / 100))  ' âûäåëèòü äâå ïîñëåäíèå öèôðû
      Case 10
        S = "äåñÿòü "
      Case 11
        S = "îäèíàäöàòü "
        Case 12
        S = "äâåíàäöàòü "
      Case 13
        S = "òðèíàäöàòü "
      Case 14
        S = "÷åòûðíàäöàòü "
      Case 15
        S = "ïÿòíàäöàòü "
      Case 16
        S = "øåñòíàäöàòü "
      Case 17
        S = "ñåìíàäöàòü "
      Case 18
        S = "âîñåìíàäöàòü "
      Case 19
        S = "äåâÿòíàäöàòü "
      Case Else
        i = 10 * Int(N / 10)
        Select Case (N - i)  ' âûäåëèòü öèôðó åäèíèöû
          Case 1
            S = "îäíà "
          Case 2
            S = "äâå "
          Case 3
            S = "òðè "
          Case 4
            S = "÷åòûðå "
          Case 5
            S = "ïÿòü "
          Case 6
            S = "øåñòü "
          Case 7
            S = "ñåìü "
          Case 8
            S = "âîñåìü "
          Case 9
            S = "äåâÿòü "
        End Select
        SS = ""
        i = i / 10
        Select Case (i - 10 * Int(i / 10))  ' âûäåëèòü öèôðó äåñÿòêîâ
          Case 2
            SS = "äâàäöàòü "
          Case 3
            SS = "òðèäöàòü "
          Case 4
            SS = "ñîðîê "
          Case 5
            SS = "ïÿòüäåñÿò "
          Case 6
            SS = "øåñòüäåñÿò "
          Case 7
            SS = "ñåìüäåñÿò "
          Case 8
            SS = "âîñåìüäåñÿò "
          Case 9
            SS = "äåâÿíîñòî "
        End Select
        S = SS + S
    End Select
     SS = ""
     Select Case Int(N / 100)  ' âûäåëèòü öèôðó ñîòåí
       Case 1
         SS = "ñòî "
       Case 2
         SS = "äâåñòè "
       Case 3
         SS = "òðèñòà "
       Case 4
         SS = "÷åòûðåñòà "
       Case 5
         SS = "ïÿòüñîò "
       Case 6
         SS = "øåñòüñîò "
       Case 7
         SS = "ñåìüñîò "
       Case 8
         SS = "âîñåìüñîò "
       Case 9
         SS = "äåâÿòüñîò "
     End Select
     S = SS + S
     prop3t = S
 
End Function
 
Function propis(num)
' Àðãóìåíòû:  öåëîå ïîëîæèòåëüíîå ÷èñëî < 1 000 000 000 000
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ïðîïèñüþ (ñ ðóáëÿìè)
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð propis(3000119) -> òðè ìèëëèîíà ñòî äåâÿòíàäöàòü ðóáëåé
' Âûçûâàåò: ôóíêöèè prop3(), prop3t() è prop3rub()
' Âûçîâ: propis()
' Ñîñòàâèë: 4.07.96ã.
 
    N = Int(num + 0.5)            ' äëÿ ïðàâèëüíîãî îêðóãëåíèÿ
    M = N - 1000 * Int(N / 1000)  ' âûäåëèòü òðåõçíà÷íîå ÷èñëî
    S = prop3rub(M)                      ' ïðåîáðàçîâàòü ìëàäøèå òðè öèôðû è ïðèïèñàòü ðóáëåé/ðóáëÿ/ðóáëü
    N = Int(num / 1000)               ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî òûñÿ÷
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "òûñÿ÷à "
        Case 2 To 4
          L = "òûñÿ÷è "
        Case Else
          L = "òûñÿ÷ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "òûñÿ÷ "
      End Select
    S = prop3t(M) + L + S              ' âûçîâ prop3t äëÿ ïðåîáðàçîâàíèÿ òûñÿ÷
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî ìèëëèîíîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "ìèëëèîí "
        Case 2 To 4
          L = "ìèëëèîíà "
        Case Else
          L = "ìèëëèîíîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "ìèëëèîíîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ ìèëëèîíîâ
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî ìèëëèàðäîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "ìèëëèàðä "
        Case 2 To 4
          L = "ìèëëèàðäà "
        Case Else
          L = "ìèëëèàðäîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "ìèëëèàðäîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ ìèëëèàðäîâ
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî òðèëëèîíîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "òðèëëèîí "
        Case 2 To 4
          L = "òðèëëèîíà "
        Case Else
          L = "òðèëëèîíîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "òðèëëèîíîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ òðèëëèîíîâ
    End If
    S = UCase(Mid(S, 1, 1)) + Mid(S, 2) ' ïåðâóþ áóêâó ñäåëàòü çàãëàâíîé
    propis = S
End Function
 
Function propisd(num)
' Àðãóìåíòû:  öåëîå ïîëîæèòåëüíîå ÷èñëî < 1 000 000 000 000
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ïðîïèñüþ (áåç êîïååê)
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð propisd(3000119) -> òðè ìèëëèîíà ñòî äåâÿòíàäöàòü
' Âûçûâàåò: ôóíêöèè prop3() è prop3t()
' Âûçîâ: propisd()
' Ñîñòàâèë: 4.07.96ã.
 
    N = Int(num + 0.5)            ' äëÿ ïðàâèëüíîãî îêðóãëåíèÿ
    M = N - 1000 * Int(N / 1000)  ' âûäåëèòü òðåõçíà÷íîå ÷èñëî
    S = prop3(M)                      ' ïðåîáðàçîâàòü ìëàäøèå òðè öèôðû
    N = Int(num / 1000)               ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî òûñÿ÷
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "òûñÿ÷à "
        Case 2 To 4
          L = "òûñÿ÷è "
        Case Else
          L = "òûñÿ÷ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "òûñÿ÷ "
      End Select
    S = prop3t(M) + L + S              ' âûçîâ prop3t äëÿ ïðåîáðàçîâàíèÿ òûñÿ÷
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî ìèëëèîíîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "ìèëëèîí "
        Case 2 To 4
          L = "ìèëëèîíà "
        Case Else
          L = "ìèëëèîíîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "ìèëëèîíîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ ìèëëèîíîâ
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî ìèëëèàðäîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "ìèëëèàðä "
        Case 2 To 4
          L = "ìèëëèàðäà "
        Case Else
          L = "ìèëëèàðäîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "ìèëëèàðäîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ ìèëëèàðäîâ
    End If
    N = Int(N / 1000)                 ' îòáðîñèòü òðè ïîñëåäíèå öèôðû
    M = N - 1000 * Int(N / 1000)      ' âûäåëèòü òðåõçíà÷íîå ÷èñëî òðèëëèîíîâ
    L = ""
    If M > 0 Then
      Select Case (M - 10 * Int(M / 10))
        Case 1
          L = "òðèëëèîí "
        Case 2 To 4
          L = "òðèëëèîíà "
        Case Else
          L = "òðèëëèîíîâ "
      End Select
      Select Case (M - 100 * Int(M / 100))  ' ïîïðàâêà äëÿ 11,12,13,14
        Case 11 To 14
          L = "òðèëëèîíîâ "
      End Select
    S = prop3(M) + L + S              ' âûçîâ prop3 äëÿ ïðåîáðàçîâàíèÿ òðèëëèîíîâ
    End If
    S = UCase(Mid(S, 1, 1)) + Mid(S, 2) ' ïåðâóþ áóêâó ñäåëàòü çàãëàâíîé
    propisd = S
End Function
 
 
Function propkop(N)
' Àðãóìåíòû:  äâóõçíà÷íîå öåëîå ïîëîæèòåëüíîå ÷èñëî
' Íàçíà÷åíèå: ïðåîáðàçóåò ýòî ÷èñëî â ÷èñëî ñ äîïèñêîé êîïååê/êîïåéêè/êîïåéêà
' Âîçâðàùàåò: ñòðîêó, ñîäåðæàùóþ ÷èñëî ïðîïèñüþ
'             íàïðèìåð propkop(32) -> 32 êîïåéêè
' Âûçîâ: èç ôóíêöèè propiskop()
' Ñîñòàâèë: 12.01.98ã.
 
    S = " êîïååê"
    If N < 10 Or N > 19 Then
        i = 10 * Int(N / 10)
        Select Case (N - i)  ' âûäåëèòü öèôðó åäèíèöû
          Case 1
            S = " êîïåéêà"
          Case 2 To 4
            S = " êîïåéêè"
        End Select
     End If
   If N > 9 Then
     propkop = Str$(N) + S
   Else
     propkop = "0" + Mid(Str$(N), 2) + S
     End If
End Function

Добавлено через 38 минут
alvk. пожалуйтса отправьте мне эту программу

@HOUSE MD · 08.09.2011, 15:18

Доброго времени суток.

@nodirstein · 12.04.2015, 17:07

Здравствуйте
У меня вот такая вот проблема.
По нажатию кнопки access экспортирует число из одного поля в определённую ячейку в шаблоне Excel.
В этом файле вторая ячейка использует надстройку NUMSTR (думаю тут многие её знают) и переводит число с первой ячейки в текст.
Если я вписываю в первую ячейку число вручную, то всё работает, но вот когда в эту ячейку число вставляет Access, то вторая ячейка показывает ошибку #ИМЯ?, при этом в этой второй ячейке прописано не =numstr(A1) (к примеру), а полный путь до этой надстройки потом уже numstr(A1)
Не понимаю в чём дело....
Помогите пожалуйста решить эту проблему?
Заранее благодарю.

@alvk · 13.04.2015, 09:32

nodirstein, используйте функцию в Акцессе, а в Эксель выгружайте результат.

@nodirstein · 13.04.2015, 09:39

Сообщение от alvk

nodirstein, используйте функцию в Акцессе, а в Эксель выгружайте результат.

Ну конечно можно так сделать, но по любому мне нужно с этим разобраться. Вдруг любые надстройки будут таким вот образом отключаться при экспорте данных из Access. И к тому-же база маленькая и я не хотел её перегружать VBA...
Так что я был-бы оч благодарен если кто-нибудь знает решение данной проблемы.

@alvk · 13.04.2015, 09:55

Решение данной проблемы я вам уже сказал.

@nodirstein · 13.04.2015, 10:02

Сообщение от alvk

Решение данной проблемы я вам уже сказал.

Ну если я вас правильно понял то вы имели ввиду модуль который присутствует на данном форуме и переводит число в текст.
Сейчас я так и делаю, т.к. другого выхода пока не нашел. Но я хотел что-бы NUMSTR работал в экселе (((
Ну неужели это нельзя исправить? (((

@MaksikID · 14.04.2015, 07:33

сумма прописью рабочий код

@Atashka1808 · 02.09.2021, 13:30

Здравствуйте! Просьба кто может адаптировать данный модуль под акцесс. Помогите.

Visual Basic

Function DTM$(c#)
'Àâòîð Ìèõàèë ×. (MCH)
Dim st$, tg$, ed, des, razr, i&, m$
If c > 999999999999# Or c < 0 Then Exit Function
 
ed = Array("", "bir ", "iki ", ChrW(252) & ChrW(231) & " ", "d" & ChrW(246) & "rt ", "b" & ChrW(228) & ChrW(351) & " ", "alty" & " ", ChrW(253) & "edi ", "sekiz ", "dokuz ")
des = Array("", "on ", ChrW(253) & "igrimi ", "otuz ", "kyrk ", "elli ", "altmy" & ChrW(351) & " ", ChrW(253) & "etmi" & ChrW(351) & " ", "segsen ", "togsan ")
razr = Array("milliard ", "million ", "m" & ChrW(252) & ChrW(328) & " ", "")
 
st = Left(Format(c, "000000000000.00"), 12)
tg = Right(Format(c, " 0.00"), 2)
 
If CDbl(st) = 0 Then m = "nol "
For i = 1 To Len(st) Step 3
    If Mid(st, i, 3) <> "000" Then
        m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & ChrW(253) & ChrW(252) & "z ")
        m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3)
    End If
Next i
'm = Replace(m, " bir " & ChrW(253) & ChrW(252) & "z", " " & ChrW(253) & ChrW(252) & "z")
DTM = UCase(Left(m, 1)) & Mid(m, 2) & "manat " & tg & " te" & ChrW(328) & ChrW(328) & "e."
End Function
Function USD$(c#)
'Àâòîð Ìèõàèë ×. (MCH)
Dim st$, tg$, ed, des, razr, i&, m$
If c > 999999999999# Or c < 0 Then Exit Function
 
ed = Array("", "bir ", "iki ", ChrW(252) & ChrW(231) & " ", "d" & ChrW(246) & "rt ", "b" & ChrW(228) & ChrW(351) & " ", "alty" & " ", ChrW(253) & "edi ", "sekiz ", "dokuz ")
des = Array("", "on ", ChrW(253) & "igrimi ", "otuz ", "kyrk ", "elli ", "altmy" & ChrW(351) & " ", ChrW(253) & "etmi" & ChrW(351) & " ", "segsen ", "togsan ")
razr = Array("milliard ", "million ", "m" & ChrW(252) & ChrW(328) & " ", "")
 
st = Left(Format(c, "000000000000.00"), 12)
tg = Right(Format(c, " 0.00"), 2)
 
If CDbl(st) = 0 Then m = "nol "
For i = 1 To Len(st) Step 3
    If Mid(st, i, 3) <> "000" Then
        m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & ChrW(253) & ChrW(252) & "z ")
        m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3)
    End If
Next i
'm = Replace(m, " bir " & ChrW(253) & ChrW(252) & "z", " " & ChrW(253) & ChrW(252) & "z")
USD = UCase(Left(m, 1)) & Mid(m, 2) & "amerikan dollary " & tg & " sent."
End Function
Function SDTM$(c#)
'Àâòîð Ìèõàèë ×. (MCH)
Dim st$, tg$, ed, des, razr, i&, m$
If c > 999999999999# Or c < 0 Then Exit Function
 
ed = Array("", "bir ", "iki ", ChrW(252) & ChrW(231) & " ", "d" & ChrW(246) & "rt ", "b" & ChrW(228) & ChrW(351) & " ", "alty" & " ", ChrW(253) & "edi ", "sekiz ", "dokuz ")
des = Array("", "on ", ChrW(253) & "igrimi ", "otuz ", "kyrk ", "elli ", "altmy" & ChrW(351) & " ", ChrW(253) & "etmi" & ChrW(351) & " ", "segsen ", "togsan ")
razr = Array("milliard ", "million ", "m" & ChrW(252) & ChrW(328) & " ", "")
 
st = Left(Format(c, "000000000000.00"), 12)
tg = Right(Format(c, " 0.00"), 2)
 
If CDbl(st) = 0 Then m = "nol "
For i = 1 To Len(st) Step 3
    If Mid(st, i, 3) <> "000" Then
        m = m & IIf(Mid(st, i, 1) = "0", "", ed(CInt(Mid(st, i, 1))) & ChrW(253) & ChrW(252) & "z ")
        m = m & des(CInt(Mid(st, i + 1, 1))) & ed(CInt(Mid(st, i + 2, 1))) & razr((i - 1) \ 3)
    End If
Next i
'm = Replace(m, " bir " & ChrW(253) & ChrW(252) & "z", " " & ChrW(253) & ChrW(252) & "z")
SDTM = UCase(Left(m, 1)) & Mid(m, 2)
End Function

@ltv_1953 · 02.09.2021, 13:43

Сообщение от Atashka1808

Просьба кто может адаптировать данный модуль под акцесс. Помогите.

А зачем? Если это код для числа прописью, то чем предложенные здесь коды не устраивают?

@Atashka1808 · 02.09.2021, 14:29

Потому что этот код работает только под Экселл

Добавлено через 1 минуту
Может я неправильно вставляю операнд в акцессе, короче не работает пока в акцессе

@tldrive 0 / 0 / 0 Регистрация: 29.08.2011 Сообщений: 5
		1
	Число прописью в Access 06.09.2011, 11:45. Показов 12244. Ответов 22 Метки нет (Все метки) Кода число прописью где надо вставлять в Access? Например: у меня на форме 2 поле первую поле цифру ввел, а вторую поле пропись??? 0

@admadmi 31 / 30 / 1 Регистрация: 17.08.2011 Сообщений: 139
	06.09.2011, 15:23	2
	Сообщение от tldrive Кода число прописью где надо вставлять в Access? Например: у меня на форме 2 поле первую поле цифру ввел, а вторую поле пропись??? пришли базу 1

@Ameli 2092 / 1168 / 39 Регистрация: 05.11.2009 Сообщений: 1,605
	06.09.2011, 15:35	3
	Прописать в коде VBA на после обновления первого поля: если первое поле = 1, то второе = "один" и т.д. Для сокращения кол-а строк кода можно расписать отдельно сотни, десятки, единицы. 1

@tldrive 0 / 0 / 0 Регистрация: 29.08.2011 Сообщений: 5
	07.09.2011, 13:42 [ТС]	6
	Спасибо, но этого модуля на форме как использовать??? Например: поле1=20 потом поле2=Двадцать 0

@tldrive 0 / 0 / 0 Регистрация: 29.08.2011 Сообщений: 5
	08.09.2011, 07:47 [ТС]	8
	Прочитал но у меня не получается, пожалуйста покажите эту в форме для примера 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	08.09.2011, 09:53	9
	вот модуль и форма: Миниатюры 1

@nodirstein 32 / 32 / 8 Регистрация: 12.04.2015 Сообщений: 79
	12.04.2015, 17:07	12
	Здравствуйте У меня вот такая вот проблема. По нажатию кнопки access экспортирует число из одного поля в определённую ячейку в шаблоне Excel. В этом файле вторая ячейка использует надстройку NUMSTR (думаю тут многие её знают) и переводит число с первой ячейки в текст. Если я вписываю в первую ячейку число вручную, то всё работает, но вот когда в эту ячейку число вставляет Access, то вторая ячейка показывает ошибку #ИМЯ?, при этом в этой второй ячейке прописано не =numstr(A1) (к примеру), а полный путь до этой надстройки потом уже numstr(A1) Не понимаю в чём дело.... Помогите пожалуйста решить эту проблему? Заранее благодарю. 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	13.04.2015, 09:32	13
	nodirstein, используйте функцию в Акцессе, а в Эксель выгружайте результат. 0

@nodirstein 32 / 32 / 8 Регистрация: 12.04.2015 Сообщений: 79
	13.04.2015, 09:39	14
	Сообщение от alvk nodirstein, используйте функцию в Акцессе, а в Эксель выгружайте результат. Ну конечно можно так сделать, но по любому мне нужно с этим разобраться. Вдруг любые надстройки будут таким вот образом отключаться при экспорте данных из Access. И к тому-же база маленькая и я не хотел её перегружать VBA... Так что я был-бы оч благодарен если кто-нибудь знает решение данной проблемы. 0

@alvk 7398 / 4535 / 295 Регистрация: 12.08.2011 Сообщений: 14,023
	13.04.2015, 09:55	15
	Решение данной проблемы я вам уже сказал. 0

@nodirstein 32 / 32 / 8 Регистрация: 12.04.2015 Сообщений: 79
	13.04.2015, 10:02	16
	Сообщение от alvk Решение данной проблемы я вам уже сказал. Ну если я вас правильно понял то вы имели ввиду модуль который присутствует на данном форуме и переводит число в текст. Сейчас я так и делаю, т.к. другого выхода пока не нашел. Но я хотел что-бы NUMSTR работал в экселе ((( Ну неужели это нельзя исправить? ((( 0

@ltv_1953 17486 / 7248 / 1651 Регистрация: 21.06.2012 Сообщений: 13,864
	02.09.2021, 13:43	19
	Сообщение от Atashka1808 Просьба кто может адаптировать данный модуль под акцесс. Помогите. А зачем? Если это код для числа прописью, то чем предложенные здесь коды не устраивают? 0

@Atashka1808 1 / 1 / 0 Регистрация: 02.09.2021 Сообщений: 95
	02.09.2021, 14:29	20
	Потому что этот код работает только под Экселл Добавлено через 1 минуту Может я неправильно вставляю операнд в акцессе, короче не работает пока в акцессе 0