0 / 0 / 0
Регистрация: 25.07.2011
Сообщений: 7
|
|
1 | |
123 - какого типа эта константа???25.07.2011, 17:56. Показов 1342. Ответов 7
Метки нет (Все метки)
Здравствуйте!
Если писать Код
.Bookmarks.Item(s).Range.Text =SummaPropis(123) Если Код
Dim Num As Integer Number = 123 .Bookmarks.Item(s).Range.Text =SummaPropis(Number)
0
|
25.07.2011, 17:56 | |
Ответы с готовыми решениями:
7
Как понять, какого типа константа? Заменить "чтото типо <123>123</123>" на "чтото", предварительно подставив перед "чтото" текст между тегов из "чтото типо <123>123</123>" Какого ввода ждет еще эта программа? Константа типа short |
2 / 2 / 1
Регистрация: 10.04.2011
Сообщений: 415
|
|
25.07.2011, 18:07 | 2 |
SummaPropis - это типа сам написал? А чего нас тогда спрашиваешь?
Напиши в описании своей функции так: function SummaPropis(NumberV as variant) as string ... Number=int(NumberV) ... и работай с Number в ней
0
|
0 / 0 / 0
Регистрация: 25.07.2011
Сообщений: 7
|
|
25.07.2011, 19:42 [ТС] | 3 |
Функция не стандартная и не моя.
Но работает же правильно когда ручками вписываешь входной параметр, а когда передаёшь переменную того же типа (123-это тип Integer или нет?), то не работает?
0
|
Comanche
|
|
25.07.2011, 19:56 | 4 |
Без кода функции понять что-либо сложно.
|
0 / 0 / 0
Регистрация: 25.07.2011
Сообщений: 7
|
|
25.07.2011, 21:18 [ТС] | 5 |
Всё заработало! Всем спасибо!
0
|
2 / 2 / 1
Регистрация: 10.04.2011
Сообщений: 415
|
|
26.07.2011, 10:44 | 6 |
А что было, как поборол - не отчитался. Вот хад!
0
|
1 / 1 / 0
Регистрация: 26.07.2011
Сообщений: 3
|
|
26.07.2011, 14:43 | 7 |
Код
'============================================================================= 'ÓÍÈÂÅÐÑÀËÜÍÀß ÔÓÍÊÖÈß ÂÛÂÎÄÀ ×ÈÑËÀ (âêëþ÷àþùàÿ â ñåáÿ òàêæå äðîáíûå ÷èñëà) ÏÐÎÏÈÑÜÞ 'íà ðóññêîì ÿçûêå '============================================================================= Public Function SummaPropis(Num As Variant, String1 As String, String234 As String, StringOther As String, StringChego As String, sPol As String, Optional sPadezh As String, Optional sImen As String, Optional sRodit As String, Optional sDatel As String, Optional sVinit As String, Optional sTvorit As String, Optional sPredl As String) As String 'ÂÕÎÄÍÛÅ ÏÀÐÀÌÅÒÐÛ - 'NUM - ÷èñëî, äëÿ âûâîäà ïðîïèñüþ 'ìàêñèìàëüíîå ÷èñëî 999 999 999 999 999,99999 (999 òðèëëèîíîâ) 'àíàëèçèðóþòñÿ òîëüêî 5 çíàêîâ ïîñëå çàïÿòîé (ñòîòûñÿ÷íàÿ) èáî äëÿ 'ôèíàíñîâûõ ðàñ÷åòîâ â ïîëíå õâàòàåò 4 çíàêîâ (Currency), ìàêñèìóì äî 5 'String1 - 'îäíà ÷òî? - øòóêà' 'Strin234 - 'äâå, òðè, ÷åòûðå ÷åãî? - øòóêè' 'StringOther - 'ïÿòü, øåñòü, ñåìü, 100, 355, è ò.ä ÷åãî? - & l(left(sCel, 1)) Case 8 Millions = Val(left(sCel, 2)) Case Else Millions = Val(Mid(sCel, lDlina - 8, 3)) End Select End If If lCel > 999999999 Then Select Case lDlina Case 9 Milliards = 0 Case 10 Milliards = Val(left(sCel, 1)) Case 11 Milliards = Val(left(sCel, 2)) Case Else Milliards = Val(Mid(sCel, lDlina - 11, 3)) End Select End If If lCel > 999999999999# Then Select Case lDlina Case 12 Trillions = 0 Case 13 Trillions = Val(left(sCel, 1)) Case 14 Trillions = Val(left(sCel, 2)) Case Else Trillions = Val(Mid(sCel, lDlina - 14, 3)) End Select End If If lCel = 0 And lDec <> 0 Then SummaPropis = SummaPropis & 'íîëü öåëûõ ' Else If lDec = 0 Then If Hundreds = 0 And lCel > 999 Then propis_str_tmp = SummaPropisTriada(Hundreds, String1, String234, StringOther, sPol, True) Else propis_str_tmp = SummaPropisTriada(Hundreds, String1, String234, StringOther, sPol) End If Else propis_str_tmp = SummaPropisTriada(Hundreds, 'öåëàÿ', 'öåëûõ', 'öåëûõ', 'æ') End If SummaPropis = SummaPropis & SummaPropisTriada(Trillions, 'òðèëëèîí', 'òðèëëèîíà', 'òðèëëèîíîâ', 'ì') & SummaPropisTriada(Milliards, 'ìèëëèàðä', 'ìèëëèàðäà', 'ìèëëèàðäîâ', 'ì') & SummaPropisTriada(Millions, 'ìèëëèîí', 'ìèëëèîíà', 'ìèëëèîíîâ', 'ì') & SummaPropisTriada(Thousands, 'òûñÿ÷à', 'òûñÿ÷è', 'òûñÿ÷', 'æ') & propis_str_tmp End If If lDec <> 0 Then lDlina = Len(Str(lDec)) - 2 lDec = Val(right(Str(lDec), Len(Str(lDec)) - 2)) sDec = LTrim(Str(lDec)) Hundreds = Val(right(sDec, 3)) If lDec > 999 Then Select Case lDlina Case 3 Thousands = 0 Case 4 Thousands = Val(left(sDec, 1)) Case 5 Thousands = Val(left(sDec, 2)) Case Else Thousands = Val(Mid(sDec, lDlina - 5, 3)) End Select Else Thousands = 0 End If If lDec > 999999 Then Select Case lDlina Case 6 Millions = 0 Case 7 Millions = Val(left(sDec, 1)) Case 8 Millions = Val(left(sDec, 2)) Case Else Millions = Val(Mid(sDec, lDlina - 8, 3)) End Select Else Millions = 0 End If If lDec > 999999999 Then Select Case lDlina Case 9 Milliards = 0 Case 10 Milliards = Val(left(sDec, 1)) Case 11 Milliards = Val(left(sDec, 2)) Case Else Milliards = Val(Mid(sDec, lDlina - 11, 3)) End Select Else Milliards = 0 End If If lDec > 999999999999# Then Select Case lDlina Case 12 Trillions = 0 Case 13 Trillions = Val(left(sDec, 1)) Case 14 Trillions = Val(left(sDec, 2)) Case Else Trillio ;#240;äíûõ', 'òðèëèîííûõ'), 'æ') & SummaPropisTriada(Hundreds, StringChego, StringChego, StringChego, sPol, True) End If End Function Function SummaPropisTriada(ByVal lTriada As Long, String1 As String, String234 As String, StringOther As String, sPol As String, Optional IsNumHidden As Boolean = False) As String 'Âñïîìîãàòåëüíàÿ ôóíêöèÿ äëÿ ãëàâíîé ôóíêöèè - SummaPropis 'ïåðåâîäèò â òåêñòîâîå ïðåäñòàâëåíèå ÷èñëî, äëèíà êîòîðîãî <= 3 '(òðèàäó) 'lTriada - òðèàäà (123, 1, 0, 22, 987 è ò.ä.) 'Ïåðâîå ñëîâî - 'îäíà ÷òî? - øòóêà' 'Âòîðîå ñëîâî - 'äâå, òðè, ÷åòûðå ÷åãî? - øòóêè' 'Òðåòüå ñëîâî - 'ïÿòü, øåñòü, ñåìü, 100, 355, è ò.ä ÷åãî? - øòóê' '×åòâåðòîå ñëîâî - 'îäíà äåñÿòàÿ ÷åãî? - øòóêè' 'Ïÿòîå ñëîâî - 'ïîë øòóêè êàêîé? - æåíñêèé ('æ')' ' 'Ïîñëåäíèé ïàðàìåòð îïöèîíàëüíûé: 'TRUE - ÍÅ ÂÛÄÀÂÀÒÜ ×ÈÑËÎ ÏÐÎÏÈÑÜÞ, à âûäàâàòü t;îäèííàäöàòü', 'äâåíàäöàòü', 'òðèíàäöàòü', '÷åòûðíàäöàòü', 'ïÿòíàäöàòü', 'øåñòíàäöàòü', 'ñåìíàäöàòü', 'âîñåìíàäöàòü', 'äåâÿòíàäöàòü') SummaPropisTriada = SummaPropisTriada & ' ' & StringOther & ' ' Exit Function Else If Not IsNumHidden Then SummaPropisTriada = SummaPropisTriada & Choose(l10 10, '', 'äâàäöàòü', 'òðèäöàòü', 'ñîðîê', 'ïÿòüäåñÿò', 'øåñòüäåñÿò', 'ñåìüäåñÿò', 'âîñåìüäåñÿò', 'äåâÿíîñòî') SummaPropisTriada = SummaPropisTriada & ' ' End If End If End If If l1 <> 0 Then If Not IsNumHidden Then SummaPropisTriada = SummaPropisTriada & Choose(l1, Choose(iPol, 'îäèí', 'îäíà', 'îäíî'), Choose(iPol, 'äâà', 'äâå', 'äâà'), 'òðè', '÷åòûðå', 'ïÿòü', 'øåñòü', 'ñåìü', 'âîñåìü', 'äåâÿòü') SummaPropisTriada = SummaPropisTriada & ' ' End If End If If lTriada <> 0 Then SummaPropisTriada = SummaPropisTriada & Choose(l1 + 1, StringOther, String1, String234, String234, String234, StringOther, StringOther, StringOther, StringOther, StringOther) SummaPropisTriada = SummaPropisTriada & ' ' End If If lTriada = 0 And IsNumHidden Then SummaPropisTriada = SummaPropisTriada & StringOther SummaPropisTriada = SummaPropisTriada & ' ' End If End Function
1
|
0 / 0 / 0
Регистрация: 25.07.2011
Сообщений: 7
|
|
26.07.2011, 18:46 [ТС] | 8 |
Прошу пардона!
Я сам своими кривыми ручонками вставлял значение значение из поля которого на текущей форме(Me('Аванс')) не было, ошибки не появлялось, вот и валил на всё остальное. Первый раз на VBA пишу, мне можно
0
|
26.07.2011, 18:46 | |
26.07.2011, 18:46 | |
Помогаю со студенческими работами здесь
8
В переменную какого типа можно запихнуть двумерный массив типа String Максимум какого наибольшего порядка дает эта дифракционная решетка? Сформировать квадратную матрицу типа 111/122/123 Почему композиция циклов (123) и (123) равна циклу (132) Константа ref-типа, доступная в любом классе константа в качестве параметра типа структура в clang Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |