0 / 0 / 0
Регистрация: 10.06.2016
Сообщений: 3
1

Сумма прописью (посодействуйте, как добавить копейки)

10.06.2016, 10:46. Показов 2076. Ответов 5
Метки нет (Все метки)

Люди Добрые! - помогите кто чем может...
Есть код, как в него "запилить" вывод копеек прописью?
Заранее спасибо!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
function HN(num:char):string;
begin
  if num='0' then Result:='';                                                                                                   
  if num='1' then Result:='сто ';                                                                                                   
  if num='2' then Result:='двести ';                                                                                                   
  if num='3' then Result:='триста ';                                                                                                   
  if num='4' then Result:='четыреста ';                                                                                                   
  if num='5' then Result:='пятьсот ';                                                                                                   
  if num='6' then Result:='шестьсот ';                                                                                                   
  if num='7' then Result:='семьсот ';                                                                                                   
  if num='8' then Result:='восемьсот ';                                                                                                   
  if num='9' then Result:='девятьсот ';                                                                                                   
end;          
function DC(num:char):string;
begin
  if num='0' then Result:='десять ';                                                                                                   
  if num='1' then Result:='одиннадцать ';                                                                                                   
  if num='2' then Result:='двенадцать ';                                                                                                   
  if num='3' then Result:='тринадцать ';                                                                                                   
  if num='4' then Result:='четырнадцать ';                                                                                                   
  if num='5' then Result:='пятнадцать ';                                                                                                   
  if num='6' then Result:='шестнадцать ';                                                                                                   
  if num='7' then Result:='семнадцать ';                                                                                                   
  if num='8' then Result:='восемнадцать ';                                                                                                   
  if num='9' then Result:='девятнадцать ';                                                                                                   
end;  
function KC(num:char):string;
begin
  if num='0' then Result:='';                                                                                                   
  if num='1' then Result:='десять ';                                                                                                   
  if num='2' then Result:='двадцать ';                                                                                                   
  if num='3' then Result:='тридцать ';                                                                                                   
  if num='4' then Result:='сорок ';                                                                                                   
  if num='5' then Result:='пятьдесят ';                                                                                                   
  if num='6' then Result:='шестьдесят ';                                                                                                   
  if num='7' then Result:='семьдесят ';                                                                                                   
  if num='8' then Result:='восемьдесят ';                                                                                                   
  if num='9' then Result:='девяносто ';                                                                                                   
end;  
function RM(num:char; f : boolean):string;
begin
  if f=false then
  begin              
    if num='0' then Result:='';                                                                                                   
    if num='1' then Result:='один ';                                                                                                   
    if num='2' then Result:='два ';                                                                                                   
    if num='3' then Result:='три ';                                                                                                   
    if num='4' then Result:='четыре ';                                                                                                   
    if num='5' then Result:='пять ';                                                                                                   
    if num='6' then Result:='шесть ';                                                                                                   
    if num='7' then Result:='семь ';                                                                                                   
    if num='8' then Result:='восемь ';                                                                                                   
    if num='9' then Result:='девять ';
  end              
  else
  begin              
    if num='0' then Result:='';                                                                                                   
    if num='1' then Result:='одна ';                                                                                                   
    if num='2' then Result:='две ';                                                                                                   
    if num='3' then Result:='три ';                                                                                                   
    if num='4' then Result:='четыре ';                                                                                                   
    if num='5' then Result:='пять ';                                                                                                   
    if num='6' then Result:='шесть ';                                                                                                   
    if num='7' then Result:='семь ';                                                                                                   
    if num='8' then Result:='восемь ';                                                                                                   
    if num='9' then Result:='девять ';
  end;            
end;  
function RM2(num:char):integer;
begin
  if num='0' then Result:=0;                                                                                                   
  if num='1' then Result:=1;                                                                                                   
  if num='2' then Result:=2;                                                                                                   
  if num='3' then Result:=2;                                                                                                   
  if num='4' then Result:=2;                                                                                                   
  if num='5' then Result:=0;                                                                                                   
  if num='6' then Result:=0;                                                                                                   
  if num='7' then Result:=0;                                                                                                   
  if num='8' then Result:=0;                                                                                                   
  if num='9' then Result:=0;                                                                                                   
