ࡱ>  Oa !#$.&'()*+,-:0123456789";<=>?@ABCDEFGHIJKLMP]QRSTUVWXYZ[\^`_bcRoot Entry FFɢhON$Workbook4_VBA_PROJECT_CUR"r[rVBArЇLr \pdellYSTEM Ba= ThisWorkbook=xKx< 8Y@"1[SO1[SO1[SO1[SO1[SO1[SO1[SO1 [SO1$[SO1[SO1 [SO1.Times New Roman1[SO1ўSO1[SO1ўSO1ўSO1 [SO1 NSeLwi1NSeLwi1[SO1[SO1[SO""#,##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@ @    8@ @ 1<@ @ <@ @ 18   1 (  !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@  !8@    x@@  x @  1  1!<    8 1| -  `<Sheet13Sheet2VV8_/-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 Naf9e>>? /!&////////////////6 8bdL44444444442&&&>@<d             7  ?      *{Gz?K  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 1|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  u4  dMbP?_*+%"??NXU>@7 Sheet2 ThisWorkbook %Sheet1 /xE__SRP_2__SRP_3  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKMNOPQRSTVWXYZ[\]^_`abcdefghjkmopqrstuwxy{|}~te 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 ,YaeqYh      B 4 *P 4 6 $ j t ( ( H ` x     h    ǰѡ]! ˽ɷѱ''] Ӧɿ]]]FP 6!H': 6!J'<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ҲΪͳУӦɷ <  : (%*$& ְ : (%*$& ְ : (%*$&ʧҵרԱǩ : (%* $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 : (%*X 2016-12-31X$P e{Gzt?'>2 ˽ɷѱd : (%*X 2016-12-31X$P e~jth?'>2 ˽ɷѱdH{Gz?'>1 ˽ɷѱk d~jth?'>. ˽ɷѱk : (%* >0.00$ : (,*V iN#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8 @""i `i ``` `"`$ %(M4V & ( (0 X ` p :x    "8 ` h      B 4 *P 4 6 $ j t ( ( H ` x     h    $ D r     >  "  (0 @HPX  4`    ( L0V     (     ''Dim HlCBar As CommandBarButton''!''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(Sheet1.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@o80Attribud : (,*kkd : (,*k`kX&ѡе11ΪͳУ㲹˽ <  : (%*$& ְ'B'D " : " (%*$&yk " (%*$&X B " (%*$&X 'B<d8 D " (%*$&X 'D<k D : (,* B :  (,* B D8 Q5V Ch#<ZidOƋS F3VADpdx3VADpdZidOƋSME PSLSS086"<<<N0{00020820-0000-0000-C000-000000000046} 4X`@L)6` %`:`<`>`@'`"`B(`D@` @b @d ,V`H>>ili `n `p `rʧ`th`bxP%X%(%PXP@PHM*\R1*#1c8$*\Rffff*045c20b70e4H "   (@Xx     * ( 0 H .` ( & H ( 08h BBH "   n8 p 88X   8 HP hpx  ,8   8 X` "h . .  @`<$ , 80 h p x     "  .   . P X ` x   <  $ H P ,X 8        "  .@ p  .x       <0 p $x   , 8   ( @ `h "p . . 0"H$pN0 (  0@HP 4(`$$(P Xx        ( 8 X h x 6 0  0 @ 4P 0 : 4 0 4H  6 : , @ X h xJ  4P X@`h2(`hp<   (8 B @ H h p @ *  LRh    (&8` h p "   "(P X*`.   0H,P .* *@p x ԶʧҵոӦ]h ǰѡ] : (,* : (%*$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/12-3Oo O0^5<^!=OIX ~<ac- 3Q  e.01%v[ ҂.r}Bl0Bh9) * Uii߅ Of"Tt IONIus11sms͸˽P:Gs3pjNow*򘖈g& il@oq%- 3(oZi7dZ0WACDbl(OD) >0 j0 b+Y?6'( ibDM  H$pNextEy/#!#7q Ol - 1rQ֣G#2R Q 4Q 3)$o5cs%u62)66l1466 6C @ԏ366&6 -6u" 626-6Then bsje = 0+ CDbl(Trim(Sheet1.Cells(i, 17)))'Else t # Pnd IfRNext  Rowselk$ - 1g(&3)*If IsNumeXricC2= True Z~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 K?mm)fmϹm m­<2 a;mk m m 0m??A$?w@}'m qh+ !SS7Ֆ@[Aߟm6\m 0O lO7B)4nJ_n߲3 "K:?? t?? "ʧרԱǩpA$sCardgetCheckCodeOv! "r)FaRight(u aXx".`Font.= vbRed A2012C9*t! Lens15jG"!,z !54݃87# kE0?"δ-" Mod 2P UCŮP1 "п 9'9ɷʎ: 'yf Qstj'Ip1!"'I%='0 ?=&"63=o6=.9"200131?r?9z<= 7Do While k <= M LkG;I #Exit Do Else :2:<> "" AL&4M!d^""AFor L6 ToEN *L, *=u(0 0 W5#F7+ ""CStr(L)@"е!AϢABENextSGJ=19C%/O SA"A/֤#ΪաqE`#61ukO- Loop% }`Sub rrTrap:cMsgBox Err.Descriptioa Public Funca getCheckCode(ByVal sfID As String)G '%λУ麯15*18λ+ AǷȷL!ԭ"1'Ȳ15 NCAstrJiaoYanVariandOintQup= Array("1", "0X987654r32" e 7, 90, 5, 8, 4`, 6, 3,  Temp-6DEIntegezr!kcLen(Am15`'жa<'BЧ an'-1ȫ G  IsNumeric Fa@L! VB: a v`U6sQ 2·ݑA@'29 Right(Le,ft )Q\ >oW w¿ 3@ 3E3*J 2 31D { 7 | 7,= 6) & "19"`c*`4D17QxW0xR-tr) %9@+ Mid(t,|+ 1) C(k~Om =Modpm&K(~O. !C1s>8s17[wO!:gBλuQ;A[! ,S OO`t ?oi#mpߔP -\DһwzEK}U4!#F rU 04!aI` W4PrU @,`L,A`I0nSheet2_VBA_PROJECT dirL__SRP_0 U4<V f#xME (SLSS<8N0{00020820-0000-0000-C000-000000000046} 4@)6` %h%XhhM "  ophAttribute 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:\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 9.0 Object Library  MV ThisWorkbook015c20b70aThisWorkbookiN Sheet1045c20b70e) Sheet1ChW5 Sheet2035c20b70aw Sheet2f0P0S8G}LN3`|FIULA:EF$ H0=>, 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` Worksheet`SelectionChangen``) w 60* pHd VBAProject4@j = r M J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#M 9 .0 Ob LibraryJ"V ThisWorkbookG TisWrkbo 2 (HB1xXB,!iTN"B+B|S@heet1GS@#eXt1MH2NW5Ch222$2fB9K*yrU~~~~~~l ]D@tfJ  i ) ) VBAProject ThisWorkbookSheet1Sheet2F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i`F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 9ap0FC:\Windows\system32\stdole2.tlbstdole IqL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice aFZidOƋS F3VADpdDF WorksheetWorksheet_SelectionChangeFF getCheckCode @rU~~{  ! TargetsfIDfThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2ID="{7E1BB9C9-3E38-48A2-9ABA-83E93B87BC5A}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H000__SRP_1iPROJECTwmlSPROJECT nSummaryInformation(v00000 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D4D6CD3B750B790B790B790B79" DPB="A8AAB1C2B2C2B2C2" GC="7C7E6543ED16EE16EEE9" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=44, 44, 492, 411, C Sheet1=154, 154, 341, 506, Z Sheet2=66, 66, 936, 544, C Oh+'0HP\p sjy MC SYSTEMMicrosoft Excel@ w@ʴN`@r՜.+,D՜.+,( PX|  ԶϢɷ޹˾ Sheet1Sheet2  DocumentSummaryInformation8zCompObjj    #/;GS_kw IVID412511E1 IVID145012D5 IVID3A371DE6 IVIDF7F15E5 IVID1D661207 IVID1C4414FF IVID44211301 IVIDCE71841 IVID3C3F16F5 IVID2A3017D0 IVID1E2918E2 IVID3D1F10E2 IVID177A18F7 IVID2E4517F9 IVID412D1BE1 IVID354E13E3 IVID290F1605 IVID2F681803 IVIDA1D15F8 IVID28525235 IVID387716FE IVID2CB5D99F FMicrosoft Office Excel Biff8Excel.Sheet.89q