базата.
Налага се да почерпиш

Съдържаниет е скрито
Влезте за да го видите

Сработи. Обаче ако сложиш примерно 20 милиона дава грешка (препълване)!

Всичко си бачка.
Ако на чавек не му утърва този вид на Source
може сам даго пипне тук там и да си го направи както иска.
За без пари толкова, даже е много.

и мама може да ти сдъфква храната и тогава да ти я слага в устичката, но обикновено не го прави

Съдържаниет е скрито
Влезте за да го видите

Мда, ама не работи правилно - 101 000 го изписва като сто и един хиляди лева, а на всичкото отгоре над 19 милиона (не, че някой ще го пише във фактура де) не работи - дава овърфлоу... Опитах се да го поправя кода, всичко е ок, но... работи само ако десетичния знак примерно е "." или "," :) Не познавам толкова добре ексела и VBA програмирането, но ако имаше променлива която е = decimal symbol.. :)
Edit: Хаха и с това се преборих :) вече мога да го бройкам какъв е символа и функцията ми работи по-добре от оригинала на Щирлиц :) Ето как
-> Запетайката = Application.International(xlDecimalSeparator)


Хубавото на лошото и лошото на хубавото е, че все някога свършват.

Редактирано от SimonP на 13.06.05 20:00.

Мда, моят ревизиран код ще почака :) Открих една крешка и вината не е моя, но програмата като цяло изписва словом число с 12 символа, което означава, че трябва да си поиграя да сложа една проверка и ако някой въведе 13 да му изпише "това е космическа сума и аз не знам как се брои до толкова"
Направо ме е срам от мене ;)


Хубавото на лошото и лошото на хубавото е, че все някога свършват.

Редактирано от SimonP на 15.06.05 17:36.

Пращам ти кода,който използвам много отдавна.Сигурно може да се оптимизира,ама много ме мързи.Я кво хубаво време е навън...само за риба

P.S. Направил съм го само до 999.99лв. Предполагам няма да те затрудни да си го направиш и за повече

Public Function Slowom(number) As String
Dim drob As Single, cqlo As Integer, p_dec As Integer, prow As Integer, Pe1 As Integer
cqlo = Fix(number)
drob = number - cqlo
If drob > 0 Then
drob = drob * 100
prow = 1
If drob > 19 Then
str2 = nad_20(drob, "ñòîòèíêè")
Else
str2 = pod_20(drob, "ñòîòèíêè")
End If
End If
p_dec = Right(cqlo, 2)
If p_dec > 19 Then
str3 = nad_20(p_dec, "ëåâà")
Else
str3 = pod_20(p_dec, "ëåâà")
End If
If cqlo > 99 Then
Pe1 = 1
Select Case Left(cqlo, 1)
Case 1
str4 = "ñòî"
Case 2
str4 = "äâåñòà"
Case 3
str4 = "òðèñòà"
Case 4
str4 = "÷åòèðèñòîòèí"
Case 5
str4 = "ïåòñòîòèí"
Case 6
str4 = "øåñòñòîòèí"
Case 7
str4 = "ñåäåìñòîòèí"
Case 8
str4 = "îñåìñòîòèí"
Case 9
str4 = "äåâåòñòîòèí"
End Select
End If
If Pe1 = 0 Then
If prow = 1 Then
Slowom = str3 & " è " & str2
Else
Slowom = str3
End If
Else
If prow = 1 Then
Slowom = str4 & " è " & str3 & " è " & str2
Else
Slowom = str4 & " è " & str3
End If

End If
End Function
Function nad_20(num, mm) As String
First = Left(num, 1)
Select Case First
Case 2
str_2 = "äâàäåñåò"
Case 3
str_2 = "òðèäåñåò"
Case 4
str_2 = "÷åòèðèäåñåò"
Case 5
str_2 = "ïåòäåñåò"
Case 6
str_2 = "øåñòäåñåò"
Case 7
str_2 = "ñåäåìäåñåò"
Case 8
str_2 = "îñåìäåñåò"
Case 9
str_2 = "äåâåòäåñåò"

End Select

Select Case Right(num, 1)
Case 0
prow = 1
Case 1
If mm = "ëåâà" Then
str_3 = " åäèí"
Else
str_3 = " åäíà"
End If
Case 2
If mm = "ëåâà" Then
str_3 = " äâà"
Else
str_3 = " äâå"
End If
Case 3
str_3 = " òðè"
Case 4
str_3 = " ÷åòèðè"
Case 5
str_3 = " ïåò"
Case 6
str_3 = " øåñò"
Case 7
str_3 = " ñåäåì"
Case 8
str_3 = " îñåì"
Case 9
str_3 = " äåâåò"
End Select
If prow = 1 Then
nad_20 = str_2 & " " & mm
Else
nad_20 = str_2 & " è " & str_3 & " " & mm
End If
End Function
Function pod_20(num, mm)
Dim prom As Integer
prom = num
Select Case prom
Case 1
If mm = "ëåâà" Then
str_1 = " åäèí"
Else
str_1 = " åäíà"
End If
Case 2
If mm = "ëåâà" Then
str_1 = " äâà"
Else
str_1 = " äâe"
End If
Case 3
str_1 = " òðè"
Case 4
str_1 = " ÷åòèðè"
Case 5
str_1 = " ïåò"
Case 6
str_1 = " øåñò"
Case 7
str_1 = " ñåäåì"
Case 8
str_1 = " îñåì"
Case 9
str_1 = " äåâåò"
Case 10
str_1 = " äåñåò"
Case 11
str_1 = " åäèíàäåñåò"
Case 12
str_1 = " äâàíàäåñåò"
Case 13
str_1 = " òðèíàäåñåò"
Case 14
str_1 = " ÷åòèðèíàäåñåò"
Case 15
str_1 = " ïåòíàäåñåò"
Case 16
str_1 = " øåñòíàäåñåò"
Case 17
str_1 = " ñåäåìíàäåñåò"
Case 18
str_1 = " îñåìíàäåñåò"
Case 19
str_1 = " äåâåòíàäåñåò"
End Select
pod_20 = str_1 & " " & mm


End Function