end;  
function GR(num:integer;pos:integer):string;
begin
  if pos=0 then
  begin
    if num=1 then Result:='';                                                                                                   
    if num=2 then Result:='тысяч ';                                                                                                   
    if num=3 then Result:='миллионов ';                                                                                                   
    if num=4 then Result:='миллиардов ';                                                                                                   
    if num=5 then Result:='триллионов ';                                                                                                   
  end;          
  if pos=1 then
  begin
    if num=1 then Result:='';                                                                                                   
    if num=2 then Result:='тысяча ';                                                                                                   
    if num=3 then Result:='миллион ';                                                                                                   
    if num=4 then Result:='миллиард ';                                                                                                   
    if num=5 then Result:='триллион ';                                                                                                   
  end;          
  if pos=2 then
  begin
    if num=1 then Result:='';                                                                                                   
    if num=2 then Result:='тысячи ';                                                                                                   
    if num=3 then Result:='миллиона ';                                                                                                   
    if num=4 then Result:='миллиарда ';                                                                                                   
    if num=5 then Result:='триллиона ';                                                                                                   
  end;          
end;          
function UpCaseRus(c:char):char;
begin
  Case c of
  'а'..'я':Result:=Chr((Ord(c)+Ord('А')-Ord('а')));  
 end;                                                     
end;
 
function EndType(Num:currency):byte;
var s:string;
begin
   s:=FloatToStr((int(Num)));
   Result:=RM2(s[length(s)]);
end;
 
function PropisNumer (Number:currency; Female:boolean=False):string;
var s:string; j,k:integer;
begin
 Result:='';                           
 s:=Trim(FloatToStr((int(Number))));
 if s='0' then begin Result:='ноль '; exit; end;
 while (length(s) mod 3) > 0 do s:='0'+s;
 
 k:=1;
 for j:=(length(s) div 3) downto 1 do
  begin
   if Copy(S,k,3)<>'000'
    then begin
   if S[k+1]='1'
     then Result:=Result+HN(s[k])+DC(s[k+2])+GR(j,0)  
     else Result:=Result+HN(S[k])+KC(S[k+1])+RM(S[k+2],(j=2) or Female)+GR(j,RM2(S[k+2]));
         end;
   inc(k,3);
  end;
 if Result = Null then Result:='';                                            
end;
 
function PropisRub(Number:real;Upper:boolean):string;
begin
 Result:=PropisNumer(Number,false);
 if (Result<>'') and (Upper=true)                                                                         
  then Result[1]:=UpCaseRus(Result[1]);
 if Result<>'' then 
 Case EndType(Number) of
  0:Result:=Result+'рублей';
  1:Result:=Result+'рубль';
  2:Result:=Result+'рубля';
 end;
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2016, 10:46
Ответы с готовыми решениями:

Сумма чисел прописью в ворде(копейки тоже буквами)
есть макрос которой цифру вида 55 прописывает (пятьдесят пять рублей 00 копеек) что нужно изменить...

Число прописью - копейки вынести за скобки
Доброго времени суток. подскажите пожалуйста, каким образом можно вынести копейки за скобки....

