аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ  3!" ўџџџ6#$.&'()*+,-/0124ўџџџ57=89:;<>ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РF̘*уTWЧрЮЋYЧ€OWorkbookџџџџџџџџ( _VBA_PROJECT_CUR"№SЩЋYЧрЮЋYЧVBAџџџџџџџџ№SЩЋYЧрЫЋYЧ  !"#$ўџџџ&'()*+,-./01234567ўџџџ9:;<ўџџџ>ўџџџ@ABCDEFGHIJKLMNOPQўџџџSTUўџџџWўџџџYZ[\]^_`abcdefghijўџџџlmnўџџџpўџџџrstuvwxyz{|}~€  ЭЩР‡сАСт\p Stephen Allen BАaР=гК ThisWorkbookœЏМ=x-ЬB€%<X@"Зк1ШџArial1ШџArial1ШџArial1ШџArial1 џArial"Ѓ"#,##0;\-"Ѓ"#,##0"Ѓ"#,##0;[Red]\-"Ѓ"#,##0"Ѓ"#,##0.00;\-"Ѓ"#,##0.00#"Ѓ"#,##0.00;[Red]\-"Ѓ"#,##0.005*0_-"Ѓ"* #,##0_-;\-"Ѓ"* #,##0_-;_-"Ѓ"* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-"Ѓ"* #,##0.00_-;\-"Ѓ"* #,##0.00_-;_-"Ѓ"* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р,ѕџ јР р*ѕџ јР р ѕџ јР “€џ“€џ“€џ“€џ“€џ“€џ`…ьSheet1…Sheet2…Sheet3Œ, NthNonNumСС"Оќџccв  ЭЩР Є  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?U>Ж@я7К Sheet1  ЭЩР И  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?U>Ж@я7К Sheet2  ЭЩР Ь  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?U>Ж@я7К Sheet3 Dфr€д%зџџ#ˆЖџџџџџџџџ<џџјZ§[8GIЄк›@Њ}ЌцРFQЅјT)Y РFqВh9kCh—S_*џџџџџџџџџџџџxqВh9kCh—S_*уŸсNпPzLƒ[ЂчR>YџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ8ќMVG $*\Rffff*0o47565739пџџџџ4ўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et1" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€ аi‘ЙџџџџA4сЩбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹`rU€€€ џџџџџџџџ@n__SRP_8џџџџџџџџџџџџRф__SRP_9 џџџџVBSheet2џџџџX†__SRP_aџџџџџџџџџџџџkфDфr€д%зЄџџ#ˆЖџџџџџџџџ<џџ%и>е>DЃ?Кј!=иЭ РFSтe—аbYM -Ѕѓc ZjџџџџџџџџџџџџxSтe—аbYM -Ѕѓc Zj%и>е>DЃ?Кј!=иЭџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ8ќMVG $*\Rffff*0p47565739пџџџџ4ўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et2" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€  ‘1џџџџA4сЩбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹`rU€€€ џџџџџџџџ@n__SRP_b џџџџoBSheet3џџџџџџџџџџџџq†__SRP_cџџџџџџџџџџџџ„ф__SRP_dџџџџˆBDфr€д%зz_џџ#ˆЖџџџџџџџџ<џџЏ=юw2х…O– ъ#˜чWд РFХ[ŽEgAІбaњлРmџџџџџџџџџџџџxХ[ŽEgAІбaњлРmЏ=юw2х…O– ъ#˜чWдџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџ‚ƒўџџџ…†‡ўџџџ‰ўџџџ‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋўџџџ­ЎЏАўџџџВўџџџДЕЖЗИЙКўџџџМўџџџОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ёђѓєѕўџџџїјљњћќ§ўџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџHџџџџƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ8ќMVG $*\Rffff*0q47565739пџџџџ4ўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et3" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€ 0Y‘џџџџA4сЩбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ‹`rU€€€ џџџџџџџџ@n№<дАџџџџ}н%зќГџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(DateManagementџџџџŠK__SRP_4џџџџЌ __SRP_5џџџџџџџџџџџџБpStringManipulation&џџџџџџџџџџџџ%к6 џџџџџџџџ< џџ<џџџџџџџџџџ+&џџџџ`џџџџџџџџиPџk@џџџџŒiƒ(џџџџ џџџџџџџџ€`„*xtџџџџџ`„,џџџџrџџџџџџџџџƒ џџџџџџРџџџџџџџџџџџџџџ%џџџџ0џџџџШ`џџџџџџџџ@џџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџрџџџџШџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxА`&џџџџxџџџџџд9м xм:мџџџџџџџџмџџџџџџџџ.@ўџџџџџ`џџџ џџ @ўџџџџџPџџџ џџ џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџќMVG $*\Rffff*0m47565177*\R0*#12пўЪ€x€ џџџџB €€€ џџџџ€ 4€! € 4И 0@!P`h€ џџџџ€ 6№€ џџџџpџџџџ0–]ђ`]ђx ('* *$.',w ,Ќb *Ќ '*w *$.',wЙџџ *'&iџџЭџџр-Find out the Weekday the test date representsр.If it isn't a Monday keep adding 1 until it isр0Remember to format your worksheet cell as a dateџџџџаџџџџdБAttribute VB_Name = "DateManagement" Option Explicit FuncPNextMon(DtRecvd As@ Long) Dim TestDt &MyWe ekDayIn`tegerZ+= R 'Find out thДe 5d5 tW dЏ reprDesЏs Y=-(U)LIf it isn't a €]&keep adding 1 untilƒ€_o While +<> 2  V+ 1 šALoop OЙ~'RКmber to format your worksheet celpl as€]|E€ŽШ rU€€€€~| ЩЌx€ qtџ!ѕtџM`џ@Pџ PџUprџ5Pџ krџєЫjltџѕЊqtџ!ѕtџM`џ@Pџ PџUprџ5Pџ+ltџqxџ,x$ PџkrU€€€ џџџџџџџџ(`§џџџџџџџџџџџa(nrU€€€€~|  ё a 9 Q б  p( § TџќK1tџ ltџћ~! ltџJфpjџєhџkjџўcPџє)(0џkhџчtџMTџ@ џ  џ`1pџ60џ џGlpџ є ЦУlpџ є.ЦУФlpџ є,ЦУФlpџ ѓЗЦУФlpџ ѓ ЦУФшpџMTџ@ єЦ " 'First convert ainto a s‚‡ data 0type|Y= C<|)'Check whet‚h€Sthis an error€ number€<€because`n youBv`alue D€Excel delriXs €1+‚8wаould(f1€resultsQIf‰ЛLike "E'#*" T‚hRGoTo Т Handl,Find out how long œit€6A„_= a(HDС eacˆh cРsact€Eмin‚.УW€5f@F…Lpit'sР^J€exclude fШull@eop@@# commaР4'S1@:y c@Pm parts ofУ]ringС 5 Хspacesr ‹onAN@&СNpёOentФСУSalso ""#yoftPdeemedore„ zero depend" onбhtexРQnи€vƒРAlASCIIŽd&СF€cisРуQA[ F€Kiь1Ц €i_ СZABЭ= Midˆb,р i, 1dA €hNot@ac")Ё  32 A€*_C Б46П= 4‚4П= 183п9Р60ТR IsQ€ŽerikFР1e7Œ!рN@Т+ і1' 'Рс7с:р™р posi‚›@GaФ€ЧWrequirљр;byтX@6@zA e;Ь€т-b Ї unцd@c`‘siЂMь`Match@Bс-о € @OiaЁfРˆјr a"Є+Ћ!К=ЁГN%фЌ=B…!DKA'We dРon't w`Нa]loopрy m”or —hqne€ksaryяExˆЫ@Y+E@PIfkЇwЅ#ЅN@h!cЌ.wрe got@ЁЦџA`ЂZУШ`о#žу †йƒ@E ElsрО9тTe Bс= s,om`Мсxw€ƒ wцr@ЂЯ"#ТЈрш…/УфчAщЌ:#'Iѓa:рЦca@ФAdP ,ўkрNФр+ЃЪBХCЃ?)G  +eїБШ8џџџџџџџџџџџџџџ__SRP_2 џџџџГ__SRP_3џџџџџџџџџџџџЛy_VBA_PROJECTџџџџџџџџџџџџН$dirџџџџџџџџџџџџіЕц kfџєЉpfџ kfџЦфlpџClџє hџdPџ;llџћ0У llџCxџCxџCxџ \(4xџpџtџlџ0џ џkrU€€€ џџџџџџџџ,`§џџџџџџџџџџџy™/&nШЬ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 џџџџџџќMVG џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№œдиџџџџBN%з№IџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџџџџџџџџџџџџџџџџџ<џџ<џџ<џџџџџџа8џџџџ8ƒ0џџџџџџ0џџџџџџџџџџџџџџ%+>џџџџ`џџџџџџџџџџџџ џHxџџџџEEŒiƒ:џџџџ џџ џџ˜€џџџџiƒ<џџџџџџџџџџџџ€џџџџ`„Dџџџџjџџџџџџџџџ€`„@џџџџtџџџџџ`„Zџџџџlџџџџџ`„Fџџџџhџџџџџи`„L˜pџџџџџиџџџџ@`„Xџџџџfџџџџџиџџџџ џџџџџџџџ0џџџџHџџџџ`џџџџЈџџџџџџџџ иxџџџџџџџџџџџџџџџџ №џџџџџџџџИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ Р8џџџџxџџџџџHˆ(˜(Tџџџ џџ @ўџRџџџџџ А РPџџџџ   XџџџџXVР(џџџџ@@џџџ џџ (џџџџ(0џџџ џџ ј@ўџ џџџ џџ URџџџџ2џџџџШ8џџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџќMVG $*\Rffff*0l47564f2c*\R0*#f*\R0*#f*\R0*#13@*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#fпўЪH€€ џџџџ€ џџџџB H€€€И€€x€ џџџџ€ 4P€ џџџџ 8€ џџџџ€ ,ˆ€ :а€ &€€ $Ј€ џџџџ˜€ Ш€ џџџџ ш€ џџџџ€ (ј€ € (@€ 4h€ . € $а€ 4€ $H€ $8€ џџџџ€ џџџџј)(xGИh  ˆ€ JИ€ L0€ 2€€ џџџџ ˜Ј€ 4ША Р€ џџџџ € џџџџ` € џџџџ€ $€ џџџџ8HP€ (X€(€ џџџџ€0€ :€ џџџџИ€ џџџџ€ џџџџџџџџ`Эџџxi@]ђи]ђИkzЃ\ :X '@ing–8р.First convert MyString into a string data typeр%Check whether this is an error numberan eЖ#Error'>.BрFind out how long it is @'Dр!Test each character in the stringрfor whether it's a numberр!but exclude full stops and commasр-because they can form parts of number stringsр'and exclude spaces because they confuseрthe presentation of the resultџ FўЌ D’]ђ  @ FЌ$њ'Lџџџџ€рuse ASCII codes for precisionot Akˆ L$VЗœ]ђђ@ar XЌ 'Xot < Xœchar L'ZyІ ! L$TЌ  L$TЌ. L$TЌ, L$TЌЗ L$TЌ œр FCheck whether PosN - the position of the character under considerationon1\р +Matches Pos - If so then that's your answer}{\s10]ђ№kџџИр-We don't want to loop any more than necessarysbasџџџџxџЧ€рCheck whether we got an answer ZЖœ Z'>dџџ8р"Tell the user something went wrongЖ#Error'>kџџј @ЖError #*›Gš\j worр DPos is the Nth position of the string character required by the userџџџџар.also "" is also often deemed to represent zero‰‰‰рdepending on context in Excelџџџџиџџџџ(рExcel delivers the error numberрthis would confuse the resultsр3because when you convert an error value to a stringџџџџшр4In this case the string looked looked an error valueџџџџаџџџџ‚ДAttribute VB_Nam@e = "S˜ngManipulation" Op Expl@icit Func,NthNonNum(My| As Variant, PosIntege r)J DiРm Test5 Char 1AnsŒwe9Len+[i^i‹N%зThisWorkbook0n47565739џџThisWorkbookџџкџџ Sheet10o47565739џџ Sheet1џџјђкџџ Sheet20p47565739џџ Sheet2џџЄ0кџџ Sheet30q47565739џџ Sheet3џџz_HкџџDateManagement0m47565177џџ DateManagementџџќГ`уџџ$StringManipulation0l47564f2cџџ0$StringManipulationџџ№IxTџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHa…aK4†/@’6фџдr5џџџџ&‰@іЂƒI‹Г@qЫ.gХџџџџЁэЪ‘ ešC‹Q†о1хџџџџ1#Т–ЏKЎШфђlџџџџФИЎdХ _DЕlnќ%r€џџџџosw6єЖOЙŽћжЂ!оџџџџџџџџh€.;џФ* €џasD€џelseO€џexitT€џFor^€џGoto_€џIfj€џintegerr€џLike…€џnot‹€џOPtionВ€џThenГ€џto Excel€+ VBAїтWin16С~Win32MacГВVBA6­#Project1  stdole“` VBAProjectОП Officeu ThisWorkbook|у €џ_Evaluateй Sheet1ш Sheet2щ Sheet3ъModule1b DateManagement•| WorksheetСўWorkbookkЌ(NextMonpDtRecvdуЮTestDt`™ MyWeekDayЙюWeekday‡ StringManipulationѓВNe€џџџ_B_var_Function™ONonNumfЪ €џџџ_B_var_NonNumаDMyStringіPosдФ Ќ(NthNonNumKs TestStringХ{stirng?MStrLenяi` €џџџ_B_var_ForjLTextCharт№TestCharT€џџџ_B_var_testcharнV _B_var_Midэp €џџџ_B_var_ifPђAsc!u IsNumeric$*PosNёЩAnswer, ErrorHandlerOџџ„џџџџџџџџџџџџџџџџџџ!џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ1џџџџџџџџџџџџџџџџџџџџџџџџџџlБВ€0* pH‚dф VBAProjeˆct4@j = r ќMVG ” J< r€stdole>stdo€le h%^*\Gўџџџ     ўџџџ!"#ўџџџ%&'ўџџџ)*+,-./012ўџџџ456ўџџџ89:;ўџџџ=ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ{00€020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`ƒEOffDic„EOf€iдc‚Ež€”€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gram Files\CommonMicrosoft Shared\OFFICE11\MSO.0DLL#‡ƒM 1@1.0 ObС €LibraryKE‚д‚%з‚ЈThisWorkbookG€T€ЋisW€ГrkbUРoРЮ 2к QРHB1BxкАB,Т!Ј"B+BB|€Sheet1GТ S@#e@Xt1šH2Nујђд*2Э2Щ2Э2ЉуЄд3Э3ЩJ3Э3фz_ЫРUDateManagementGBDaРвeMUРnРgРXmРny@O уЙя!уcРwэ=ќГ!"=х= String ipulbnG$с`rin‚gфipu ЕaiрRn`&32?M o` яTяT№ Iщ “K*yџџџџrU€€€€~~~~~~~~~~~~~~~D Y‘ЏќпцIŠF8[ШЎ§  фџџџџƒŠe !џџџџџџЙƒŠe !џџџџџџсƒŠe !џџџџџџљƒŠe !џџџџ__SRP_0 џџџџВ__SRP_1џџџџџџџџџџџџ иPROJECTwmџџџџџџџџџџџџ$ЮPROJECTџџџџ(‰џџˆa љџџџџpџџџџсџџ)A љџџџџˆџџџџџџQAQi‰ ThisWorkbookSheet1Sheet2Sheet3DateManagementStringManipulation VBAProjectяРF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Ёџџџџ Щ10РF4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel ™џџџџС9@0РF WorksheetC:\WINDOWS\system32\stdole2.tlbstdole Љџџџџ QPLај-њ[НхЊDоR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice Сџџџџщq`NextMon  NthNonNumкРFјZ§[8GIЄк›@Њ}ЌцРFQЅјT)Y РFqВh9kCh—S_*DРF%и>е>DЃ?Кј!=иЭSтe—аbYM -Ѕѓc ZjЏ=юw2х…O– ъ#˜чWдХ[ŽEgAІбaњлРmVBE6.DLL Љџџџџ( `  #Error Љџџџџx € Љџџџџ   Љџџџџ1 Р Error* Error #*rU€€€€~~{ џџџџџџџџџџџџ   DtRecvdMyStringPos Qй QсcThisWorkbookThisWorkbookSheet1Sheet1Sheet2Sheet2Sheet3Sheet3DateManagementDateManagementStringManipulationStringManipulationID="{B7AD4EAB-7110-4F93-B6BB-235D5B7C025A}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=DateManagement Module=StringManipulation Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0705FFD001D02AD42AD42AD42AD4" DPB="3436CC03D431D531D531" GC="6163995A9A5A9AA5" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Sheet3=0, 0, 0, 0, C DateManagement=110, 110, 387, 528, StringManipulation=110, 110, 387, 528, Z ўџр…ŸђљOhЋ‘+'Гй0А@H`x  œЈфStephen AllenStephen AllenMicrosoft Excel@€p~RWЧ@^ЋYЧўџеЭеœ.“—+,љЎ0м PSummaryInformation(џџџџџџџџ3рDocumentSummaryInformation8џџџџџџџџџџџџ7 CompObjџџџџџџџџџџџџ<mџџџџџџџџџџџџXh px€ˆ  ЙфACBAЈ Sheet1Sheet2Sheet3  Worksheetsўџ џџџџ РF!Microsoft Office Excel WorksheetBiff8Excel.Sheet.8є9Вq