ShSergeXDiaBLo...Ну да, ты сам без учебников до всего допрёшь. Изобретёшь колесо, потом телегу, потом сбрую...
Приколись, изобретатели колёс, телег и пр. довольно неплохо зарабатывают, и до сих пор успешно их изобретают.
А насчёт учебников спрошу - ты написал хотя бы один? Я, например, не написал. У меня времени на эту фигню нету. А у кого оно есть - точно не программист. Читать нужно только документацию, а не учебники. Кстати, что очень плохо, большинство современных учебников по программированию - просто реклама какого-то продукта.
Целиком подтверждаю, даже с конкретным примером.
Пример:
Давным давно, когда мне понадобилось вывести сумму прописью, сделал сам и забыл (интернетов тогда не было),
и вот как-то увидел, в одной книжке про Visual FoxPro 7 (авторов не скажу, но на обложке написано "к вершинам мастерства"),
пример функции для суммы прописью на 4,5 страницах - и подивился укуренности автора(ов) этой функции.
Если что, вот моя для VFP9, её я много лет назад выкладывал на фоксклубе в решениях для любых версий VFP,
только здесь строк раза в 2 меньше, потому что задействован icase (only VFP9).
сумма прописью для VFP 9 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.
MESSAGEBOX(FSumString(999999999999.99))
* // СУММА ПРОПИСЬЮ min - 0, max - 999999999999.99
FUNCTION FSumString(n)
LOCAL i,s,r,ss,c
n=iif(empty(n) .or. vartype(n)!='N',0,iif(n<0,0-n,n))
r=""
s=str(n,15,2)
FOR i=1 to 10 STEP 3
ss=substr(s,i,3)
if ss!=space(3)
c=substr(ss,1,1)
c=icase(c='1','сто ',c='2','двести ',c='3','триста ',c='4','четыреста ',c='5','пятьсот ',c='6','шестьсот ',c='7','семьсот ',c='8','восемьсот ',c='9','девятьсот ','')
r=r+c
if substr(ss,2,1)="1"
c=substr(ss,3,1)
c=icase(c='0','десять ',c='1','одиннадцать ',c='2','двенадцать ',c='3','тринадцать ',c='4','четырнадцать ',c='5','пятнадцать ',c='6','шестнадцать ',c='7','семнадцать ',c='8','восемнадцать ',c='9','девятнадцать ','')
r=r+c+icase(i=1,'миллиардов ',i=4,'миллионов ',i=7,'тысяч ',i=10,'рублей ','')
else
c=substr(ss,2,1)
c=icase(c='2','двадцать ',c='3','тридцать ',c='4','сорок ',c='5','пятьдесят ',c='6','шестьдесят ',c='7','семьдесят ',c='8','восемьдесят ',c='9','девяносто ','')
r=r+c
c=substr(ss,3,1)
do case
case c='0'
c=icase(i=1,'миллиардов ',i=4,'миллионов ',i=7,'тысяч ','рублей ')
case c='1'
c=iif(i=7,'одна тысяча ','один '+iif(i=1,'миллиард ',iif(i=4,'миллион ','рубль ')))
case c='2'
c=iif(i=7,'две тысячи ','два '+iif(i=1,'миллиарда ',iif(i=4,'миллиона ','рубля ')))
case c='3'
c=iif(i=7,'три тысячи ','три '+iif(i=1,'миллиарда ',iif(i=4,'миллиона ','рубля ')))
case c='4'
c=iif(i=7,'четыре тысячи ','четыре '+iif(i=1,'миллиарда ',iif(i=4,'миллиона ','рубля ')))
case c='5'
c=iif(i=7,'пять тысяч ','пять '+iif(i=1,'миллиардов ',iif(i=4,'миллионов ','рублей ')))
case c='6'
c=iif(i=7,'шесть тысяч ','шесть '+iif(i=1,'миллиардов ',iif(i=4,'миллионов ','рублей ')))
case c='7'
c=iif(i=7,'семь тысяч ','семь '+iif(i=1,'миллиардов ',iif(i=4,'миллионов ','рублей ')))
case c='8'
c=iif(i=7,'восемь тысяч ','восемь '+iif(i=1,'миллиардов ',iif(i=4,'миллионов ','рублей ')))
case c='9'
c=iif(i=7,'девять тысяч ','девять '+iif(i=1,'миллиардов ',iif(i=4,'миллионов ','рублей ')))
endcase
r=r+c
endif
endif
ENDFOR
s=substr(s,14,2)
ss=substr(s,1,1)
c=substr(s,2,1)
r=r+s+iif(ss='1' .or. ss='0',' копеек',icase(c>'4',' копеек',c='1',' копейка',c>'1' .and. c<'5',' копейки',''))
r=iif(n<1,'Ноль ','')+upper(substr(r,1,1))+substr(r,2)
RETURN r
У кого есть эта книга, могут сами найти в ней 4,5-страничный пример и оценить уровень авторов как программистов. |