Дата прописью и сумма прописью
Господа, помогите!! Перерыл весь инет, скачал кучу прог и кодов но не разобрался ни в чем..(( Мне...

Как вывести число (сумма, количество) прописью ?
Здраствуйте, как можно форматнуть число : 123.45 -&gt; &quot;сто двадцать три&quot; грн 45 коп 198.10 -&gt; &quot;сто...

5
486 / 445 / 172
Регистрация: 11.12.2013
Сообщений: 2,344
10.06.2016, 11:12 2
посмотрите: http://www.delphisources.ru/pa... _out7.html
0
486 / 445 / 172
Регистрация: 11.12.2013
Сообщений: 2,344
10.06.2016, 12:35 3
попробуй
Вложения
Тип файла: rar money.rar (169.9 Кб, 21 просмотров)
0
0 / 0 / 0
Регистрация: 10.06.2016
Сообщений: 3
10.06.2016, 13:26  [ТС] 4
Все это хорошо и всем спасибо, но допилить нужно именно этот код, он работает, но плюс ко всему нужно, что бы еще и копейки прописывал...
0
25 / 25 / 22
Регистрация: 18.09.2014
Сообщений: 218
10.06.2016, 13:28 5
Лучший ответ Сообщение было отмечено Ruchnik как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
library SummaToPropis;
 
{ Important note about DLL memory management: ShareMem must be the
  first unit in your library's USES clause AND your project's (select
  Project-View Source) USES clause if your DLL exports any procedures or
  functions that pass strings as parameters or function results. This
  applies to all strings passed to and from your DLL--even those that
  are nested in records and classes. ShareMem is the interface unit to
  the BORLNDMM.DLL shared memory manager, which must be deployed along
  with your DLL. To avoid using BORLNDMM.DLL, pass string information
  using PChar or ShortString parameters. }
 
uses
  ShareMem,
  System.SysUtils,
  System.Classes;
 
{$R *.res}
var mass:array[0..4]of integer;
    razr:array[0..5] of string;//разряды
    mill:array[0..9] of string;//миллион+, миллиард+, ...
    tysa4:array[0..9] of string;//тысяч+
    sotn:array[0..9] of string;//сотни
    des:array[0..9] of string;//десятки
    desd:array[0..9] of string;//20>i>10
    edin:array[0..1,0..9] of string;//единицы
    ruble:array[0..9] of string;//рубл+
    kopeek:array[0..9] of string;//копейки
    nacion:array[0..9] of string;//белорусски+
 
procedure ini******e();
begin
  razr[0]:='';
  razr[1]:='тысяч';
  razr[2]:='миллион';
  razr[3]:='миллиард';
  razr[4]:='триллион';
 
  mill[0]:='ов ';
  mill[1]:=' ';
  mill[2]:='a ';
  mill[3]:='а ';
  mill[4]:='а ';
  mill[5]:='ов ';
  mill[6]:='ов ';
  mill[7]:='ов ';
  mill[8]:='ов ';
  mill[9]:='ов ';
 
  tysa4[0]:=' ';
  tysa4[1]:='а ';
  tysa4[2]:='и ';
  tysa4[3]:='и ';
  tysa4[4]:='и ';
  tysa4[5]:=' ';
  tysa4[6]:=' ';
  tysa4[7]:=' ';
  tysa4[8]:=' ';
  tysa4[9]:=' ';
 
  sotn[0]:=' ';
  sotn[1]:='сто ';
  sotn[2]:='двесте ';
  sotn[3]:='триста ';
  sotn[4]:='четыреста ';
  sotn[5]:='пятьсот ';
  sotn[6]:='шестьсот ';
  sotn[7]:='семьсот ';
  sotn[8]:='восемьсот ';
  sotn[9]:='девятьсот ';
 
  des[0]:=' ';
  des[1]:='десять ';
  des[2]:='двадцать ';
  des[3]:='тридцать ';
  des[4]:='сорок ';
  des[5]:='пятьдесят ';
  des[6]:='шестьдесят ';
  des[7]:='семьдесят ';
  des[8]:='восемьдесят ';
  des[9]:='девяносто ';
 
  desd[0]:=' ';
  desd[1]:='одиннадцать ';
  desd[2]:='двенадцать ';
  desd[3]:='тринадцать ';
  desd[4]:='четырнадцать ';
  desd[5]:='пятнадцать ';
  desd[6]:='шеснадцать ';
  desd[7]:='семнадцать ';
  desd[8]:='восемнадцать ';
  desd[9]:='девятнадцать ';
 
  edin[0,0]:=' ';
  edin[0,1]:='один ';
  edin[0,2]:='два ';
  edin[0,3]:='три ';
  edin[0,4]:='четыре ';
  edin[0,5]:='пять ';
  edin[0,6]:='шесть ';
  edin[0,7]:='семь ';
  edin[0,8]:='восемь ';
  edin[0,9]:='девять ';
  edin[1,0]:=' ';
  edin[1,1]:='одна ';
  edin[1,2]:='две ';
  edin[1,3]:='три ';
  edin[1,4]:='четыре ';
  edin[1,5]:='пять ';
  edin[1,6]:='шесть ';
  edin[1,7]:='семь ';
  edin[1,8]:='восемь ';
  edin[1,9]:='девять ';
 
  ruble[0]:='ей ';
  ruble[1]:='ь ';
  ruble[2]:='я ';
  ruble[3]:='я ';
  ruble[4]:='я ';
  ruble[5]:='ей ';
  ruble[6]:='ей ';
  ruble[7]:='ей ';
  ruble[8]:='ей ';
  ruble[9]:='ей ';
 
  kopeek[0]:='ек';
  kopeek[1]:='йка';
  kopeek[2]:='йки';
  kopeek[3]:='йки';
  kopeek[4]:='йки';
  kopeek[5]:='ек';
  kopeek[6]:='ек';
  kopeek[7]:='ек';
  kopeek[8]:='ек';
  kopeek[9]:='ек';
 
  nacion[0]:='их ';
  nacion[1]:='ий ';
  nacion[2]:='их ';
  nacion[3]:='их ';
  nacion[4]:='их ';
  nacion[5]:='их ';
  nacion[6]:='их ';
  nacion[7]:='их ';
  nacion[8]:='их ';
  nacion[9]:='их ';
end;
 
function ed1(i:integer):string;
var s:string;
begin
  s:='';
  if i>99 then
    s:=s+sotn[i div 100];
  i:=i mod 100;
  if (i<20) and (i>10) then
    s:=s+desd[i mod 10];
  if ((i>19) and (i<100)) or (i=10) then begin
    s:=s+des[i div 10];
    i:=i mod 10;
  end;
  if i<10 then
    s:=s+edin[0,i];
  result:=s;
end;
 
function ed2(i:integer):string;
var s:string;
begin
  s:='';
  if i>99 then
    s:=s+sotn[i div 100];
  i:=i mod 100;
  if (i<20) and (i>10) then
    s:=s+desd[i mod 10];
  if ((i>19) and (i<100)) or (i=10) then begin
    s:=s+des[i div 10];
    i:=i mod 10;
  end;
  if i<10 then
    s:=s+edin[1,i];
  result:=s;
end;
 
function OkRazr1(i:integer):string;
var s:string;
begin
  s:='';
  i:=i mod 100;
  if (i<20) and (i>9) then
    s:=s+'ов '
  else begin
    s:=mill[i mod 10];
  end;
  result:=s;
end;
 
function OkRazr2(i:integer):string;
var s:string;
begin
  s:='';
  i:=i mod 100;
  if (i<20) and (i>10) then
  s:=s+' '
  else begin
    s:=tysa4[i mod 10];
  end;
  result:=s;
end;
 
function StrFloat(s:string):boolean;
var i:double;
begin
  if TryStrTofloat(s,i) then Result:=true
  else Result:=false;
end;
 
function propis(default:double):string;
var rez, rezR, rezK,temp_s,temp_r:String;
    ishR,ishK,kol,i,rub,kop:int64;
begin
  kol:=0;
  rez:='';
  rub:=Trunc(Abs(default));
  kop:=Abs(Round(Frac(default)*100));
  ini******e();
  if rub<1000000000000  then
  begin
    rezR:='';
    kol:=0;
    while rub>0 do
    begin
      mass[kol]:=rub mod 1000;
      rub:=rub div 1000;
      kol:=kol+1;
    end;
    for i := kol-1 downto 0 do
    begin
      if mass[i]>0 then
      begin
        if i>1 then
          rezR:=rezR+ed1(mass[i])+razr[i]+OkRazr1(mass[i])
        else
          if i=1 then
            rezR:=rezR+ed2(mass[i])+razr[i]+OkRazr2(mass[i])
          else
            if (mass[i]>10) and (mass[i]<20)then
              rezR:=rezR+ed1(mass[i])+'белорусск'+nacion[mass[0] mod 10]+'рублей '
            else
              rezR:=rezR+ed1(mass[i])+'белорусск'+nacion[mass[0] mod 10]+'рубл'+
              ruble[mass[0] mod 10];
      end;
    end;
    rezK:='';
    if kop>0 then
    begin
      if (kop<20) and (kop>10) then
       rezK:=rezK+desd[kop mod 10]+'копеек';
      if ((kop>=20) and (kop<100)) or (kop=10) then
      begin
        rezK:=rezK+des[kop div 10];
        kop:=kop mod 10;
      end;
      if kop<10 then
        rezK:=rezK+edin[1,kop]+'копе'+kopeek[kop];
    end;
    rez:=rezR+rezK;
    temp_s:=AnsiUpperCase(copy(rez,0,1));
    temp_r:=Copy(rez,1,Length(rez)-1);
    insert(temp_s,rez,1);
    delete(rez,2,1);
    result:=rez;
  end;
end;
 
exports
  propis;
 
begin
end.
Реализована через dll. Добавлены копейки в связи с деноминацией. Писал для себя. Разобраться не сложно
Вложения
Тип файла: rar STPlib.rar (250.3 Кб, 23 просмотров)
1
0 / 0 / 0
Регистрация: 10.06.2016
Сообщений: 3
17.06.2016, 14:00  [ТС] 6
Реализована через dll. Добавлены копейки в связи с деноминацией. Писал для себя. Разобраться не сложно
Razdolbait Спасибо! то, что мне было нужно, взял логику из твоего кода и перепилил под свою нужду...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2016, 14:00

Как в FastReport 4 добавить сумму прописью
Собственно, сам вопрос в названии топика - как это сделать? (желательно в примере &quot;для чайника&quot;) ...

Сумма прописью
Мне нужен скрипт суммы прописью если можно даже просто объяснить Алгоритм! Пожалуйста не давайте...

Сумма прописью
Извините, за избитый вопрос, как в отчете вывести сумму прописью? Спасибо

Сумма прописью
Привет всем! Подскажите мне пожалуйста, как можно реализовать на Visual Basic написание прописью...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.