ࡱ>    [\+ !"#$%&'()*,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXYZif^_`abcdWgjslmnopqretu~wxyz{|}hRoot Entry F Workbook_VBA_PROJECT_CUR"·VBApx \pludal Ba=-B0=830=xxL;"8X@"1" Arial Cyr1" Arial Cyr1" Arial Cyr1" Arial Cyr1" Arial Cyr/#,##0"@.";\-#,##0"@."9#,##0"@.";[Red]\-#,##0"@.";#,##0.00"@.";\-#,##0.00"@."E #,##0.00"@.";[Red]\-#,##0.00"@."k*3_-* #,##0"@."_-;\-* #,##0"@."_-;_-* "-""@."_-;_-@_-k)3_-* #,##0_@_._-;\-* #,##0_@_._-;_-* "-"_@_._-;_-@_-{,;_-* #,##0.00"@."_-;\-* #,##0.00"@."_-;_-* "-"??"@."_-;_-@_-{+;_-* #,##0.00_@_._-;\-* #,##0.00_@_._-;_-* "-"??_@_._-;_-@_- #,##0.00"@." #,##0.00_@_.                , *  + ) `8AB1"cc    dMbP?_*+%MFhp psc 700 series!@h߀ dBe4 d Beںںhp psc 700 seriesseries,LocalOnly,DrvConvert" d??U>@7 8AB1 -B0=830__SRP_4 0__SRP_5 B8AB1   !"#$%&'()*+,./02456789:;<=?@ABCDEFGHIKLMNOPQRSTUVWXYZ[\]^_`acefghijklnopqrsuvwxy{<jxB#<nPDJאqFItIEc6fdxItIEc6fdnPDJאqME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@TT0B$*\Rffff*0542f68acc4 xpAttribute VB_Name = ""  Bas|0{00020819-u 0C$0046} |GlobalSpacAFalse dCreatablPredeclaIdTru B@ExposeTemplateD0eriv$Bus`tomizD2O@ption /licit rU 0#4!aI`rU @n<jxB,#< γKdm3` F=1Dvl@x=1Dvl@ γKdm3`ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HH0B$*\Rffff*0642f68acc4 xpAttribute VB_Name = " 1" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2Option /licit rU 4)Q__SRP_6-__SRP_7 1BSumInWords G__SRP_2]`rU @nrU 8`  AYq RUR0`  (` (` (!`Rffff*0242f7a9bd*\R1*#1c84*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#f*\R0*#15*\R0*#13  NP% 4$ `X& 8 & f' \& % % d' \% 0% >h( j'B $#l$$$$$# <p & \ .H  >( ,xB h#### . !  . (  ! 8  P')kB[xMEP> 8<<x%%0%`DJ8`Bn%`8t`8ti" +P `@k 11H%`JHFRUR``x@0 %%%`(rX`Bd+ `0Dk y`Jn`Dl`Bd h`8t%`Bd`B` i" i" H`Jn%`bXpiT bDl+``@@k00h`Xp `Dl%`8t`Jn`Dl`Dt+ `0B  @ (8@  .Hx  $    $(0P  h         0 P`x  ( >0 B p  x       .    "  8 p Xhp $      @ (h 8    pX ( ( >@ B        .     P   H @  x $  h        `           0 (  @ 8 X ( B P0 B     .  H @ Xh  p     0 H8  0h   @ H XP p x   ( 0 H h P  X  `       0  H       h  p  x   8  ` BX      P   h  p  x      Hh 8    (  0  8     (        ( 0 H P h p  xh )xih" . Td0k( 8'8, Td]x @kz "'"' "dd'(]p( () HndKT ( '8KT '8,KTk BKT '8KT B '8XKT '8KT KTKT " " h '8 '8 '8() ( )]P(n " ( 'B '8 '8KT 8'8HKT 8'8KT 8'8KTKTKTKT 8'8 8'8 8'8 8'8KT KT KT KT 8'8 KT KTKT 8'8 8'8 8 '8KTKTKT 8 '8 8 '8 8 '8KTKTz 8 '8 8 '8 8 '8 8 '8Hd 8 '8 B  'D DnKTKT(KT ]8 8 '8< ( ) = 20 Case 8 '82KT<KTFKT 8 '8 8 '8 8 '8 8 '8 ResuPKTZKT 8 '8 Res 8 '8` B D 'Jm ]nKTKT J 8'8'8 8'88KT 8'84 KT 8'8 & "KT 8'8 Case KT 8'8 ResKT 8'8 KT 8'8ult KT 8'8 S "'"A@N i" . 8'8 k Tdk T7 - , . =< - , .ult = ]'Prue zk 8'8m Unitdx 8'8tys = kXI - (True - , False - , ). " "?B  Resu Jn]0k] X ( () ]k "'XKT 8$Z'e X X   'Jt = 8 '8su'8k 8 '8suKKKT 8 '8 1 Resu " X 'Bect 8 B$'8Re X Xdd 'D] ( )d0k( 8 '8 a D D  0 " .8 - , .Mi "'" Caxs " "ɚ;  2, 3'` Ez k ( () M]'8 "@B'b]0 8$Z'`X b X$'8,]  b b   'J ( )]8 b bdd 'Dj D D  8 '8d( JKT 8 '8KKKTodoY 8$Z'P S b$P'8 n k k  7]P 8$Z' " b@B 'B"i0  Aȱ 8 '8 p- 8 '8?)}o 8 B$P'8*_ B B $ " .8 - , . 8 '8'fzk( () ]'8] "ʚ;'p p p$`'8]0 p p   'J ( )]h p pdd 'D D D  8 '8d JKT 8 '8KKKT-S0 8 '8nkk  ]p]] B 8 B$`'8k 8$Z'fip " . TheX  "'"Ar( " peA 'B " "mB  "mB' x "'" " "3&k C 'zk( () ]x'8 ]X   $f'8]     'J ( )]H  dd 'D D D  8 '8d( JKT 8 '8KKKT 8 '8S 8 '8nkk ] " mB 'B B 8 B$f'8k 8$Z'i; - , .piQ "" . '] " "   'J ( )]` " "dd 'D D D d` JKT 'KKKT ' 'Snk ( ) 'R "" . ( ) " "   'J ( ) " "dd 'D D D d0 JKT 'KKKTSnki ' ' ' ' ( )] ( )] " "   'J ( )]0 " "dd 'D D D ]( 'd JKT 'KKKT 'S D D nkiS "" . ' ' " " "   'J ( ) " "dd 'DdX JKTKKKTS 'nkiP "" .(5 . iP - ().U - . "USD" - , "EUR" - , - .' - :ou& - .1 - , "  d'A@8 ( () ]'8k "  8 '8x ] 8 $'8 "' "$'"' USDk d 8 $'8 EURe 8 '8  8 $'8` k! ]0d e Res USD 8  '8 8 0 $'8 8  $'8 8 $'8 EURe 8 $'8d 8 $'8k %  lt = 8.'8 8' 8$$ 8 8 $'8" "$k#'z##i($$@$ !P$kx$zd "" , !'#RURP" !  $'mInWor- ."USD" - , "EUR" - ,. 1 - ,H _ .V () "" - . ::" "'" ('1 "".Z , . .V () "" - . :` "" - , , .8']"RUR", ( ) - ..c0, ( ) - ..(82 - ,82 - ,(0k0 8  $'8 Cd  EUR USD- h( Attribute VB_Name = "SumInWords" Option Explicit ' _ : . / /@-[1, h . @bJFĀWDl "" ? "" -  { , , 11(R) "99  B:"USD*,EURR, yAQ( AL) D F 6O6T%B@@861@ m32N$ `L _ Xu0BAÒ AA'GCPub Fu nc (ByVal C As Range, /@CS@ngq V!Integer@0)', K.Descri=P_y Gy f:\n1. J ddd.\n[2]. 6 y (""", "%Y"bO""Y")5!3 PG (0 C 1, G<FE).$ProcDataA&Invoke_;2 `4 If;.Co@unt <>Then aK0w@!b%"" p$ , r1 !$AExitS#End IfWc.g(V. Xu`VT, dP) _ԤKKK`"- (v)M-#m OIC"- ֙- qa@AbQrivaE- (CArg!@DoH!CCurrA, SKopACC"0-Not IsNumeric() K--&P&'@}l- m<n1 = RŐ5dA, 2'! A'a/@Pf(ac') PDDim Result'T=8S' ` < 0:& d7AbsBS'`{`?!sQ WholeA C= FixToQuadrhill (R[뒓"[d% !ODollarElseh"o S =u!!?p#ble;XO'pd#Fra|zt2= Q: * 1003P !6=`? " "x & E#2%,:!Right("02!#]Or  '1v (!1 ToThousand( , Trued&y 'N0nOa ;On, Fa_ !YY7'.!a .T.a Cent 1/ / q#eck/BѠ0SUCase(Left(3 ))*&5Len)01'#b<#dC'ݱ*"  {0 ` TmuSrY?#VNr'6k $DUni8tysZjDd= Q-5[ /@D)Ds'@ (Fʴ ) Dim Tens As Integer`P= Arg - Fix($/ 100) * LIf|>$ And< 20 ThenHCent = " "Else#Select Case UnitysC~1 [Y32@, 3, 49P*fEcC6If F@unctio ' ""  ". Private 4 Kopeck(ByValDouble)|StringC*' ( ‹CfCD (?2CG]DLt@֦6A!Q?T:T`TT DollarT T TmTT©5`#Tc.??d QL6T?fn&ATo_T_T| R_T_T_Ts=_T_T_T}}}"*!$$?T}3P})\e )t e~ k mF )d ~S~qz {' P q ,  ~on ToQuadri|ll`+_20{bts(D)~0JQ(<@= 0 Orr>t 9 # A08GoExitc'p (C`) ᐢ_Resultc T= " GTdLoeg={0#'N>p+ Toe($aEE _nv4)Ea'kEqn=p3)s ?aoqAı &`D h>=?ƂDH" J / %  L5599' 338ss2!3 /3k`>=E&O(1d3_ IPm0٢X[[[[U"[[f ڿڑY_[_[I[#޴ Then ToTrillion = ""pExit Funct|XEnd If ' () \Dim Result As String' ,#TMarddsWLoU= Fix(Arg / 10) If > 0 MTo(!'*MUnityKInteger =>-S.V) *Y' (  G>Ten=]00JB>@$ AB< 2 M?N& " t lseSelect Case I1I 2, 3, 4oEN6EY(KGA DG'C' aCpe"= d-ROEf~#@e}&~ fa$Tʑ m(Cg 'Š  . -@ `e#a, &S@Pri0vateiByValb$`a')'(bs&<= 0 Or> 9%Cg ?BLoϰ%?on` "ȱa忱-. $35 XX311X1XwQ3=oS #_XuXp X djHXw8XX 2 tCtXA!fX/X &Xp242 ZXXXXXXX0XnX7 WWgWg yW99WOO _OOOWw."K ThousangWD!P%7W#- =e(, Fa!/Xts/Ӳ 3XF//OXRR SoXQ/%PPJ?/X/X/X3o" bRXR]]O 6WW?AWWWWS0 |t 1 @,Ѭt, True2C?XWWW@ - h, . ' p \ (True"@, Fals )Private Function ToThousand(ByVal Arg As Long, GenderBoolean) Stri`ng 4= Abs( )IfK<= 0 O=W> 999 Then@ = ""ExitU End If' () 򀜀Dim Resu ltb' Hundreds Integ er = Fix / 100) *Select Caj CD GAD,H0 H 200 N 3W N 4W  5 P6  7 R8  9 | 4CzfC'V@ x ) "hUbU*MBt f!o- H o< 20mIOaLaCOk dkw/ae Aj=ek& `"(U%Eo rq? #a0d `ob3os 4 #u5v6w7{r8z9|1!:7 149r 12__"@)OGO(==@(OG(O "(og?)o "0)OG)O| ")_W*_ >"*OG*O "*og*o "*omia:Trim(s#4h! ' lpljh &`'2菺qTen t1)pK342=8)Q23?? "4=?4??P'54IO@6OO4_7__ PB8OO49oo4-3 0+t.+Unity+BVtݫ)I+o+ _d 8>9ne?jk xn U/Arz SOs$>B Case 4 HResu lt =  & "" ~5"~Ez6"=>7Q">|89 ~End SelectToThousa = Trhim()If Function lplp 1tlplp 볯pnlplpdd볯plkl kl lt/*1t\knpj kj lt0*1tkjkjkj  lt1*1t lt/*1tl lpqdldVltld #`*1t/`tMP@@ &@`1x5@<x,xt`@ l q l l .!Cxl ddprkrpp kpdb2Ct kpy3Ct kp,4Ct kp5Ct kp6Ct kpX7Ct kp8Ct kp 9Ct kp:Ctl krpn knknpl klok\ lt;*1tj lt<*1t[ klk lt=*1t lt>*1t[ kl lt?*1t[ kl lt@*1t[ kl ltA*1t[ kl  ltB*1t[ kl& ltC*1t[ kl@ ltD*1t[ kl Z ltE*1t[ kl t ltF*1t[ kl  ltG*1t[ kl  ltH*1t[ kl  ltI*1t[ kl ltJ*1t[ kl ltK*1t[ kl ltL*1t[ kl* ltM*1t[ klD ltN*1t[ kl[ ltO*1ttM\@L &L`1x5Lkn pJkJpH kH ltP*1tj kH ltQ*1tj kH( ltR*1tj kH2 ltS*1tj kH< ltT*1tj kHF9 ltU*1tj kHPS ltV*1tj kHZj ltW*1t knkJpFkFpD kDk lt;*1t lt<*1t kDk lt=*1t lt>*1t kD lt?*1t kD lt@*1t kD8 ltA*1t kDR ltB*1t kDl ltC*1t kD ltD*1t kD  ltE*1ttM\@L &L`1x5L 8,<xtL)%  9CxkrkrkrCxCx__SRP_33_VBA_PROJECTkddir>__SRP_0v (I` (q` (` (`( `, `nҲ0* pHd Sum_In_Words6D _@lv>;rU~|  X!!aq!!AIi y  1!QYYY)i I)  1 q  Y q  9 a  A I Q 9yA`l tlCpta`v"5`4Cx$ta`klp`B9 1x5``0xpt`lCt Md@ &Cx! Md@T  TBt 5TCP o i lP*1P o t o tHlPmH #D*1P/D lt0lPmH #D*1P/D lt 0 lP *1PlPmH #D*1P/Do oHdpB k1lP *#DkB#<*1P2D< kAlP *F kB#D*FT,  , `1P/D6T, lt 0lt0%lP *#DkB #<*1P2D<%lP *#DkB #<*1P2D< lt0lPkB9 #D*1P/DX lt 0=lPkB9 #D*1P/DXlPkB9 #D*1P/DUPMd@T  T, ,lPJPM@   `1P6T, lP*1PlPCx80xtP$D<T, o o 볯pvo o dd볯ptkt ktMCxPkvpr krmCxkrkrkrCxCx0 (x o o 볯pvo o dd볯ptkt ktMCxPkvpr krmCxkrkrkrCxCx (x o o 볯pvo o dd볯ptkt ktMCxPkvpr krmCxkrkrkrCxCx0 (x o o 볯pvo o dd볯ptkt ktMCxPkvpr krmCxkrkrkr CxCxer (x  o ߽t o o 3&k C2!CxCto mBqplp#lp9 "1tlplp 볯pnlplpdd볯plkl kl lt#*1t!\knpj kj lt$*1tkjkjkj lt%*1t lt#*1to lpmBt` o`_ltm` "#\*1t/\tML@< &<`1x5< @,xt\< o ߽t o o mB2!CxCto ʚ;qplp lp '1tlplp 볯pnlplpdd볯plkl kl lt(*1t\knpj kj lt)*1tkjkjkj  lt**1t lt(*1to lpeAqdld]ltld '#`*1t/`tMP@@ &@`1x5@ <,xt`@x l q l l ɚ;.!CxCtl @Bqplp lp +1tlplp 볯pnlplpdd볯plkl kl lt,*1t\knpj kj lt-*1tkjkjkj  lt.*1t lt,*1tl lp@BqdldTltld +#`*1t/`tMP@@ &@`1x5@<x,xt`@x l q l l ?B.!CxCtl qp   6@Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000L720B5A: O DCB= F8@U1-G)3 T;A90-!#_ !,.Do=+  Bt<stdole> stdo`e h^*\G{00020430-;C 0046}#2.0#0#C:\WINDOWS\Sys@tem32\22.tlb#OLE Automat8ion0EOfficEOfPicEE2DF8D04C-5BFA-101B-BDER5EAAC42EProgram Files\C ommonMicrosoft Shared\OFFICE11\MSO.DLL#G& 11.0 Object Library%"BB@ʀG@-Bs}83{*2 HB1BrB,"EB+Bˡ@1G h12cN,KInBGSum@InW@rmsK 2V !"kO<[!@C=, 70=8<0NI89 >4=C OG59:C! >@<0;L=> #'!_ Sum_In_WordsQqY) )Project1 VBAProject1Module1 SumInWordsF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL__SRP_1JPROJECTwmbPPROJECTd SummaryInformation(m , (). 146 _< . : 1) , , 2) ("RUR", "USD" "EUR"), 3) (0 - , 1 - , 2 - ).< . : 1) , . 2) ay *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Library l>;L7>20B5;LA:0O DC=:F8O @01>G53> ;8AB0 !#_ !,.BB-B0=8300542f68acc-B0=830 8AB10642f68acc 8AB1,SumInWords0242f7a9bdSumInWords[0kP0/ne-Ch/j?kE%:ÍG`J 8sC0iy3 AsByValCase/decimal=dimDElseEElseIfOexitRFalse_IfxLongnotOptionalThentrue Excel+0 VBA0Win160Win320Mac0VBA6#0Project1 0 stdole`0 VBAProject0 Officeu0 ]0 _Evaluate0 10Module1b0 SumInWords0 ToThousand00Argu0Workbook0 Worksheet0Hundredsh0^0 _B_var_)0 _B_var_ifP00 _B_var_0t0 _B_var_10Resultur0 _B_var_Select'E0>0 _B_var_-0K0Rest0Tensz0Au0 _B_var_R20Unityso0Test40MsgBoxR0 ToMillion"0IntegerP0Gender@00 Thousands80Trim@0 _B_var_TrimmT0 _B_var_Case0 ToMilliard],0Millions]$0Nil=0 ToTrillion0 _B_var_Long0 _B_var_DoubleB0Float0 _B_var_Float|0 Milliards0E6]0 _B_var_E60_B_var_decimala:0CLong0 _B_var_CLong 00ByValArgz0_B_var_Currency0 ToQuadrillion]0 Trillions0RoubleNK0 _B_var_Result0Dollar}N0Kopeck0Cent0InWords]0Double0Kop0Curr#0Whole@T0^0Round0^R0 _B_var_0lhjd0Fraction0Right 0 _B_var_Right90UCase5 0 _B_var_UCasea0 _B_var_LeftQ0 IsNumeric$*0޷0Range 0Val0 _B_var_Stringӊ0 ފ0000Count0v0 0_B_var_Integer0ValueK0$p0 _B_var_0 _B_var_{0(_0 Sum_In_Words\Q0`("RUR", "USD" "EUR"). 3) (0 - , 1 - , 2 - ).@ . : 1) , . 2) ("RUR", "USD" "EUR", .). 3) (0 - , 1 - , 2 - . , .).> . : 1. , . [2]. ("RUR", "USD" "EUR"). [3]. (0 - , 1 - , 2 - ).-B0=83018AB1SumInWordsSumInWordsL45AOB  H5ABL45AOB  ID="{C2A65DC7-2EC5-4899-8235-5E87F784D6F6}" Document=/&H00000000 Document=1/&H00000000 Module=SumInWords HelpFile="" Name="Sum_In_Words" HelpContextID="0" Description=" _" VersionCompatible32="393222000" CMG="CBC939700074007400740074" DPB="9694644DE4D3AED4AED4AE" GC="61639354945494AB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] =0, 0, 0, 0, C 1=0, 0, 0, 0, C SumInWords=22, 22, 579, 469, Z Oh+'0t `h,< T `l K*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~a Y kQ:LOq e i e i)a  1Y AQqY) )Project1 VBAProject1Module1 SumInWordsF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA y  `F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel qp0FC:\WINDOWS\System32\stdole2.tlbstdole L-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice aFnPDJאqFItIEc6fdDFWorkbook @F γKdm3` F=1Dvl@DF Worksheet ToThousand  =>;L AB> 425AB8 B@8AB0 G5BK@5AB0 ?OBLA>B H5ABLA>B A5<LA>B 2>A5<LA>B 452OBLA>B AB>  425AB8  B@8AB0  G5BK@5AB0  ?OBLA>B  H5ABLA>B  A5<LA>B  2>A5<LA>B  452OBLA>B  >48= 420 B@8 G5BK@5 ?OBL H5ABL A5<L 2>A5<L 452OBL 45AOBL >48==04F0BL 425=04F0BL B@8=04F0BL G5BK@=04F0BL ?OB=04F0BL H5AB=04F0BL A5<=04F0BL 2>A5<=04F0BL 452OB=04F0BL 4204F0BL  B@84F0BL  A>@>:  ?OBL45AOB  H5ABL45AOB  A5<L45AOB  2>A5<L45AOB  452O=>AB>  >48= TestVBE6.DLL S  ToMillion >4=0 425  BKAOG0   BKAOG8   BKAOG  h  ToMilliard  <8;;8>=>2   <8;;8>=   <8;;8>=0  ToTrillion  <8;;80@4>2   <8;;80@4   <8;;80@40  ToQuadrillion  B@8;;8>=>2   B@8;;8>=   B@8;;8>=0 Rouble  @C1;59 @C1;L @C1;ODollar  4>;;0@>2  4>;;0@  4>;;0@0Kopeck  :>?55:  :>?59:0  :>?59:8Cent  F5=B>2 F5=B F5=B0 8=CA  8 USD EUR 52@>   0 k X i x   RUR . 1 FF  !!!4 5@2K9 0@3C<5=B DC=:F88 "!# !,." 4>;65= A>45@60BL AAK;:C _ .ludalMicrosoft Excel@7@՜.+,D՜.+,( `ht   DocumentSummaryInformation8txCompObjzh1 P :B_PID_LINKBASEA F Microsoft Office ExcelBiff8Excel.Sheet.89q