http://www.liveinternet.ru/users/lyuciena/post39732232/ LiveInternet / LiveInternet.ru hourly 1 ru 10 Lyuciena http://av.li.ru/699405_443619.jpg http://www.liveinternet.ru/users/lyuciena/
Ñïðàøèâàéòå ó âàøèõ ñèñàäìèíîâ - îíè-òî âñÿêî áîëüøå â ýòîì ðàçáèðàþòñÿ.]]>
êîãäà õî÷ó ñîõðàíèòü ìîäóëü, â ñïèñêå íèæå íåò ôîðìàòà íàäñòðîåê....êàê áûòü?]]> Òîëüêî îíà íå ìîÿ - àâòîð íåêèé Ï.Â.Ìîðîçîâ. Êîãäà-òî ÿ ýòî âçÿëà èç êàêîãî-òî çàáûòîãî æóðíàëà...]]>
Íà ñêîðóþ ðóêó èñïðàâèë ôðàãìåíò:

Case "0"
If STRNG_len > 3 Then
Result = "òûñÿ÷ " & Result
End If

ïðèäàâ åìó âèä:


Case "0"
If STRNG_len > 3 And Left(Right(STRNG, 6), 3) <> "000" Then
Result = "òûñÿ÷ " & Result
End If

Âðîäå ëèøíåå ñëîâî "òûñÿ÷" ïåðåñòàëî âîçíèêàòü.

Åùå õîðîøî áû â ñàìîå íà÷àëî ôóíêöèè äîáàâèòü ñòðîêó:

Application.Volatile

çà÷åì - ïî÷èòàéòå â õåëïå Excel :)

À âîîáùå - áîëüøîå ñïàñèáî! Ïðèãîäèëàñü Âàøà ðàçðàáîòî÷êà.

Ñ óâàæåíèåì,
Êîíñòàíòèí, Ñ-Ïåòåðáóðã]]>
Àëèøåð Òàøêåíò.]]> Íî ïðèíöèï æå ïîíÿòåí ))]]> Ñ óâàæåíèåì
Àëåêñàíäð
slabada@tut.by]]> Dim STRNG As String, CHAR, Result As String, Prom As String
Dim I, STRNG_len As Long
Dim SourceDigTail As Currency

SourceDigTail = (SourceDigits – Int (SourceDigits)) * 100
SourceDigits = Int (SourceDigits)

STRNG = SourceDigits
STRNG_len = Len (STRNG)
For i = 1 To 9 - STRNG_len Step 1
STRNG = “0” & STRNG
Next i

For i = 9 To 9 - STRNG_len + 1 Step -1
CHAR = Mid (STRNG, i, 1)
If CHAR = “” Then GoTo end_c

If i = 2 Or i = 5 Or i = 8 Then
IF CHAR = “1” Then
CHAR = Mid (STRNG, i, 2)
Select Case CHAR
Case “10”
Prom = “äåñÿòü ”
Case “11”
Prom = “îäèííàäöàòü ”
Case “12”
Prom = “äâåíàäöàòü ”
Case “13”
Prom = “òðèíàäöàòü ”
Case “14”
Prom = “÷åòûðíàäöàòü ”
Case “15”
Prom = “ïÿòíàäöàòü ”
Case “16”
Prom = “øåñòíàäöàòü ”
Case “17”
Prom = “ñåìíàäöàòü ”
Case “18”
Prom = “âîñåìíàäöàòü ”
Case “19”
Prom = “äåâÿòíàäöàòü ”
End Select
Else ‘ If char Not = 1
Select Case CHAR
Case “0”
Prom = “ ”
Case “2”
Prom = “äâàäöàòü ”
Case “3”
Prom = “òðèäöàòü ”
Case “4”
Prom = “ñîðîê ”
Case “5”
Prom = “ïÿòüäåñÿò ”
Case “6”
Prom = “øåñòüäåñÿò ”
Case “7”
Prom = “ñåìüäåñÿò ”
Case “8”
Prom = “âîñåìüäåñÿò ”
Case “9”
Prom = “äåâÿíîñòî ”
End Select
End If
End If
If i = 1 Or i = 4 Or i = 7 Then
Select Case CHAR
Case “0”
Prom = “”
Case “1”
Prom = “ñòî ”
Case “2”
Prom = “äâåñòè ”
Case “3”
Prom = “òðèñòà ”
Case “4”
Prom = “÷åòûðåñòà ”
Case “5”
Prom = “ïÿòüñîò ”
Case “6”
Prom = “øåñòüñîò ”
Case “7”
Prom = “ñåìüñîò ”
Case “9”
Prom = “äåâÿòüñîò ”
End Select
End If
If i = 3 Or i = 6 Or i = 9 Then

If i = 9 And Mid (STRNG, i - 1, 1) = “1” Then
Result = “ðóáëåé ” & Result
GoTo end_c
End If



If i = 3 And Mid (STRNG, i - 1, 1) = “1” Then
Result = “ìèëëèîíîâ ” & Result
GoTo end_c
End If



If i = 6 And Mid (STRNG, i - 1, 1) = “1” Then
Result = “òûñÿ÷ ” & Result
GoTo end_c
End If

Select Case CHAR
Case “0”
Prom = “”
Case “1”
If i = 6 Then
Prom = “îäíà ”
Else
Prom = “îäèí ”

End If
Case “2”

If i = 6 Then
Prom = “äâå ”
Else
Prom = “äâà ”
End If
Case “3”
Prom = “òðè ”

Case “4”
Prom = “÷åòûðå ”
Case “5”
Prom = “ïÿòü ”
Case “6”
Prom = “øåñòü ”
Case “7”
Prom = “ñåìü ”
Case “8”
Prom = “âîñåìü ”
Case “9”
Prom = “äåâÿòü ”
End Select
End If
Select Case i

Case 3
Select Case CHAR
Case “1”
Result = “ìèëëèîí ” & Result
Case “2” , “3”, “4”
Result = “ìèëëèîíà ” & Result
Case “5”, “6”, “7”, “8” , “9”
Result = “ìèëëèîíîâ ” & Result
Case “0”
If STRNG_len > 6 Then
Result = “ìèëëèîíîâ ” & Result
End If
End Select


Case 6
Select Case CHAR
Case “1”
Result = “òûñÿ÷à ” & Result
Case “2”, “3”, “4”
Result = “òûñÿ÷è ” & Result
Case “5”, “6”, “7”, “8” , “9”
Result = “òûñÿ÷ ” & Result
Case “0”
If STRNG_len > 3 Then
Result = “òûñÿ÷ ” & Result
End If
End Select

Case 9
Select Case CHAR
Case “1”
Result = “ðóáëü ” & Result
Case “2” , “3”, “4”
Result = “ðóáëÿ ” & Result
Case “0”, “5”, “6”, “7” , “8” , “9”
Result = “ðóáëåé ” & Result
End Select
End Select

Result = Prom & Result

end_c:
Next i

Result = Format(Mid(Result, 1, 1), “>” ) & Mid (Result, 2)

ÏÐÎÏÈÑÜÞ = Result & Format (SourceDigTail, “00”) & “ êîï.”

End Function]]>