ࡱ>  Vv !"#%&'()*+-.W012345?789:;<=>/@ABCDEFGHIJKLMNOPQRSTUrXjZ[\]^_`abcdefghiklmnopqsztuwxy{|}~Root Entry Fړ+[,.Workbook3_VBA_PROJECT_CUR"`mSa{2a{2VBA`mSa{2M~a{2  \pdellYSTEM Ba= ThisWorkbook=xKx< 8Y@"1Y[SO1Y[SO1Y[SO1Y[SO1Y[SO1Y[SO1Y[SO1 Y[SO1$Y[SO1Y[SO1 Y[SO1Y[SO1.YTimes New Roman1Y[SO1YўSO1Y[SO1YўSO1YўSO1 Y[SO1Y[SO1YNSeLwi1YNSeLwi""#,##0;""\-#,##0""#,##0;[Red]""\-#,##0""#,##0.00;""\-#,##0.00#""#,##0.00;[Red]""\-#,##0.007*2_ ""* #,##0_ ;_ ""* \-#,##0_ ;_ ""* "-"_ ;_ @_ .))_ * #,##0_ ;_ * \-#,##0_ ;_ * "-"_ ;_ @_ ?,:_ ""* #,##0.00_ ;_ ""* \-#,##0.00_ ;_ ""* "-"??_ ;_ @_ 6+1_ * #,##0.00_ ;_ * \-#,##0.00_ ;_ * "-"??_ ;_ @_ \$#,##0_);\(\$#,##0\)\$#,##0_);[Red]\(\$#,##0\) \$#,##0.00_);\(\$#,##0.00\)% \$#,##0.00_);[Red]\(\$#,##0.00\)A[DBNum1][$-804]yyyy"t^"m"g"d"e" 0.00_ 0.00_);[Red]\(0.00\)0.000_);[Red]\(0.000\)0.00;[Red]0.00                  , * + )         1<  !  8@ @  1<@ @  8@ @    (  8@ @  8@ @ 1 ( 8@ @ 1<@ @ <@ @    !8@  1   1!<     8  1| -    x@@  x @  8@ @ "  !8@@  !8@  !8@  !8  !8 8@ @  8@  8@  8@ @  8@ 8@  !8 @  !8  !8  8@  8 @  <@@  < @  8@ @ 8@ @  8@@  8 @  8@  8  8@  8  `Sheet12Sheet2VV8;2-USMO Ty 7'`+R 7*NN^4ё 7_Rt^g 7,gg(WLNpe 7 Ng(WLNpe 7USMO3ub49 7*NN3ub49 7 Ng3ub49;` 7,gg3ub49;` 7SOUSMO3ub 7vz  77bS'`( 7SR]\Oe 7e6eё 749T;` 76eё 7eS z^ 7le 7!jgeN Naf9eJJI555OP);;;D 6"&666666666666666628bdL4V4444V42&&&>@<d           7  ?   *{Gz?C  SeQ15MOb18MOpeu OQ1&ZSXUxX'Yf['YN-NN-Nbb!hؚ-NLؚR-N\f[evbJSev Q1IleSeVeυe~>T\eׂe]_eXe^OegeneOevte}veW[eT<\eT(KQePeΞePPedOerueؚq\eb\ye4leNaNe~eofeg\KQ\[eWe\eNlOee^gedbekWSeNlOe!/Oe? fenfs|eTX TKQe`eLN\[+RKQeOWee)nKQe_feO[eՈVeNeTXTX\ere&O%fekTe]es]eWeYM|NX /  Q17usYS?  N_eQ @x @xD )|QS -Q^QN7bSQN7bSS/noNXTYM|NXTe aQ(WLNXTeSO(WLNXT~O(WLNXT~y{VYleQ(WLNXT~y{VQleQ(WLNXT{kN(WLNXTQV[E\(WLNXTdRRT T(WLNXTL(WLNXT(WLNXTSQ(WLNXT Nf[(WLNXTR9eRYe(WLNXT1Y*(WLNXTlQ~y{VY(WLNXT~y{VQlQ(WLlOck8^yOyrk]ycMROVucMROvQNcMRON!k'`OO  Sheet1   3  dMbP?_*+%"??NXU>@7 Sheet2 ThisWorkbook $d__SRP_4 __SRP_5ySheet1 6LM  !"#$%&'()*+,./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijlmnopqrstuvwxyz{|}~heet1.Cells(j, 4)) = sAac002 Then 'Trim(Sheet1.Cells(j, 2)) = sAac003 Andn Sheet1.Cells(i, 18) = Trim(Sheet1.Cells(i, 18)) + "" + CStr(j) + "е֤ظ;"" sErr = "false" End If Next End If i = i + 1 Wend If sErr <> "" Then MsgBox "ļд֤ͬĶм¼ô" + vbCrLf + "ϸϢοTеļ˵", vbCritical + vbOKOnly, "ļʾ" Cancel = True End IfEnd Sub''''Private Sub Workbook_Open()>'' Application.CommandBars.Add(Name:="HLInfo").Visible = Truel'' Set HlCBar = Application.CommandBars("HLInfo").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=1)'' ''End Sub''8''Private Sub Workbook_SheetActivate(ByVal Sh As Object)'' ''End Sub]]]]' '''" " (%*$&(ɾд) " (%*$& " (,* " (%*$&' "sAac003 = Trim(Sheet1.Cells(i, 2)) $ " $ (%*$& ;&Trim(Sheet1.Cells(j, 2)) = sAac003 And " (%*$& $X е֤ظ; " (,*false' kk " '" 2ļд֤ͬĶм¼ô . ϸϢοSеļ˵ 0 2 ļʾA@,'k@o80Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2'''Dim HlCBar As CommandButton P.A2 Sub _ Activ ()qEndBeforeClj(Cancel>Boolean% 'MsgBox "test') XsAacK؁Sng 3YEr9 i Long, js A! 3AE i6WhiTrim(Sheet1.Cells(i, 1)) <> "(`д)If 4" TY ,YaeqY @HP X  4K` K 2 D ( guV iN#<Q&)A_@"+F09 OJq|x09 OJq|Q&)A_@"+ME,SLSS6""L<0<4<8<<<N0{00020819-0000-0000-C000-000000000046} `Dk@T""4i ` 2i `xefor`tlean` psgBo`"l `$`hing %X % %@pH`80P(&.02,@d d@xT @D @4 @$ @ @ @  @ @ @` dvx8 *@ .```@ @ @ @ @ 9@x @0h @HX @H 999`99999@D 999p`0@XT(M$*\Rffff*055b963d58$*\Rffff*045b963d43*\R1*#e4*\R1*#1c8*\R0*#f*\R0*#e*\R0*#1*\R0*#1444V & ( (0 X ` p :x    "8 ` h      B 4 *P 4 6 $ j t ( ( H ` x     h    $ D r     >  "  (0 @HP X  4K` K 2 D ( LL0V      <(     ''Dim HlCBar As CommandBarButton2''!''Private Sub Workbook_Activate()'' ''End Sub''3Private Sub Workbook_BeforeClose(Cancel As Boolean) 'MsgBox "test" Dim sAac002 As String Dim sAac003 As String Dim sErr As String Dim i As Long, j As Long sErr = "" sAac002 = "" sAac003 = "" i = 6< While Trim(Sheet1.Cells(i, 1)) <> "(ɾд)". If Trim(Sheet1.Cells(i, 4)) <> "" Then$ Sheet1.Cells(i, 18) = "". sAac002 = Trim(Sheet1.Cells(i, 4))/ 'sAac003 = Trim(Sheet1.Cells(i, 2)) For j = 6 To i - 1d If Trim(SrU   y )9 1 #4Y ` CpCxCt qlKlliT%(4%d$ d :]@d6PKlliT%(4%d$ d :]@d6;2lliT%(4%:%d$ ddDlliT%(4%d$ d `1xd6hlld;LlhiT%(4%d$ d lxF]3d6/lli%(h%lliT%(4%d$ d :lhF:%$ )d6 Cp hfIllql$ lp=<'':T N  *#D *F /D6 80xtp0 Dd4XrU @,`T#nrU @,`L,A`I  4: 8@<`<$] , 8b0 h p x  K    "K  .K   .K P  X 4` :x 8 < <  $] H P ,X 8b     K    "K  .K@ p  .Kx   4 : 8 < <0 p $]x   , 8b   ( K@ `h "Kp .K .K  :40">H$BpN0i (  0 @H>P O4O(H`33@$SC$S(P 2Xx 22       ( 8 X h x 6 0  0 @ 4P 0 : 4 0 4H  6 : , @ X h x  JM  4JP X@` h20(` h2p<1   <(8 B  @ H h p @ *  LRh    (&8` h p "   "(P X*`.   0H,P .* *@p x ԶʧҵոӦ2]h ǰѡ] ǰѡ]! ˽ɷѱ''] Ӧɿ]]]FP 6!H': 6!J'<G{y&1|?'> ˽ɷѱ : 6пʼи|kӦɷܶIndividualPay = 0'IndividualPay = Sheet1.Cells(Rowsel, 7)!Sheet1.Cells(Rowsel, 13) = "0.00"If Val(IndividualPay) <> 0 ThenA Sheet1.Cells(Rowsel, 8) = Format(IndividualPay / 100, "0.00")End If)ѡе9ҲΪͳУӦɷ < $  )=V Ch#<9$bA!;m FN"L<0<4<8<<<N0{00020820-0000-0000-C000-000000000046} 4X`Tk@L)6 `,2 %`:t`<p`>h`@h``"\`BT`DL@` @b @d ,V` H>> ili `n `p `r`t`bxP%X%(%( @X H  6x %@h< (*&LNP@8 @ ( @8 @P @ @ @ @ @ @X @ @ @( @@t @d @pT @D @4 @$ @H @p @ @ @0 @x @` @ @ @ @ @` | @x F@8t (FPP@`p x8a@l `a`k@h |@d |@ ` 8@\ H  @RL @H @8 @( @ @  @ @ @0 @ VX^h,@ @T @fx t b,@ d &W nip@T PXP@PHM*\R1*#1c8$*\Rffff*045b963d43*\R0*#f*\R0*#13*\R0*#12*\R0*#21*\R0*#19*\R0*#144H "   (@Xx      * ( 0 H .` ( & H ( 08h BBH <"< 2 K Kn8 n 88sX   8 H2P hpx2  ,8b   K8 X` "Kh .K .K : (%*$& ְ : (%*$& ְ : (%*$&ʧҵרԱǩ : (%* $L : (,*Kǿո : (%*$L : (,*Kȫǿո : (%*$N : (%*ũҵ : (,*d : (%*$& : (%*$&d : (%*X 2015-2-28X$P d : (%*X2016-5-1X$P y&1|?'>2 ˽ɷѱd : (%*X 2016-4-30X$P d : (%*X2017-1-1X$P e{Gzt?'>2 ˽ɷѱd : (%*X 2016-12-31X$P e~jth?'>2 ˽ɷѱdH{Gz?'>1 ˽ɷѱk d~jth?'>. ˽ɷѱk : (%* >0.00$ : (,*d : (,*kkd : (,*k`kX&ѡе11ΪͳУ㲹˽ <  : (%*$& ְ'B'D " : " (%*$&yk " (%*$&X B " (%*$&X 'B<d8 D " (%*$&X 'D<k D : (,* B :  (,* B D : (,* : (%*$N : (%*X : (%*X : (,*d8 : (%* : (,*kk&ѡе12ΪͳУ㲹˽ < : (%*$& ְ'B'D " : " (%*$&yHk@ " (%*$&X B " (%*$&X 'B<d D " (%*$&X 'D<k D : (,* B :  (,* B D : (,* : (%*$N : (%*X : (%*X : (,*d : (%* : (,*kk&ѡе15ΪͳУ㲹˽ < : (%*$& ְ'B'D " : " (%*$&yk " (%*$&X B " (%*$&X 'B<d D " (%*$&X 'D<kPH D : (,* B :  (,* B D : (,* : (%*$N : (%*X : (%*X : (,*d : (%* : (,*kXkP&ѡе15ΪͳУ㲹˽ < : (%*$& ְ'B'D " : " (%*$&yk " (%*$&X B " (%*$&X 'B<d0 D " (%*$&X 'D<k D :  (,* B : (,* B D : (,* : (%*$N : (%*X : (%*X :  (,*d : (%* :  (,*kkõԱ'R :'" " (%*$$N : (%*$& ְ : (%*$& ְ : (%*$&ʧҵרԱǩ " (%*$V'T T T$N T$XX ^ " (%*!Z(\ T " (,*d` T " (,*k@ " (%* " (%*$'R " (%*e " (%*$'Rd δ˵Ա " (,*k R Ů " (,* R e " (,*k k 'õͬɷnd = 0yf = 0stjf = 0'Sheet1.Cells(I, 11) = "" I = RowselIf IsNumeric(Mid(Sheet1.Cells(I, 6), 1, 4)) = True And Mid(Sheet1.Cells(I, 9), 1, 4) = "2001" And Trim(Sheet1.Cells(Rowsel, 1)) <> "ְ" And Trim(Sheet1.Cells(Rowsel, 1)) <> "ְ" And Trim(Sheet1.Cells(Rowsel, 1)) <> "ʧҵרԱǩ" Then 'жϲαڵ·/ If Mid(Sheet1.Cells(I, 9), 7, 1) = "-" Then* yf = Mid(Sheet1.Cells(I, 9), 6, 1) Else* yf = Mid(Sheet1.Cells(I, 9), 6, 2) End If- If CStr(yf) = "5" Or CStr(yf) = "05" Then* nd = Mid(Sheet1.Cells(I, 6), 1, 4)3 If Mid(Sheet1.Cells(I, 6), 7, 1) = "-" Then. yf = Mid(Sheet1.Cells(I, 6), 6, 1) Else. yf = Mid(Sheet1.Cells(I, 6), 6, 2) End If0 If (nd * 12 + yf) < (2001 * 12 + 5) Then3 stjf = (2001 * 12 + 5) - (nd * 12 + yf)& Sheet1.Cells(I, 11) = stjf End If End IfEnd If]](]@'b'd : < (%*$&ԱظA(ɾд) :  b db b (%*$&(ɾд)xd b (%*$& b (%*$&'` f b f (%*$& b (%*$& f (%*$& b (%*$& ` fX еԱϢظ '`k ` b (,*dp&Ա֤ԱΪա b (,*k( d 'd b 'bkkk|F h!jA@,oX֤λУ麯15λ뷵18λº:18λǷȷȷԭ򷵻""$볤Ȳ1518λ""]]10X98765432D 'n  D'p]] ]8 lж15λ֤Ч-------1ȫΪ l$N:15λ֤Ϊ'Vzk-------2·ݲܴ12 l $$X :²ܴ12'Vz k-------3ڲܴ31 l $$X :ڲܴ31'Vzd l$19 l $X'r b r t r b $ b$p 't t 't r t$n'Vzk le l$'rd#:֤λֻΪ15λ18λ'Vzxkp b r t r b $ b$p 't t 't r t$n'V l t$n l$X!:֤һλУ'Vd l'VkxiphAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 P Sub Works_SelectionChange(ByVal Target As R ) 'Զʧո Ӧ-Dim RowselLong 'ǰѡ Col 6IndividualRSQ>Dou '7ɷѱF(PayCurrency i' ibsjeACtA6On Erro@r GoToTXrap;=J.9 8umn L6= 0.h007) 5 fER< 6 ThenR6пʼЁB Exitu End IfA'Ak AܶBo N@#'.@Cells(<, 7BR13)OA7Cf ( ) <> 07 R8Format / 100, " g 'O9ҲΪУK#.f710 AA)Trim(s)"ڀְ"A"%-1 %nרԱ"(''`1dReceU' "")5`ǿո b 'ȫ SIf IsNum@cS9i`a @5"Oũҵ𻧿I$a$00E"!dA`Y" ]1E<$DD@iff("d*C'9 , "2015-2-28>"ImZ_ , aI 6-5-1! w!mG}ם/&4-30/t1M-7-1/? /^5^?!=/_)X12-3<`Ac, 3Q  ǯe.01%vu[ ߲.dr}Al`0Ag9) * TIi Of"4t IONIpUs11asMs˽0:'s3oJqNow*?Ҙvr& il o- 3(OZi7rdY0?WACDbl(OD) >0 j0 b+Y?6'( hb$M ͆ H$Next%y{/#!#7q Ol - 1rQӡGπ#2R Q 4Q ?3)o5ocs%Ku6266l1466 l6C @366&6 -6u" 626-6 en bs je = 0+ CDbl(Trim(Sheet1.Cells(i, 17))) 'Eltse t #͂ Pnd IfRNext  Rowselk$ - 1(M3)*If IsNumericC2= True ThZ~43'3))c 6#]E 'ѡе15ΪͳУ㲹@ @GC olSelN17< A@JI"ְ0"HLB= >0%A`DFor i6 To Cx3#֯ " Exit @GAE>@06v*?R?`{C!Im(O@mmm 1m) 1dmm Kmm2mm m­<2 amk m m 0m??A$?w@}'m qh+ !SS7Ֆ@[Aߟm6\ߣm 0O lO7Bc24nJ_n3 "K:?? t?? "ʧҵרԱǩp$ sCardgetCheckCo|deOv! "r)FaRight(: aXx".F0ont.= vbRed A2012C9*t! Len915jG"!, !54n87# kE0?"δ˵-" Mod 2P UsCŮP1G "п 9'9ͬɷ: 'yf stj'Ip1!"'I%='0 ?=&"63=76=.9"200131?r?9z<= 7Do While k <= M =LkG;I  #Exit Do Else:2:<> "" A&4M!gd^""For L6 T>oEN *L, *=u(0 0 W5#F7+ ""CStr(L)A@"еAϢABENextSGJ=19C%O S A"A/֤#ΪաqE`#1 ukO- Loopg% }`Sub rrTrap:cMsgBox Err.Descriptioa Public Funca getCheckCode(ByVal sfID As String)G '%λУ麯15*18λ<+ AǷȷ!ԭԂ"1'Ȳ15> NCAstrJiaoYanVariandOintQup= Array("1", "0X98765432" e 7, 90, 5, 08, 4`, 6, 3,  Temp-6DEInteger!kcLen&(Am15'жa<'B`Чan'-1ȫΪHG IsNumeric Fa@L! VB: a v`U6sQ 2·ݑA4@'29 Right(Leftˢ )Q\ >oW w¿ @ 3E3*J 2 31D {  M| 7,= 6) & "19"`c*`4D1QxMW0xR-tr)? %9+ PMid(t,|+t 1) C(k~Om =xModpm&K(~O. !C1s>817[wO!:gBλ֒uQ;A[! ,S OO`t oi#mpP -\DһwzEK}U4!#F __SRP_2Y!__SRP_3Sheet2_VBA_PROJECT- 0nY 4<V f#xME (SLSS<8N0{00020820-0000-0000-C000-000000000046} 4@)6`l2 %h%XhhM "  rU p'  )Yy  I1Y ) i 9   ) A y  q  41aY` W0 l xKCxa<"qt5<xa<"qp5<y&1|?thltUlp lti(%(%8$ 8< :]<'lti%(t%$ TD D:4]<$'lti%(%$  :]<')86lti(%( %oToLk%8$ 88Blti(%( %8$ 8< 85<lti%( %$ ltit%(4%lti(%( %8$ 8<HHk%$ )86<0ilti%(%lti(%( %8$ 8<%$ )85< :(Lltq\l\i(%(%8$ 8<(<  4lti%(%$ T T:d]F/|85<O:(]<< '  :]<'T6H%l\i(%(%8$ 8<=C86<3l\i(%(% @8$ 883l\i(%(% @8$ 88@l\i(%(%8$ 8<(]385<nSl\i(%(%8$ 8<(< L86<8@l\i(%(%8$ 8<(]385<Sl\i(%(%8$ 8<(< L86<82l\i(%(%:%8$ 88L((<(]32l\i(%(%:%8$ 88L((<(]32l\i(%(%:%8$ 88 (( ((Mlti(%lpi%8$ 8< :]386<>lt< M<J @(%8$ 8< : ]386<<5 @(%8$ 8< :]< @(%$ T T:]|F< &86<(H0 dTtxL`|8H<TD$>0 X  4PophAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomizD2 P Sub Works_SelectionChange(ByVal Targe@t As R ) End ay (*\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.5#0#C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWow64\stdole2.tlb#OLE Automation2*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 9.0 Object Library  MV ThisWorkbook055b963d58ThisWorkbookiN Sheet1045b963d43) Sheet1Ch/= Sheet2035b963d42w Sheet2f0P0uBL@u֨ OL2]>N74uK7^ȫ0GHd. Excel+` VBA`Win16~`Win32`Mac`VBA6#` VBAProject`stdole``Officeu` ThisWorkbook|` _Evaluate`Workbook_BeforeSave l`SaveAsUI`Cancel`sAac002`sAac003`sErro`i``ja`Trim@` Sheet1`Cells`MsgBoxR`vbCrLf` vbCritical+}`vbOKOnly`Worksheet_SelectionChange4`TargetF`Range `Rowselj`ColSel]`IndividualRate<` IndividualPay`bsje_`tsje`ErrTrap`Row`Columni`Replacef` IsNumeric$*`DateDiff`xb_`sCards` getCheckCode`Right `FontU`Color2F`vbRedG/`cf_msgj`kb`E\`Lc`Erro` Description `sfIDm` strJiaoYanxB`intQuanB`strTempM`intTemp?` Sheet2`Workbookk` Worksheet`SelectionChangen`_Defaultj` _B_var_TrimmT` _B_var_Format` _B_var_xbw` _B_var_Midp` _B_var_sCard`` _B_var_Right9`_B_var_L ` BeforeSave``) w 60* pHd VBAProject4@j = r M J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\SysW ow64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE11\MSO.DLL#P 9.0 Ob Li`braryMdirb!__SRP_0 k __SRP_1PROJECTwmSV Thirkb@ookGTAisWrPkbo 2 HB1yB,!iN"B +B}Sheet1GS@#eYt1H2NM/Ch22227fB9K*yrU~~~~~~~~~~~~~~~~B dzGON΄ a  a  y )) 9 VBAProject ThisWorkbookSheet1Sheet2FFC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA A i0F:C:\Program Files (x86)\Microsoft Office\OFFICE11\EXCEL.EXEExcel i@0FC:\Windows\SysWow64\stdole2.tlbstdole PL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice a!`F9$bA!;m FN