ࡱ> E ; !8#$%&'()6+,-./012345"79:<G=>?@ABCDFHJIKRoot Entry F5L_&Workbook2_VBA_PROJECT_CUR"6_5L_VBA6_I_ !"#$%&'()*+,-./01345789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdfghijklmopqrstuvwxyz{|}~ 6=ET_Cxp i Xlij 3Cٺ{b\95 j$-=:DĚĶSd ?Xj:$ 4Sf)>밙IAeH׳f+c>zzyx$R+Ty3ӛ@T\}{ XTYy (ɀ ƔS>]E;ۻ9P>tw  y \q$.N_*+4%O,%/.,&.&'EM{4`7Sbz&%l#]6W\u8_$Hb!dyv@ +͍< 0B'08RfcC( "A6 YtśK`>"Eh7ZB+ O؎m,n11ƿFnq}Q?()i1k]XO EX[ 1C^hw U3kv %׎(15 Vo/p0S&ەmwۮ1tLĮF ՁMOq=l1&q旤$'I4 T-DR1SKJUzX ]K\~r1.R"aI0nRӗbda]vEC”=ytLi:^*ʟ1.F+sON*ZHfv Xn'G򲸫] 1.20U~u o*4oRnJ߰WdSx18x< #z{1.cYVl99mhMPU5 )y)A(5 1Zd(aPʓ`Z;x(kȣK'ʁv˹kr'!kQ #M3"gA`&b"o=VQwBIc'P\߱ V'۱Ðu=fs^җ~\%( X\c.7h}`Dcq³rc"T.iOj>Ƚnʹ-J.eό8g+($!i0'F/=x#Zě?o4 K>],_), s9]T&bA6$6loA7͋U~ġ:ӏ泋 6E ڧ1ӡ|M oz|TDF Izo 8-X7.T  t0ԬA!Xx@tQhC  `u (0iezpb3 4a笺̜^RFwY@2pWbs*]&,XjZHr=Tguwh )rc>-_ROv4A:QF}(|(%Ҙ<?ߞ( ?Cuǹ͐u,1v9~ XH>-i&1= ̂a/);'դDZP0SbS'OdDgn"RZAtF~}}ۅkvPk004+p 1_OK=/z7 `011o g`pr1qPF;S&CyմhwZrՂ{VbEvvn`HEلZ eyg* Xz!, }rX@ک,T o[70Pҥ8}ЈOPǏ2=\eɪOqƦ!9H.N#"UoL r9F\#Vd)bς=b 02wMڭCj0vk< /q̨R׉}MPV>C,r󕋤8ifc{l-*mt}Ҳ'p44Q&BJDbQ*E(&:b!bpW>@XkPHci5xkd斥?clĦgIddEE|D#)ОE(rOs]#+ͥ"F0G_M4a ؒho|ΩPq ̝C3uC>]xVW'h`/9RJ]~z }@Y%g8\\{ɷ23d~Ep/ )5&[-(y6O@0cT 0NUZeQY5Dp#Vbߗ҅<'15fHVP{{DEm.}ғ=vs/%t%ԓ g~{|RM` Gz B fN25`60[7ʕE1Z[OdH}\ d"t:~Rf,$yfh+Sk#mȸH;xA1 IswiDzcz4, 7G H˖ޙ4mƾRt/(BG `I͑ew]"8zϒ,sak M^"`㩸`߬x/|ȋD0H]ۜ/F6<ahTnm[arc))ͫ[6kE7a"͛t!kw\I'ÀA?vHvAIJK&W(mCԬE0sM& 絛\ P߿;}LuQ >.ꀖ#wR׬$8̆c;%:2}UMGfIg`e " q- O$iγM3c?{ZRƲ2cBcp3ﴮrֲPsqy}lhۋ)gWYcU_(>k..FdոҀyD2פʌr*fǻɝ8__q8`ښs3n"R?.]s:k}[1KvՙnR?Z/_ iߘjvLh_KMH= .ik`]B:|YR؊fcWu= o! '4;i-Z(l'-qsZ#D,P\U9acLΰA"*'L^W>P3WP 3mI-|>鍄Gw-DL_/mgCU\ {lt6>0/x10= ء$b,9>d=47Miry2*WϧQҦՅ]7F>dņr`!;9ُ$q7UP>D}VG/Uq4`z>zRϜӀ<%L$6AMu*#`*ö WƨgVVx/6l1ϷٵPn0&e))4L:+rK'蓥$!ݣb gdHd.{tr ; ,#"#4P򬯳a8lЃrQ;ȥF$4AF]d>d|/Ÿ2p+?h1|σgnn ݍqc9Xg:Qb u_jC$߆>ק8ņS?0l\e<cDr6 G~hھJ ~ATO0ʆN|{H.;:QYqh"F 5e?=xru{e^Dl6`K\mt#4hPL0m%s_Rggc v ۟& s$>+D,Sw6D7.1 c 螺X_OK(D۰류12߃{~"?Ž!(zKs,S=Kݣ@tЄl0Fm>- hXkmFniWMTMvV_]3ez5ʰn!p?Cp*7ޕ om(Y#s GAriNǘ`m@#IAlC۾ i]'iA~ (~GL>R 힟+|iKbp9q(=U;Vh% ck'86Q U^pzCOHU>&?y+MwXĽ>|nROd !Wi ( 82T65n6#Q"HxcKj `J!@ .222^q[i* =qM.#[ m/4mc0,c.jɒ - (ɀ 7*-"|pt  c-];hA_@*2+ }{w%w߂XńMm\G9C>֑̱;re8 uC4-P)w`]Y@ ;J"0!Jp<V/(>qB6}&\Mc5+K,!!lP,TQNƥ4| 4c<ζHpBڱ~Њǵy M]ΖdR;F~#y!?_{hwia6*\N {VjiͱͶU褋g8B[8NU>1/O՝Eȕ㲀q DKʓ0t#x[X9vx}#Kt?Ζef<^N<?7UzH0|<,-L/hmA&xGE2K^g?r?gdҦhM~LpJ TUP=I*P6ė:RRX+gB#B]n6Ukad25_#jx+_gO+>x@AU+dB /4Qf[,YvϏ-Ѳ[?0 +PV{ƿۣlf2kMA>uYu2]'0t6nw/-8kE?o BK^T^ȃFu ʈ9]|ƇgKf#7v0Xt+-r_rm}S^^ߣ&X|0c넛zR{ 8A 1 n lNG@uj ģcSd@ bLEF7Hx7p O_Nt:ˆ&ཾ_Uþ/'f~(A*n&]5P  !F7. MBn8&j00 I}^.V-&*ʘ>)]T iXEr *A =W)lZL2Ftng5{]7K0Z-/#{2;29:EXh7={/5Em-u*SiQ>2Iqt@"a<9ub9W-1~g\Mc=U0њ\ Jnu2*^lRN#x;m*bO 8;N KGl+)$9^Cō99OoE:C/:kvΏ#M =uQO@^? e6@7߅*^_05fș%iq](}|L[ ظS7i{5ِ|%RI\.FG4^o|'c<.u*MZNt(?Ib":-ԑjv]K{Kgdyu)?+Nvv{k$Ü)MPXw;%] {O$Tv#N$H0H5GWI4+ԑvReХ?i^"wݿ!Mʶ }0 4jdPlp>nz lOkxjT@(~?2h6CC:940% (- ";aE^#׾(|?u;JPA*#y28 y\b}˝ elF0"/Qjy:ECIR.2nT(^*ԧgՀLpcᣂ\/8 ,Z *fEi w@贸SK ?P4D/ϏJsS߽iW˗BdGY4IOU2q3 P޾`PHPs'PB+^S:ƈ a9#aǾj5^\畵Tͯ*'#ig*MJl{5?JCUs@浾3' 6^edX/*٬fXm }W“oM Lag}*PQO$*l{.הrUou뼾hS2alnQ}N۰a?F$ i_dB*g-P,._*3=l3Gt%иZZcX]9!ݪ|8 -zdQ#GAנ;:0J<!STXXfsD̀4&_) ⴥ%pAuzzke*S[*7tJbHM4b7v 2av(@4iO %p/a+^b#ӊ dN=XYҕ3+1c{,X)d{) lJ=ᙞ/x< gvs6wkfA; SLfGoݾOZNBE/܌l@19GV;rWRd3<>\#G MP!dR= !WwqY(_{{[djrnbq,5qpu y2l pEuԿK' (@~(*I=!G)˃ S !|I[K'@8d(ݥ)u# ?T폺S-L {̗aphp;ݽ#5T17^o%W@12rb[8ݡ)Mr-! CE* jT5')h|ݝ<%Β4YKSJ.,ء F+0t/:o[cvg#9uFͿfEv|LmrV4{ Y~i9a6aqxZ+_7@[;Eh(8IS.oѾn]{2h=hXp,QWJZ" dUXUyD_ -y|8Z zo2p[^7tΘKi}( zbTO*;j޹!8^A%(:,̙gc6׀(~ )'ƲUM QRČj.pg&so^D@kw` ֡G=72`ڊ0|qrw&vq駀XOuϾ+]L|6-Ow3^Chиu;zm.rHA4s#^\F jJF#:$T8KICewmD/ S4"j62 #뇊iG)?-F8BjQK ,uJnCz @qc\b< ©E8rTmϧgDy}<@RKu;+>CEQܨqK^b8MDG;8F]3 ՘ˠ C9{o7و0uYMw ]&J'UsM0`sW!F)x5a 7.fra LHlUIT f?'w]~ ߡ<1 eM=~ CLϢ O4"V||T} ZcFS-!jUNra%c<ϝmpgfP|;k Y#A<mM;t ugpRY,. "8]6菀LaYk@Sx_!9^hH \ L.Kb- නTZcoͰ>j ezP4jbH# 1UއZ ~ `a 4 - Wc(kfHݔ&nWZ- M(_\;E>mGh !+KJv$q d,Õi͗<[: Of ǟ&pa~3A`dٛb1nTgaOmY:7 +0E ϑaи`>TX姠DFZ7Zb6Q  =}2O6Kz MOMGOxvQFlH q80Re+ٝh2X m4Qr t`yXCiYLI|&s2+Q:U<+eqR*!WG I2 \4t{c௣I h?9dȑ֩ 0ɒ:ґdVQEyÜ"A )}@=C.IhKڙG$\og'OF^)Gx8}H _͡܎N80W/]\ r+iF3UeWɊ:=3 :#`niI /|N j ˟w]CL] by{h*}T0u+f/l= `bEvJyúk w ڰe]Ovhy w[kp! uN6 LnӇh{F "LGP :Hxmng) } ˵t^3I3 g6\ $~|9ϙ]D9d !0nt'fɛ-1?C'baqU&; g" ˘ Q~ZT}Պk $≉ ^94jdb8Dn$E3?"cg ,ը~ `F"e&PCYUz܈MeTx ZF.I ӾW 'x.iZœ> e4XpR?^_׏t V/ I'Nx p} 3R}ؑN9* D>hžsrBo@E.VEJ&Ů "Oq5|\VSo󲊋%GBu:gG08w!9j1F]}攳g{']0{pzv&5tWk(d`:*0bhQ˜TQSơ&,_'_! vE/x @zZ1#[O={X~$ C_\8d=pUdsҙHnE8a2 [.Z_NPDٜ6ƹsV, HhľqDD j u9*ͱ~a cG7kqRFy(3fRw*9r `6=>=KC84J813 s)3|fڢQ^o%ZkdAF5E>D#.~vM%+D`Kx*9cod2>ot#!+@@<` ?v{G{cu'ILb93m$GOݘ-VheUIÔJ@U1ThC;XA\CM}lc.z-Yk~g۬2S agc>{? JX* ThisWorkbook Sheet1 Module4*,+__SRP_2 Z'm-#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}@(%H@0'BxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2'm#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}@(%H@0'BxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 *    'd  *  '$ $ '0 0number_to_be_rounded = 1 8    'dXnumber_to_be_rounded = 2 8  'kkk 'i Macro1 Macro$ Macro recorded 3/5/2003 by Boer1Dan]]](]@]X]p]]]]]]]'  '   '" '8  '   '* *5?  *  'number_to_be_rounded = 3d8 *55? number_to_be_rounded = 4  *    'd  *  '$ $ '0 0number_to_be_rounded = 1 8    'd(number_to_be_rounded = 2 8  'kkk ':i0 Macro1 Macro$ Macro recorded 3/5/2003 by Boer1Dan]]]]]]] ]8]P]h]]]'  '   '" '8  '   '* *5?  *  'number_to_be_rounded = 3d *55? number_to_be_rounded = 4  *    'd  *  '$ $ '0 0number_to_be_rounded = 1 8    'dnumber_to_be_rounded = 2 8  'kkk '<ip Macro1 Macro$ Macro recorded 3/5/2003 by Boer1Dan](]@]X]p]]]]]]]]0]H'  '   '" '8  '   '* *5?  *  'number_to_be_rounded = 3d *55? number_to_be_rounded = 4  *    'd`  *  '$ $ '0 0number_to_be_rounded = 1 8    'dnumber_to_be_rounded = 2 8  'kxkpkh '>i@8سAttribute VB_Name = "Module4" Function mndot_rounding_3(number_ to_be.ed As Doub@le) ' Macro1  record^3/5/2003 by Boer1Dan& Dim posi{cInteger &onight"two_r"digit4q 0/remainDftest_if_0evenGis2_hodʊtrate_J*as_sngSB(of_decimal~n`= 3 GS=qz+ 1 Go 2!hold7= sD4ʪ Q@* (10 ^)@D x - eRIf-< 0.49 TheM R.= -) / ' `<aElse . >501u4 A!!Lt!) +%&:)eO$䊠!S 10$ '= Aj)m:gQU8|U9AhI}t>99{}9!5 ,?  ? _{ End If$5u_͂_U`edZ{/%2/!//ro///c&/_^/%6 J/t#cz/on_h _gw@ /o /^g//r$/n!= p5/)/s/)!+P,//$ <dT66/ yg/AA // Y S3/4o h /?3/{K!/d)T ?j>/k /;B/od5//--0Z(/A)/< z Q number_to_be_rounded = Int(hold_| * (10 ^ position `)) /@ End8 If #' @ mndoti0ng_2 +9Func  "1(! As Double)' Mac8ro1  recor3/5/2003 by Boer1DanDim1@eger oBnighttwo_rdigitς WDKremaina"LL3test_if_eveFn#i$ R "mxME(6 << < `H+@ 33i`j` h-7W`"fal`$dBIT`&b9ۆ`(`sd`*X`,V`.xT`0R`2P`4`L`6J :0`  333i`` `"`$`&`(`*`,`.`0`2`4`6 <`+p 33fi`j` h`"f`$d`&b`(P``*X`,V`.T`0R`2P`4L`6J >`  33i`` `"`$`&`(`*`,`.`0`2`4`60%8hpP Ph@<l xP@88 @( @ @ @ @0 m T@ f_de@ GS=Ph8 @ P 8  @l : TM @88 erJ@ ( _͂@h  //@  ?@ c @ o@ O@ ,/`'B$*\Rffff*054aaf729cB    *( X`hpx      08P p  6$ (8 @:G` &/      (B  0 8 @ *X   (08P `h   68@Xh p: &  (0 8@ H PXB ` h p *   (0 8 H X `h    6$0hp  :G  &/( P  X ` h  p x   B    *         ( 0 8 @ H P X ` h x           ( @ 6`      : 0 8 &X            Macro1 Macro$ Macro recorded 3/5/2003 by Boer1Dan]`]x]]]]]]] ]8]P]h]'  ' n  '" '8  '   '* *5?  *  'number_to_be_rounded = 3dh *55? number_to_be_rounded = 4 s_4o$ddtrwateEm T*as_str*SB(of_decim501iu>4 !!Lt!) +ฝ:)eO$?䊠̠SMopd 10$ '= Aj)m:gQU8|UTM&9 Ã/erJJOn< Ye? _͂_UZ/-0ϯ///ro///r/l pˋ?6M/u#c /ѩ/g/'w@ /o /g//r$6 /'OpR/s/d+ ;P,//t dT B/ yg/A@RI::/?v Sq= /4o h /?3/((!Sp\/T ?j>/k /;B/Њp/  /number_to_be_rounded = Int(hold_ * (10 ^ position )) /@ +>H Else!'26̀BEnd8 If ' @ mndoti0ng_0_ Func rU~| ppj kjph kjpf k(8 kjϳtXoX5?woX kj϶ZoX55?$oX kj϶ kj϶XoX pd kdpRkR%G8 kjk( kjk kj϶kB5V/8 kjk( kjkB k(l p0lL80   ppj kjph kjpf k(8 kjϳtXoX5?woX kj϶ZoX55?$oX kj϶ kj϶XoX pd kdpRkR%G8 kjk( kjk kj϶kB5V/8 kjk( kjkB k(l p0lL80   \rU (`a+(`a+(`a+(`a+nas  *\G{000204EF-0000-0000-C000-000000000046}#4.0#__SRP_3 2_VBA_PROJECT6 dire+__SRP_0n9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.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.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 9.0 Object Library  'BmThisWorkbook014aaf729cThisWorkbook-- Sheet1024aaf729c Sheet1-Module4054aaf729cModule40"P0G,oJhzD;P[b= H?&ۧ(Iw9J oHBR3B*0"#) Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`Officeu ThisWorkbook| _Evaluate Sheet1 Module4e(mndot_rounding_3bnumber_to_be_rounded<position_to_be_rounded#~position_one_right~position_two_right86digit_to_rounddigit_one_right digit_two_rightnumber_remaining_to_rightposition_test_if_evendigit_test_if_even is_it_odd>truncate_numbernumber_as_stringsposition_of_decimal& hold_numberM(mndot_rounding_2b(mndot_rounding_1b(mndot_rounding_0b_B_var_hold_numberk/Workbookk Worksheet`    6'0* pHd VBAProject4@j = r 'B 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\@10\MSO.DLL# 9.0 Ob LibraryJmThisWorkbooPkGTisWrkTbo 2E HB1x-B,!-"B+B|Sheet1*GS@#eXth1H2N Module4G;hduB42OM9!)C9K*srU~~~~~~o T(AZ:y    a Ap) ) VBAProject ThisWorkbookSheet1Module4F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i0F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel 9a@0FC:\WINDOWS\system32\stdole2.tlbstdole IqPL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`mndot_rounding_3mndot_rounding_2mndot_rounding_1mndot_rounding_0 4rU number_to_be_roundedmThisWorkbookThisWorkbookSheet1Sheet1Module4Module4ID="{3C0BC1E2-8813-4426-B301-9D5F1F2B4FF1}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Module4 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000"__SRP_1 fPROJECTwmVPROJECT SummaryInformation( CMG="DEDC1355F3ADEBB1EBB1EBB1EBB1" DPB="DAD81759125A125A12" GC="D6D41B5DEBA5E6A6E6A619" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=88, 92, 825, 554, Sheet1=22, 23, 759, 485, Sheet2=44, 46, 781, 508, Sheet3=66, 69, 803, 531, Module4=0, 0, 609, 462, Oh+'0HPd|  Line1DavBruce ChadbournMicrosoft Excel@E\@UM@_՜.+,D՜.+, PXh px MNDOT READAFT_calculation  WorksheetsP =EDM_Links_Updated DocumentSummaryInformation8lCompObjf FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q