ࡱ> $#  !"-I&'()*+,BP/01234>6789:;<=.?@ACDEFGHJKLMNOQWRSTUVXYZRoot Entry F @N($%@:WorkbookA_VBA_PROJECT_CUR" ԧ#0#VBAק## \pYaeV Ba= ThisWorkbook=xx;J<X@"1Calibri1Calibri1Calibri1Calibri1Calibri1 Calibri1Calibri14Calibri1 Calibri14Calibri18Calibri1>Calibri1Calibri1<Calibri1?Calibri1 Calibri1Calibri1h8Cambria1,8Calibri18Calibri1Calibri "S/."\ #,##0;"S/."\ \-#,##0% "S/."\ #,##0;[Red]"S/."\ \-#,##0&!"S/."\ #,##0.00;"S/."\ \-#,##0.00+&"S/."\ #,##0.00;[Red]"S/."\ \-#,##0.00C*>_ "S/."\ * #,##0_ ;_ "S/."\ * \-#,##0_ ;_ "S/."\ * "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ K,F_ "S/."\ * #,##0.00_ ;_ "S/."\ * \-#,##0.00_ ;_ "S/."\ * "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ "S/."#,##0;"S/."\-#,##0!"S/."#,##0;[Red]"S/."\-#,##0""S/."#,##0.00;"S/."\-#,##0.00'""S/."#,##0.00;[Red]"S/."\-#,##0.00=8_ "S/."* #,##0_ ;_ "S/."* \-#,##0_ ;_ "S/."* "-"_ ;_ @_ E@_ "S/."* #,##0.00_ ;_ "S/."* \-#,##0.00_ ;_ "S/."* "-"??_ ;_ @_ +" "#,##0;" "\-#,##05" "#,##0;[Red]" "\-#,##07" "#,##0.00;" "\-#,##0.00A" "#,##0.00;[Red]" "\-#,##0.00i2_ " "* #,##0_ ;_ " "* \-#,##0_ ;_ " "* "-"_ ;_ @_ y:_ " "* #,##0.00_ ;_ " "* \-#,##0.00_ ;_ " "* "-"??_ ;_ @_ 3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_->_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-                                                           ff  `                   + )                P  P    a>  @  @ ||@239}-} _ _-}-} _ _-}-} _ _-}-} _ _-}-} _ _-}-} _ _-}-} _ _-}-} _ _-}-} _ _-}-}  _ _-}-}  _ _-}-}  _ _-}-}  _ _-}-}  _ _-}-} _ _-}-} _ _-}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef#0.0}A} _ _-ef #0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L#0.0}A} _ _-L #0.0}A} _ _-23#0.0}A} _ _-23#0.0}A} _ _-23#0.0}A} _ _-23#0.0}A}  _ _-23#0.0}A}! _ _-23 #0.0}A}" a_ _-#0.0}}# }_ _-#0.0-;_-?\ _ @_-@ }}$ _ _-#0.0???-;_-????\ _ ???@_-@ ???}A}% }_ _-#0.0}-}& _ _-}A}' _ _-#0.0}A}( _ _-#0.0}A}) _ _-#0.0}A}* _ _-#0.0}A}+ _ _-#0.0}A}, _ _- #0.0}}- ??v_ _-̙#0.0-;_-?\ _ @_-@ }A}. _ _-#0.0}-}/ _ _-}-}0 _ _-}-}1 _ _-}-}2 _ _-}A}3 e_ _-#0.0}}4 _ _-#0.0-;_-?\ _ @_-@ }-}5 _ _-}}6 ???_ _-#0.0???-;_-????\ _ ???@_-@ ???}-}7 _ _-}-}8 _ _-}-}9 _ _-}A}: _ _-#0.0}A}; _ _-?#0.0}A}< _ _-23#0.0}U}= _ _-#0.0-;_-}-}> _ _-}-}? _ _-20% - nfasis1O20% - nfasis1 ef %20% - nfasis2O"20% - nfasis2 ef %20% - nfasis3O&20% - nfasis3 ef %20% - nfasis4O*20% - nfasis4 ef %20% - nfasis5O.20% - nfasis5 ef %20% - nfasis6O220% - nfasis6  ef %40% - nfasis1O40% - nfasis1 L %40% - nfasis2O#40% - nfasis2 L湸 %40% - nfasis3O'40% - nfasis3 L %40% - nfasis4O+40% - nfasis4 L %40% - nfasis5O/40% - nfasis5 L %40% - nfasis6O340% - nfasis6  Lմ %60% - nfasis1O 60% - nfasis1 23 %60% - nfasis2O$60% - nfasis2 23ٗ %60% - nfasis3O(60% - nfasis3 23֚ %60% - nfasis4O,60% - nfasis4 23 % 60% - nfasis5O060% - nfasis5 23 %!60% - nfasis6O460% - nfasis6  23 % "Buena=Buena  a% #ClculoyClculo  }% $Celda de comprobacinCelda de comprobacin  %????????? ???%Celda vinculadaSCelda vinculada }%& Encabezado 4? Encabezado 4 I}% 'nfasis1Cnfasis1 O % (nfasis2C!nfasis2 PM % )nfasis3C%nfasis3 Y % *nfasis4C)nfasis4 d % +nfasis5C-nfasis5 K % ,nfasis6C1nfasis6  F % -EntradayEntrada ̙ ??v% . IncorrectoG Incorrecto  %/&Millares0. Millares [0]1"Moneda2* Moneda [0] 3NeutralANeutral  e%3Normal % 4Notasd Notas  5* Porcentual 6SalidawSalida  ???%????????? ???7Texto de advertenciaO Texto de advertencia %8Texto explicativoI5Texto explicativo % 9Ttulo3Ttulo I}% :Ttulo 1ETtulo 1 I}%O ;Ttulo 2ETtulo 2 I}%? <Ttulo 3ETtulo 3 I}%23 =TotalMTotal %OOXTableStyleMedium9PivotStyleLight16` 5Hoja1 ^>Hoja2 ?Hoja3"3 num_letrasccB4c =_MA  v==  dMbP?_*+%,&ffffff?'ffffff?(?)?MzCanon iP1800 series ߁ 4dA4BJDM 0Rt,T`Op,T`OpRt,TT`Op,TT,TT`OpXX' d Rt RtH 3 Rt Canon iP1800 series ߁ 4dA4.D" d333333?333333?&<3U } m >} >} $>} m >,?>@Hoja1ggD  p?  dMbP?_*+%,&ffffff?'ffffff?(?)?",333333?333333?&<3U >@Hoja2ggD  A  dMbP?_*+%,&ffffff?'ffffff?(?)?",333333?333333?&<3U >@Hoja3ggD ThisWorkbook Hoja1  Hoja2  Hoja3 0 !"#$%&'()*+,-./123456789:;<=>?ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrtvwxyz{|}~/8#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}H(%H0(8hAL xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2/#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8hAL xAttribute VB_Name = "Hoj a1" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2/C5#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8hAL xAttribute VB_Name = "Hoj a2" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2/l#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}H(%H0(8hAL xAttribute VB_Name = "Hoj a3" Basp0{0002`0820- C$0046} |GlobalSpacFalse CreatablPredeclaIdTru BExposeTemplateDeriv$BustomizD2Mdulo1 5'__SRP_2@ __SRP_3sy_VBA_PROJECTu KT $CIENTO'$KT $ QUINIENTOS'$KT $ SETECIENTOS'$ KT $ NOVECIENTOS'$S@ $ $,'$n      $CIENTOS '$d $ '$kkx   ' kH*---> Decenas de Milln    @B $ @B$,'$ $ MILLONES '$  @B@B ' d $  $,'$   '  @B $ Y '$kkk*---> Unidades de Milln   @B @B $ UN MILLN '$dx $ @B$,'$ $ MILLONES '$k8  @B@B ' k*---> Centenas de Millar @B        $ CIEN MIL '$d` KT $CIENTO'$KT $ QUINIENTOS'$KT $ SETECIENTOS'$ KT $ NOVECIENTOS'$S $ $,'$n      $CIENTOS '$d $ MIL '$kk   ' k*---> Decenas de Millar   '  $ $,'$ $ MIL '$   ' d $ ' $,'$  '' '   $ Y '$d $ MIL '$khk`kX*---> Unidades de Millar '    $UN'$d $ $,'$k $ MIL '$   ' k*---> Centenas   c  d  dd   $CIEN '$d dKT $CIENTO'$KT $ QUINIENTOS'$KT $ SETECIENTOS'$ KT $ NOVECIENTOS'$S@ $ d$,'$n d d d d  $CIENTOS '$d $ '$kk  dd ' kX *---> Decenas d     $ $,'$   ' d $   $,'$     '  Gz? $ Y '$k`kXkP*---> Unidades   Gz?  $ $,'$   ' k *---> Decimales (  $ CON '$ $ (d00$/100  *'$ $'zHk@ $ CON 00/100  *'i NUEVO SOLES '*DOLARES AMERICANOS '*Attribute VB_Name = "Mdulo1" 'Autor de la modificacion: Gustavo A. Sebastiani @Cpedap Trujillo - Peru$Excelparacontadores@hotmail.com Funct_ num_le tras( erhs Doubl e, Op As Integer) Sng ` Dim :޺xME(6 < <H+`H@i  `i"`$t`&@r `(h ,,[0%hAL $*\Rffff*064dc79a07*\R0*#f < @ &X B         0H`x 8Ph(@ H hD6       ( 0 H P p x   `L ( @ H X`"h      "(P $X "     (  @` h  "  B4  `x            (  H  `LP        "  ( H h         "    (  8  P  X  p x            8 X ` x <*            (  0  H  P  p  x       X@   8 @ PX`     $ ( H ` x "   ( 82ZP   6Autor de la modificacion: Gustavo A. Sebastiani Cpeda Trujillo - Peru Excelparacontadores@hotmail.com]]]   '( '  "RTRTS'*n]ZCERO+,UNO+,DOS+,TRES+,CUATRO+,CINCO+,SEIS+,SIETE+,OCHO+,NUEVE +,JDIEZ +,ONCE +,DOCE +,TRECE +,CATORCE+,QUINCE+,VEINTE+,TREINTA+,CUARENTA(+, CINCUENTA2+,SESENTA<+,SETENTAF+,OCHENTAP+,NOVENTAZ+,_*---> Centenas de Milln ʚ;      @B  $CIEN MILLONES '$Jd  H uboCe{vosBooleandecimaLle 4  =IC-:J) N= Select CaseIW Is0` monNUEVO SOLXES 1DOLARAME@RICANO Else $EndCrNumbs(90@0CERO1))A)UN2DOjS 3T(4CUAT5(INCI6BSE I7IETEE8BOCH9S 1C5DIEZ15ONC 6K67ATOfR 7QU7I2C"VEIN 33kNA)4ORhENTI5D@UE6SES 7T 8) DBNOVDo  '*---> ienasAM}iIf v< 10`N`R %>=G) The{E/) - (*()  a=& "CIEN MILLONsam ~C'ߢ|T]i}5k Q Tun7@!So!9I*%,T4 <> AUX|]]_6AI' 0 Ifm6=) 6CDecB BaoBB_0@M>6E% 6G)$"?BDJ@ _ A / / q,T`2900_ " zYO(d O(?$ UnidadpOgw^ 7 &gg~ /$!$ %bb UbN ?/?'@'yh_(^ar_<r<~.0)e~?~ 7~_q5}&EB 2}s"}aÿ} "}$ 2}? "}4˿}O "}J000X)sCAq(/" "_}6Q/}|| 0|df" agoi+: e@ղro - (In@t(nume/ 10) *H End If,'*---> Decenas de Millar:If <A|*>=,) Then4b8) C6 (,letr{= (& Ns))c:" MIL " = a0Else7U0_( XD)F0w  >EY EO7hTɐ ėUnidade <) Зb"UNȇ:yɣ=dRTDWCent?ACU@DIcv,* 99)Nm) )D ?fV CI ENQ/0Select Case 7,bb1tTO L5& "QUIN@TOSq7`SETE9NOV)"UAN#2!M3 < F57VS"d,hAp?y% ,x# > x8ov uov?s78'?}&ENnl=R rE~> 0.99a " rO Enz R?:/E Loop til = 'imales q'dec 0I  " CO\Forma t(, "00") L/0& moneda _ Exit Functio `r 00 A'rU~| 0y )Q 1Y) Y ) Y 9 i I 9 q 9Y d  th `pf kf; :DTz kfT :DTz kfm :DTz :DT,;,;,;,;,; ,; ,; ,; ,; ,; ,; ,; ,; ,;,;,;,;,;(,;2,;<,;F,;P,;Z,; ʚ;҃ S6 ȃ 쳯@B- lt*1t5 t o [ lt*1t o v lt*1t o  lt*1t o  lt *1tlt ,*1tL ̓ ă ă  % lt!*1t3 lt"*1t 쳯  ҃ % @Blt @B,*1t lt#*1t @B@B쳯 #lt ,*1t 쳯  @B! lt$*1t ҃ @B @Bf lt%*1tlt @B,*1t lt#*1t @B@B쳯  @B҃ 14 ȃ 쳯  lt&*1t t o9 lt*1t oT lt*1t oo lt*1t o  lt *1tlt ,*1tL ̓ ă ă   lt!*1t lt'*1t 쳯  ҃ ' lt ,*1t lt(*1t 볯 lt ' ,*1t ''볯  lt$*1t lt(*1t '҃ } = lt)*1tWlt ,*1t lt(*1t 볯  ҃ c* dȃ dd볯 lt**1t dt o lt*1tb o lt*1tb o. lt*1tb o I lt *1tblt d,*1t@ d̓ dă dă d  lt!*1t lt"*1t dd볯  d҃ v ! lt ,*1t 篈 t lt ,*1t 볯  Gz?r lt$*1t ҃ Gz? lt ,*1t 篈   oh> lt+*1tZltF:,Nohdk -:.T`1t6 ltCxlt/*FT`1x6 d \5DxtT,[$krU ,`ay+&na ( (*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.6#0#C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE#Microsoft Excel 12.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.4#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLL#Microsoft Office 12.0 Object Library  hAL ThisWorkbook014dc79a06ThisWorkbook85 Hoja1024dc79a06 Hoja15 Hoja2034dc79a06 Hoja2C505 Hoja3044dc79a06 Hoja3lH5Mdulo1064dc79a07Mdulo1޺`x`H0)3 G2u܉;=έDœ~n]stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-dirY__SRP_0__SRP_1 nPROJECTwmw5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE12\MSO.DLL#P 1t Ob LibraryN׈ThisWorkbookGTisWrkbo* 2  HB1y5B,!8"%B+BAHoPja1GHj@a12ScS2K2%H2K2cC5US3K3H3K3)dlK@QMPduloOjuoP2&7o6޺R!@ c6bK*rU~~~~~~~k FׁtGʧ   (   ) AA pY) 9 VBAProject ThisWorkbookHoja1Hoja2Hoja3Mdulo1F /C:\PROGRA~2\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA q 0F:C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXEExcel i@0FC:\Windows\SysWOW64\stdole2.tlbstdole PL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice a!` num_letras  NUEVO SOLES &DOLARES AMERICANOS  EUROS   CERO UNO DOS TRES CUATRO CINCO SEIS SIETE OCHO NUEVE DIEZ ONCE DOCE TRECE CATORCE QUINCE VEINTE TREINTA CUARENTA CINCUENTA SESENTA SETENTA OCHENTA NOVENTA CIEN MILLONES  CIENTO QUINIENTOS SETECIENTOS NOVECIENTOS CIENTOS     MILLONES   Y   UN MILLN  CIEN MIL  MIL  MIL  UN CIEN  CON  00 /100   CON 00/100 VBE6.DLL  rU numeroOpcionnThisWorkbookThisWorkbookHoja1Hoja1Hoja2Hoja2Hoja3Hoja3Mdulo1Mdulo1ID="{9010D2B1-F8E3-4F93-9767-7A4D2015FAA4}" Document=ThisWorkbook/&H00000000 Document=Hoja1/&H00000000 Document=Hoja2/&H00000000 Document=Hoja3/&H00000000 Module=Mdulo1 Name="VBAProjectPROJECT;SummaryInformation(DocumentSummaryInformation8CompObj{" HelpContextID="0" VersionCompatible32="393222000" CMG="BDBF71ACBFD7C3D7C3D7C3D7C3" DPB="E4E6289568BD69BD69BD" GC="0B09C7F2EFF3EFF310" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=44, 58, 686, 509, C Hoja1=66, 87, 995, 566, C Hoja2=0, 0, 0, 0, C Hoja3=0, 0, 0, 0, C Mdulo1=107, -7, 714, 440, Oh+'0@H\l  CONTADORYaeVMicrosoft Excel@ƖZ@yɧ#՜.+,0 PXh px TREBOL Hoja1Hoja2Hoja3 Hojas de clculo F/Hoja de clculo de Microsoft Office Excel 2003Biff8Excel.Sheet.89q