Standard Jet DBnb` Ugr@?~1y0̝cßFNTj7՜('`{6'߱eC>3y[@$|*J|JR f_Љ$g'DeFx -bT4.0dv @ @ @      Y'S  Y   Y Y  Y Y  Y  Y  Y   Y u Y o Y n Y z Y 2lY  Y  z Y  pY ConnectDatabaseDateCreateDateUpdate FlagsForeignNameIdLvLvExtraLvModule LvPropName OwnerParentIdRmtInfoLongRmtInfoShortTypeni''''YYIdParentIdName        @TAUBVCWDXEYFZG[H\OYRSY Y Y  Y 2ACMFInheritableObjectIdSID  AtYObjectIdPropData/PropData0;1# .;wb;Blob ;" 0CB0 1CB0 2CB0 3CB0 4CB0ͬ5`F^ܘDetail0eBox28eBox27d lblReadOuth cmd1h cmd2h cmd3h cmd4h cmd5h cmd6h cmd7h cmd8h cmd9h cmd0h cmdDecimalh cmdEqualsh cmdAddh cmdSubtracth cmdDivideh cmdMultiplyh cmdClearh cmdClearEntryh cmdBackh cmdOKh cmdCancelBlobCopyTypeInfoCopy 029abcgh> ijE$k=@$n`E橯. UCalculator"[Event Procedure]"[Event Procedure]h53` Detail0*#PO$e.e15]`babcb Box28@@!>}e15]`Zabcb Box27'-|LCvyd5U7`ZaZb chd e3lblReadOut Tahoma7KKSrh15"`abhcmd11"[Event Procedure] TaModulesMД ;c;ScriptsД ;Д ;VBAД ;l;CmdbarsД ;Д ;DataAccessPages Д ;Д ;Databases Д ;c;0 Д ;c;Blob homa"[Event Procedure]'A|OvTh15"`abhicmd22"[Event Procedure] Tahoma"[Event Procedure].͕Y@Fh15"`abhicmd33"[Event Procedure] Tahoma"[Event Procedure]"[Event Procedure]R{mtE-h15"`a8bhi YSY  Y Y Y  Y  Y Y  Y AttributeExpressionFlagLvExtra Name1 Name2ObjectId Order Y"ObjectIdAttribute@-;ٜl;AcessVBAData I noHJMN !"8G$%&'()*+,-./012345679:=>?@ABCDEF;iKjklmrstuvwxyz{|}~VBA1@-;ٜl;PROJECTwm!PROJECTv_VBA_PROJECT2 ( "#$%&')*,-.`234567W<=>?@ABCEHIJKLMNOPQRSTUVlZ[\]^_mbcdefghiknopqrstuvwxyz{|}~Root Entryc; PropData Forms Д ;c;ReportsД ;Д ;ijMSysDbID="{F88FAD3F-EF02-478B-BC12-11308141B428}" DocClass=Form_frmCalc/&H00000000 DocClass=Form_frmCalcTest/&H00000000 DocClass=Form_frmCalendar/&H00000000 DocClass=Form_frmCalendarTest/&H00000000 DocClass=Form_frmTimer/&H00000000 Module=basCalc Module=basCalendar Module=basCommonFile Module=Utility Functions Module=CODE Name="UsefulStuff2k" HelpContextID="0" VersionCompatirU~~~~~~~~~~k        a    ! ( a 8 y HKeyCodeShiftstrNumstrOp XstrName intObjectTypeValueterIndex DefaultExtFileName DialogTitleble32="393222000" CMG="BEBC6D2EAF6E5472547254725472" DPB="5F5D8C918C932C942C942C" GC="0002D3D4D4D4D42B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_frmCalc=0, 0, 0, 0, C  -Y'SY Y Y  Y P Y  Y ' Y ' Y ccolumn grbiticolumnszColumnszObject$szReferencedColumn$szReferencedObjectszRelationship''' '''' '''' 'YYYszObject$szReferencedObjectszRelationshipMTC ? @ A B C D EFGHIJKLM      &8` p "  "  "  "  0@ "HP `p "x  B      * 0*P  B  <   ( 0 @@   @ Si`MJ^MSi`MJ^MmQkmSi`MJ^QbOJiSi`MJ^QbOJimQkmSi`mY`QiLJkMJ^MLJkMJ^QbOJiLJkMd``dbSY^QMdOQomY^YmvSobMmYdbkOJmJJMMQkkfJUQkOJmJLJkQkSdi`k `dOo^Qk iQ^JmYdbkWYfkiQfdimk kMiYfmk kvkiQ^ mJL^Qk`kvkJMMQkkdL[QMmk`kvkJMQk`kvkdL[QMmk`kvkhoQiYQk`kvkiQ^JmYdbkWYfkJMMQkk^Jvdom`kvkOLko``JivYbSdokQiOQSYbQO''''''''''''''''''''''''''''''0( ((У(('MSysAccountsx'_jx'x' u(S@['jj u(u(v(w(@x(y(y(z(L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'L'{(|('`rjx'x'x'$  @ @ @          ~ !"#$%&'()*+,-./0123456789:;<=>?@ABCD]`]`   FirstName InitialCapsLastNameLongDate RemoveDashesStreetInitialCapsTitleYEARWORD ,   Mc O' I 8 I X January February March April May June July August September October November December Ie x #  Sw   SW   Nw   NW   Ne   NE   Se   SE  M Mr.  F Ms.  Fifth Tenth Fiftheenth Twentieth Twentyfifth Thirtieth Thirtyfifthoject1 stdole` UsefulStuff2k`ADODBs<  Procedure] T@QRRBRPKNBANRCENWNPGO_SHXHOPE28AR@BPKNBFN@CE@WPG@K_SHXOPMA@1{lB,-H"(B+1BI2Te`stG AT3TD5KIRMVDOJZKVODLUCJBHIY@FKTEDBE5KDI@1MV¨JZ@7V1DL@UCJ@:HQYF@T@4D@O5M5¿@lendare4nxa6SLWEAAMVUIGZWDTIKSBTGFEOYFTJHS`W A`4!UG W`T`K`4BT5FOaJ`4o5rɱk5?5a:O'6IQPCIBJSASOWPDPFAPUGBMWNMGDIJ#IQKCU`B 4SS`6WU`D`FP7G 5MaSM`I /61QTime6PQ(Tile5YZELFXJHXJXHZDMYRGFGJADGGBTIIY@3E@6F[f0XhZ5M3R5GGBIwKk85 obasbs]RULOQTJG@NAYJMD@SGAKHFWDXTY_CR,L /QUIJN /YMU@O`4T MG`KՠKF 1D@Y`0F+0r!  fMeLEXNZYGROQZAODXSWENC_C@LXGBSNL`XZ,GZXhN"_`LAJSI S !$QkalGWo#mMnFiYeYITTEYACKBPKJUDRQ@DPQQBPMVCc IIY CpJBP0KpUpRpQ1QpqJ0DqAC/$@^)}@k `Utility FunuonsGq&VU0 ipyZFTuKcRos$ BACBTPJCTDKOBEYWXLIHKNW`RAHEL# fCU  @ @ @ @ @ @ @ @ @ @YYYYYYYYY Y Y Y YYYYYYYYYYYYY$Y% Y& Y' Y( Y) Y* Y+ Y, Y- Y. Y/ Y0 Y1 Y2 Y3 Y4Y5Y6Y7Y8Y9Y:Y;Y<Y=Y>Y?Y@YAYBYCYIYJYKYGYHYLYMYNYO\\YDYEYFYYYY YY YYYY!Y"Y#OBEYWXLIHKNWRAHEL:=.Q PropData 1KQN``l;wb;PropData 2P``l;wb; %AccessVBAWin16~WiVBA6#Project1 stdole` UsefulStuf 0CB0 1CB0 2CB0 3CB0 4CB0basCalcbasCalendarbasCommonFile&Utility Functions C]):J@jh15"`a8bhicmd55"[Event Procedure] Tahoma"[Event Procedure]GH B_zh15"`a8bhicmd66"[Event Procedure] Tahoma"[Event Procedure]6pFE5|xh15"`avbhicmd77"[Event Procedure] Tahoma"[Event Procedure]}IE.3(zh15"`avbhicmd88"[Event Procedure] Tahoma"[Event Procedure]gM4Nh15"`avbhicmd99"[Event Procedure] Tahoma"[Event Procedure]C6GuCQ߳jh15"`abhi cmd00"[Event Procedure] Tahoma"[Event Procedure]eGuئ&Mh15"`abhi cmdDecimal."[Event Procedure] Tahoma"[Event Procedure]V!fJFy0<Xh15"`abhi cmdEquals="[Event Procedure] Tahoma"[Event Procedure] iCm6IM6r-h15"`a8bhi  cmdAdd+"[Event Procedure] Tahoma"[Event Procedure]X@C"Qh15"`abhi cmdSubtract-"[Event Procedure] Tahoma"[Event Procedure]sMӖh15"` abhicmdDivide/"[Event Procedure] Tahoma"[Event Procedure]ԃ8 O&l 5Mh15"` a8bhicmdMultiply*"[Event   __SRP_11__SRP_05q-__SRP_1 0L``l;wb;wValue strMoveUnitdtwDay intStartDayvarMonthNumberintMonthintYearCancel strNewSelectUseCurrentYearHideItintNewStartDay dtmNewDate 3h  4x 7ctlvarIDlngRowlngColintCode varStartDate frmofnFlags InitialDirFilter FilOpenFile strFilterstrDescriptionvarItemstrItem strFormNameFullNameTextIn shortdateSexyearnum(0* pHd UsefulSt@uff2k@T@ = +x $= J< rstdole>std@olerf%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automatio&n/gAD@ODB> APDOBC]CD1CMK*m   rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~- Tj9{8K~:t   a 5 ! I i !AiAa 1Y1a!Qy )Q 1a!Qqa yIAa ,25%%&&1&1&I&a&&&&' I''' (A(a((((()A)i)))))!*A*a****+!+!+qqA+Y+q++++ ,1, \ado\ms21028=Babc(e ghiXj'$kρ B/:@hZN`% U Ariald2 Tahomahgh Tahomam45 Tahoma`p DetailCόHiod5U`Hab cd Label0Timer TestBK(fICPk3vm07WF`atxtResultStandardi` ZN0Jgtd5]`8ab9ce Label2Seconds:r[fE&/ͣh1U` ahicmdTimer Timer"[Event Procedure]f9A0sMm.&d{ͬD<>Ov#Detaild Label0mtxtResultd Label2h cmdTimermer.; NMicrosoft ActiveX Data Objects 2.1 Li`braryHDAO>DA[ Y25E0Y00-5N,'Shared\\dao360.0dll# 3,.6-,B " ~Form_frmCalcG.Frm_fCacam  *\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{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\system\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library $=   8QRRBRPKNBANRCENWNPGO_SHXHOPE0F3ddca226Form_frmCalc{l8QKIRMVDOJZKVODLUCJBHIYFKTEDB0G3ddca227 Form_frmCalcTest 8SLWEAAMVUIGZWDTIKSBTGFEOYFJH0H3ddca227 Form_frmCalendarr88IQPCIBJSASOWPDPFAPUGBMWNMGIJ0I3ddca227 (Form_frmCalendarTestP(8YZELFXJHXJXHZDMYRGFGJADGGBII0J3ddca227GForm_frmTimeroh88RULOQTJGNAYJMDOQTSGAKHFWDXY_0K3ddca227RbasCalcr 8LEXNZYGROQZAODXSWENC_CLXGBSN0L3ddca227lbasCalendar S8(8ITTEYACKBPKJUDRQDPQQBPJUDMVC0M3ddca227basCommonFile@@88BACBTPJ ShowFormAndWait IP adhAddFilterItem IV  ,,LL, $,0<Hadh_apiGetOpenFileName comdlg32.dll GetOpenFileNameA AIAadh_apiGetSaveFileName GetSaveFileNameA A)BCommDlgExtendedError CommDlgExtendedError A C0adhCommonFileOpenSave adhTrimNull I_ h Ii  I  *.*  GetDBDirqm. \ Error# : Ij  I IsLoaded FirstName InitialCapsLastNameLongDate RemoveDashesStreetInitialCapsTitleYEARWORD ,   Mc O' I 8 I X January February March April May June July August September October November December Ie x #  Sw   SW   Nw   NW   Ne   NE   Se   SE  M Mr.  F Ms.  Fifth Tenth Fiftheenth Twentieth Twentyfifth Thirtieth Thirtyfifthoject1 stdole` UsefulStuff2k`ADODBs<  Procedure] T@QRRBRPKNBANRCENWNPGO_SHXHOPE28AR@BPKNBFN@CE@WPG@K_SHXOPMA@1{lB,-H"(B+1BI2Te`stG AT3TD5KIRMVDOJZKVODLUCJBHIY@FKTEDBE5KDI@1MV¨JZ@7V1DL@UCJ@:HQYF@T@4D@O5M5¿@lendare4nxa6SLWEAAMVUIGZWDTIKSBTGFEOYFTJHS`W A`4!UG W`T`K`4BT5FOaJ`4o5rɱk5?5a:O'6IQPCIBJSASOWPDPFAPUGBMWNMGDIJ#IQKCU`B 4SS`6WU`D`FP7G 5MaSM`I /61QTime6PQ(Tile5YZELFXJHXJXHZDMYRGFGJADGGBTIIY@3E@6F[f0XhZ5M3R5GGBIwKk85 obasbs]RULOQTJG@NAYJMD@SGAKHFWDXTY_CR,L /QUIJN /YMU@O`4T MG`KՠKF 1D@Y`0F+0r!  fMeLEXNZYGROQZAODXSWENC_C@LXGBSNL`XZ,GZXhN"_`LAJSI S !$QkalGWo#mMnFiYeYITTEYACKBPKJUDRQ@DPQQBPMVCc IIY CpJBP0KpUpRpQ1QpqJ0DqAC/$@^)}@k `Utility FunuonsGq&VU0 ipyZFTuKcRos$ BACBTPJCTDKOBEYWXLIHKNW`RAHEL# fCUC: @wwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]HA_LL(h1U`Zabc cmdPreviousMonth<< Mnth"[Event Procedure]( ʦ"[Event Procedure]Xˆg^K0@`0h1U`abcicmdNextMonthMnth >>"[Event Procedure]( Xwwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]H{ çXOogt5yvd5]7`a*bhc lbl111 Tahoma0=HandleSelected("lbl11")(=SelectDate("lbl11")!uu_GF}d5]7`Ua*bhcݥ4L:@44L:@MSysAccessObjectsuDDDDDDDDDDB )B'L:@)B'L:@Utility FunctionsuDDDDDDDDDDB )B'L:@)B'L:@CODEu**********( )B'L:@)B'L:@basCommonFileu<<<<<<<<<<: )B'L:@)B'L:@basCalendaru88888888886 )B'L:@)B'L:@basCalcu0000000000.  -qL:@-qL:@frmTimeruT@[>>>22222220 @ ?0nL:@?0nL:@frmCalendarTestu@[LLL@@@@@@@> @ .jL:@mL:@frmCalendaru@[DDD88888886 @ sgL:@sgL:@frmCalcTestuT@[DDD88888886 @ ?cL:@?cL:@frmCalcu@[<<<0000000. @ O'L:@O'L:@UserDefineduA@[DDD88888886 @ O'L:@O'L:@SummaryInfou@[DDD88888886 @ 4L:@䛔4L:@AccessLayoutu4MR2KeepLocal T@Zzz:::::::8 @rN'L:@rN'L:@SysRelu.........., O'L:@O'L:@Scriptsu0000000000. O'L:@O'L:@Reportsu0000000000. O'L:@O'L:@Modulesu0000000000. O'L:@O'L:@Formsu,,,,,,,,,,* rN'L:@rN'L:@DataAccessPagesu@@@@@@@@@@> &L:@&L:@MSysRelationshipswDDDDDDDDDDB &L:@&L:@MSysQueriesw88888888886 &L:@&L:@MSysACEsw22222222220 &L:@&L:@MSysObjectsw88888888886 &L:@&L:@MSysDbu\@[:::......., @&L:@&L:@Relationshipsw<<<<<<<<<<: &L:@&L:@Databasesw44444444442 &L:@&L:@Tablesw..........,  YE%y&NEEY Y {DataID5{X{YAOIndexorU $` ,A`0&&$` ,`0&&$` ,A`0&&$` ,`0&&$ ` ,A `0&&$ ` , `0&&$  ` ,I`0&&$` ,`0&&$ ` ,I`0&&$` ,`0&&$ ` ,I`0&&$` ,`0&&$ ` ,I`0&&$` ,` 0&&$ ` ,I`0&&$` , `0&&$ !`  ,I "`$0&&$ #`( , $`,0&&$ %`0 ,I &`40&&$ '`8 , (`<0&&$ )`@ ,I *`D0&&$ +`H@$ ,`L $ -`P$I .`T$ /`X$ 0`\( 1``10,I 2`d&&( 3`hI0$ 4`l( h/ n6kIn\U F6f  7"#$%&'()*+,-./012345e89:;V=>?@ABCDEFGHIJKLMNOPQRSTUWXYZg\]^_`abcdmvhijklntopqrsuwxyz{|}~Root EntryAl;@VBA;P_;VBAProject(&;P_;VBA;P_;dir__SRP_0-__SRP_1__SRP_2 !r(  !"#$%&'()*+,-/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{}~0* pHd UsefulSt@uff2k@T@ = +x $= J< rstdole>std@olerf%\*\G{00020430-;C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automatio&n/gAD@ODB> APDOBC]CD1C10-8CAA00@6D2EA4C1CProgram Files\CommonsM\ado\ms21NMicrosoft ActiveX Data Objects 2.1 Li`braryHDAO>DA[ Y25E0Y00-5N,'Shared\\dao360.0dll# 3,.6-,B " ~Form_frmCalcG.Frm_fCac@QRRBRPKNBANRCENWNPGO_SHXHOPE28AR@BPKNBFN@CE@WPG@K_SHXOPMA@1{lB,-H"(B+1BI2Te`stG AT3TD5KIRMVDOJZKVODLUCJBHIY@FKTEDBE5KDI@1MV¨JZ@7V1DL@UCJ@:HQYF@T@4D@O5M5¿@lendare4nxa6SLWEAAMVUIGZWDTIKSBTGFEOYFTJHS`W A`4!UG W`T`K`4BT5FOaJ`4o5rɱk5?5a:O'6IQPCIBJSASOWPDPFAPUGBMWNMGDIJ#IQKCU`B 4SS`6WU`D`FP7G 5MaSM`I /61QTime6PQ(Tile5YZELFXJHXJXHZDMYRGFGJADGGBTIIY@3E@6F[f0XhZ5M3R5GGBIwKk85 obasbs]RULOQTJG@NAYJMD@SGAKHFWDXTY_CR,L /QUIJN /YMU@O`4T MG`KՠKF 1D@Y`0F+0r!  fMeLEXNZYGROQZAODXSWENC_C@LXGBSNL`XZ,GZXhN"_`LAJSI S !$QkalGWo#mMnFiYeYITTEYACKBPKJUDRQ@DPQQBPMVCc IIY CpJBP0KpUpRpQ1QpqJ0DqAC/$@^)}@k `UtiliK[v1 @ @ @ @ @ty FunuonsGq&VU0 ipyZFTuKcRos$ BACBTPJCTDKOBEYWXLIHKNW`RAHEL# fCU9>a pa >?1?1a P@ABC?C;Qa 9Gya  YGyGGGG H9HQHProject1 UsefulStuff2kF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  90J_N? 3C:\Program Files\Microsoft Office\Office\msacc9.olbAccess  1@0FC:\WINNT\System32\stdole2.tlbstdole 9Plbl47m.4C:\Program Files\Common Files\system\ado\msado21.tlbADODB 1` Form_frmCalcForm_frmCalcTestForm_frmCalendarForm_frmCalendarTest Form_frmTimerModule1basCalc basCalendar basCommonFileUtility FunctionsCODE^F=C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dllDAO qp d m yyyy ww frmCalc frmCalK[v1 @ @ @ @ @endaru\-Ov#樴nD$cmdTimercmdTimer_Click \ Timer Running adhDoCalendaradhDoCalendarLoopShowFormAndWait IP adhAddFilterItem IV  ,,LL, $,0<Hadh_apiGetOpenFileName comdlg32.dll GetOpenFileNameA AIAadh_apiGetSaveFileName GetSaveFileNameA A)BCommDlgExtendedError CommDlgExtendedError A C0adhCommonFileOpenSave adhTrimNull I_ h Ii  I  *.*  GetDBDirqm. \ Error# : Ij  I IsLoaded FirstName InitialCapsLastNameLongDate RemoveDashesStreetInitialCapsTitleYEARWORD ,   Mc O' I 8 I X January February March April May June July August September October November December Ie x #  Sw   SW   Nw   NW   Ne   NE   Se   SE  M Mr.  F Ms.  FifthK[v1 @ @ @ @ @ Tenth Fiftheenth Twentieth Twentyfifth Thirtieth ThirtyfifthKeyCodeShiftstrNumstrOp XstrName intObjectTypeValuewValue strMoveUnitdtwDay intStartDayvarMonthNumberintMonthintYearCancel strNewSelectUseCurrentYearHideItintNewStartDay dtmNewDate 3h  4x 7ctlvarIDlngRowlngColintCode varStartDate frmofnFlags InitialDirFilter FilterIndex DefaultExtFileName DialogTitleOpenFile strFilterstrDescriptionvarItemstrItem strFormNameFullNameTextIn shortdateSexyearnum(rU $` ,A`0rU 5)9 )AYqY 1q i1Ia9aI q) 9 @ Pa a  Q @T   @ Xa a Q@ \a a  Q @`! I ppp@da  rrr@ha  ttt@ la a xxx@ pa a zzz I@ ta a |||@ xa a ~~~ I@ |a a @ a a1 Q@ a aI @ a aa Q@y  vvv@ a a @ a a  I@ a a   @ a a) @ a aI   @ a aa QK[v1 @@ a a  Q @ a a @ a a Q@ a a 5WWW_____ _    _    _    _    _   LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ LCxx`/x$ xD ll d $ L Cxx`/x$ xD ll d $ L Cxx`/x$ xD ll d $ L Cxxh/x$ xD ll d $ < P $ D ll d $ d0)'h%x $ `x ,x0$ xD ll d $ < T $ D ll d $ < X $ D ll d $ < \ $ D ll d $ LCxxh/x$ xD ll d $ LCxxh/x$ xD ll d $ LCxxh/x$ xD ll d $ D  $ D ll d $ LK[v1 @ @ @ @ Cxxh/x$ xD ll d $ < l $ < l $ \#dh! h >dFTlhl q>lT(D4"ld #0h! h 2d0h  @*dh! h >dFT h5T4 6 4:dh! h ld6/dhL(l d0hT4\(x! x xl($ xl8x! x x 648$ x40x! x x{ 6{?tx! x lt*#lp! p 2tl)xp 64$ tlxpp47X! X X 6#TX! X >TFDlX lD\?TX! X lT *#<@! @ 2T<)X@g\(,]rDlT #<2' l:(]1'2T<6ZKTX! X 'DlT  #<@! @ 2T<)X@5D4p,l\0 T<X@D P pv ptkt09kvl< pr kr8gl! Tl lChhh/h 1x6Tlx*FX%l Ll $ T!)lT5X x`H ktl! xl lPH kt.l! ll lXHkt`i ` " 1x6Tlx*FX%l Ll $ T!)lT5X x`Hktnktl! l l\Hktmktl! <l lChhh/hH ktj/l! Tl lChhh/hH ktkfl! 0l l Chhh/hHkto{ktl! Hl lChhh/hHktkt  kvl! 0l l Chhh/hl! $l lChhh/hH ktCHl! `l lT (P(DxhlTX;04%888b*tx! x lt #</tx8*tx! x lt #D/txLCp lp 2<D< lp2@P<M`@ $P0DM@@ $0 B<6P0 lp2?<D< lp2D3'' :@%N000:`&NPP '6P0 <D< lp2D<<'P<M`@ (#tx! x /tx5P 84 L0(Lp$txP0 .t@x! x x4 6 8@$ xp0.#dh! h >dFTlh/ (0(ldhTllppttx x | |  XX \!\"#$%&'(P)P*T+T,-./012347  SW   Nw   NW   Ne   NE   Se   SE  M Mr.  F Ms.  FifthK[v1 @ @ @ @ @ @ty FunuonsGq&VU0 ipyZFTuKcRos$ BACBTPJCTDKOBEYWXLIHKNW`RAHEL# fCU <k>kx3:@ P\vP,`(/(6P, kv~ kz| kxz  T$ (P,D +z $ < l $ D ll  $ < p $ D ll  $ D +z D$ < | $ D ll  $ <  $ D ll  $ h4.'h +jkhDXl/$4(l  X(h]A1 dHUpz5HTF <kFH H(h4$$ Upz6H$/ h$ H4$| _l _l5z Dx <rkx+tkz+vkr\ \  @ _l |$ hl  l 5l?l  lN46llYl lO45lh$ l/4Ml@\ \U|5\/4Ml@\ \Uz5\/4Ml@\ \U~5\ $ \|D: h <h X XUpz6hX/$D$ hX$Jn DknDLkJpv5Ln LknkvH kv~ptzcFxcBkzkx Af\%4kx#<*FL%8 L 8 $4/<)845L ktpt& kz#<*# kx#*1p2< (4lpF\%8 L 8 $Q48 ktkveWL5LP c\%ktD\%WL5Lf\%c xdBo zdF`t,p(< 84LD<ptzchAkzktpvkv K[v1 @ @ @ @ @ @ R ql^ ql7Lkz#d*FP%` L ` $QLH/d`5PkvDF8%Hlli8%HcHxc$7Vlli8%L kx#d*# kz#*FP%` L ` $L2d )`L5P xd$ zdh`D,Hp$d `LPD ll y $  x t(dltR(TltR(DltR(4ltR($ltR(ltR(ltR(ltR(ltR( ltR( ltR( ltR( ltRt tZd5zcL<kz  1># #kzD;2 zd3 t tUb6t3 t tU^6t3 t tU`6t<5;p! p pp! (p puxp! p pxp! (p p $ .ptt>(tJ_t ?]9T%dtFh%x L x $d)xd t6(T%dtFh%x L x $d)xd;dtFh%x L x $dW4U~)xd54  @ H$ xd4pz px kx2 +v  kx L +v  kx$kzn +v| +v kx!kz| kx"kzpl kx'kzph kx%-kz(x kx&XkzJ|S kx(kzul~t  $0 pL. l / (l |L`+z H +^zb~L$ P l 5v L:T dl kv+tdD`1x6dD x8P(xdDxD%z Dkz Fh%! 5hz <kzDX%! $D$ hl.Kd  dWT`1hd5T)P dd lP@ld ddHd/ <l,lhdTL$ X$. l  +j / $(l dll\5l_ 2   ])'H%X$ `X ,X4d$ Xl\H <pz/ $ d4     <4$ H 4$ L?r <p Dn Lknkpkr\ \Ott5\/  L$ \D +zh$ T YtCxx/x $ xT YtCxx/x $ xT YtCxx/x $ xT Yt Cxx/x $ xT YtCxx/x $ xT YtCxx/x $ xT  K[ @YtCxx/x $ xT Yt Cxx/x $ x  H   DXX !"#$%&'()*+,-./012347K*m hA&(hE&(AhI&(hM&(hQ&,`&&,A`0($` $ ` ,  `0&&$I ` , `0&&$ ` $ ` ,I`0&&$` ,`0&&0 ` !9&&/,I`Y/&$`$`$ `0I` &&&(`9&$`, `d&&(I`0&(`0,`&&, `0/(I `#(  `9&$ !`( "`/$I #`, $` 0/( %` !#( hU&(I hY9&( h]a,( ha,$ &`e$I '`i$ (`m$ )`q$ *`u$I +`y$ ,`}$ -`$ .`n&&( 3`hrU $`T$A`X$`\$``$`d $A`h rU 2Q8 8y89)-99:I:y:::!;a; <;y<<Y=2!3I32@ 4a aq3@ 8a a3@<33@ @a a9!@D 414rrr@ Ha a!~~~I K[v1 @ @ @ @@Ly Q4@ Pa ai4ttt @ Ta a4vvv @ Xa a4xxx@ \a a4zzz@ `a a4|||I@dy 5@hy )5@l! ppp@py A5@t  @x3Y5 I@|y y5@y 5WWW_lp! |p xQlhphWXOtt5XctMH@X p! p tM8@( (UUXU hp6X(ch dH%! (h$plX(HK>tx! |x xtWdT T! )xt6dT(H$ xtdTlp! |p xQlhphWXOtt5Xcp! $p tMH@X tM8@( (UXUU hp6X(ch dH%! ,(h$plX(HK>tx! |x xtWdT T! ,)xt6dT(H$ xtdTp8&tx! |x xt)xt  @ 8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt )xt  @ 8$ xtp8&tx! |x xt)xt  @ 8$ xtp8&tx! |x xt)xt  @ 8$ xtp8&tx! |x xt)xt  @ 8$ xt4.pj kj# cXl kj@ jXl kjY (X l kjqTlTGD :XN44D$ $l6D4lTiXl/ X(lD4$.pj kjK(X XH HU_6XH c8l kjh j8l kj (8l kj_di8l/ D(lXHd,&tx! |x xt)xt,$ xtxx<<TH\@P ` X 8  4gD<ptzchAkzktpvkv K[v1 @ @R ql^ ql7Lkz#d*FP%` L ` $QLH/d`5PkvDF8%Hlli8%HcHxc$7Vlli8%L kx#d*# kz#*FP%` L ` $L2d )`L5P xd$ zdh`D,Hp$d __SRP_7|__SRP_8 F__SRP_9__SRP_a Z$`l $`p $`t $A `x $ `| $ ` H  ` !9=/((&/HI ` !9=/((&/$` nkzul~trU~| QY 1 $<'(%'8%'H%:X%h$ `h `h)Y C$$  /$54 :X%h$ Th $ Wl)h +:X%h$ `h ,h dXltp(l$h |@8<FL%i\% $ |<(,]>l5<`@(l<f dWT`1hd5T)P dd lP@rU $`,`0n X$.rU~|  Y?.y.Y 1    @D\ \ -D DOtT5Db \ I \OtT`D DOtT5D@oT %'%'%:0%@$ `@ `@)YCD  D/5D/4:0%@$ T@ $ WD l)@+:0%@$ `@ ,@; d0lD,l\@DT\ \ -@ @OtT5@b \ I \OtT`@ @OtT5@ P+>P 8 oT4P \ (lP= 00 p>l0= Pk>04P ` o4 l+: %0$ `0 ,0 d l\0lP\0@|@8<FL%i\% $ |<(,]>l5<`@(l<lH X >l1p H  ltR $YhpX  XH5XjpxFH  kFpx qtltqt# kxpz8(K[v1 @ @ @ @ @ @ @plXH\L# fCUd1plp #d?/dqlpJlp 1p8 lp 1xK` hh l`q\hx` hh P TT ,'' lM,@l`#d*#X*#LlP*F< 2dXLP)hT6<  ~,4xplt0 dXPLhT< \/ rU ,yAp4,YB(p4$ACPpL `  )Ii0 ` 00( ` $ `y@n2rU~| Y l Ct6DltFT%d% $ |D(4]A5D=ltFd% $ T $ @k) pzd(t D$k@ rU K[v1 @ @(__SRP_fp__SRP_10 __SRP_11__SRP_12 `!n5rU~| 2qHHHQIF1HH9II)JQJyJJJJKQKKK9 L8qyLLLL M1MYMMMMMN)NQNyNNNO     !"#$%&'()*+-/0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~YOOl/'X   F8H5X8H:hX((8"H$ 1x/$5XXl,xH$X8@ #p ' /p1l ? #p #\O2p\kv pvkv=l kv?(Lkv  #p #\O2p\5Lkv J *' kvNkt ptkt;=l kt?(Lkt  #p #\O2p\5Lkt #p 2/p9l ?(L  #p #\O2p\5L #p 2/p9l ?(L  #p #\O2p\5L Cx@(xp\L`,%  1x,(x l M`@P PUpr5PkrpN kN< Ct+ kNR Ct+ kNhCt+ kN~Ct+ kNCt+ kNCt+ kNCt+ kNCt+ kN Ct+ kN Ct+ kN Ct+ kN +CtjltF,l M`@P P< <: l M@  `1t6P<ltCx,Txt(P<  pvkvakv #p #l*#h #d*#@'Dkv  #<*1x2 plhd@<5D Cx@(x(plhd@<D #h ' /h1l ? #h #TO2hTkv pvkv=l kv?(Dkv  #h #TO2hT5Dkv J *' kvNkt ptkt;=l kt?(Dkt  #h #TO2hT5Dktkr prkrkr J=l kr?(Dkr  #h #TO2hT5DkrGprkr prkrkr J2=l kr?(Dkr  #h #TO2hT5Dkr prkrkr Jzl krO  prkrkr Jl kr!O "prkrkr Jl kr#O $K[ @prkrkr J:l kr%O(D J  1l5Dll &0ll &97l J(D J  #h #TO2hT5D CxH,xlhTDxD '2(Cx< )22*Cx<Cx`0D(x  pv kv +Cx kv 6,Cx kvL-Cx kvb.Cx kvx/Cx kv0Cx kv$1Cx kv$l Md@T T`1x5T((xTHrU (`A0(`a0(`A0(`y0(!`a0(I`a0(q`0(`&nrU @ 1Y @4! ppp@8y rrr@<attt@ @a a!xxx @D  dT l l 5lo $ l@X0,`rU P$` n`rU h <y=>>===__SRP_13,g__SRP_14.^__SRP_15<k_VBA_PROJECT2y=@@! ppp@Dy rrr@Hattt@L  @ Pa a>xxx d <N 4kl%!  <h h h 4 <h h h$ hPXa a!~~~rUK[v1 @ @ @ @ @ \$` n/d`5PkvD  am  *\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{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}#9.0#0#C:\Program Files\Microsoft Office\Office\msacc9.olb#Microsoft Access 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{00000201-0000-0010-8000-00AA006D2EA4}#2.1#0#C:\Program Files\Common Files\system\ado\msado21.tlb#Microsoft ActiveX Data Objects 2.1 Library*\G{00025E01-0000-0000-C000-000000000046}#5.0#0#C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll#Microsoft DAO 3.6 Object Library $=   8QRRBRPKNBANRCENWNPGO_SHXHOPE0F3ddca226Form_frmCalc{l8QKIRMVDOJZKVODLUCJBHIYFKTEDB0G3ddca227 Form_frmCalcTest 8SLWEAAMVUIGZWDTIKSBTGFEOYFJH0H3ddca227 Form_frmCalendarr88IQPCIBJSASOWPDPFAPUGBMWNMGIJ0I3ddca227 (Form_frmCalendarTestP(8YZELFXJHXJXHZDMYRGFGJADGGBII0J3ddca227GForm_frmTimeroh88RULOQTJGNAYJMDOQTSGAKHFWDXY_0K3ddca227RbasCalcr 8LEXNZYGROQZAODXSWENC_CLXGBSN0L3ddca227lbasCalendar S8(8ITTEYACKBPKJUDRQDPQQBPJUDMVC0M3ddca227basCommonFile@@88BACBTPJCTDKOBEYWXLIHKNWRAHEL0N3ddca227 "Utility Functions8XXISMAEIQXCIXDSTAWOP_JLRWSOE0O3ddca227,CODE+)h8P x>m޵%D^ZׂWr|GEFD0O_O2y$PuBA^EZs 5Ej;y"Yq.iG#4fU/QCTQ4OjG7LNy8c$?IH޲-gKENzcmdDecimal_Click:HandleDecimalClickC]cmdDecimal_KeyDown cmdDivide_ClickcmdDivide_KeyDowncmdEquals_ClickcmdEquals_KeyDown cmdMultiply_ClickHcmdMultiply_KeyDown[` cmdOK_ClickVisible cmdOK_KeyDowncmdSubtract_ClickcmdSubtract_KeyDown] Form_Activaten InitCalc Form_Load{ varCaption lblReadOutCaptionxIsNullRepaintstrNum+varLenώstrChar$ intShiftDownW acShiftMaskѯ cmdMultiplySetFocusChrK~ vbKeyBack2cmdBackV vbKeyDeleteP cmdClearEntryȣ vbKeyNumpad0 vbKeyNumpad9Asc!u vbKeyDecimal< cmdDecimalqD vbKeySubtractV cmdSubtract8 vbKeyMultiply+vbKeyAddHcmdAddK vbKeyDivideAd cmdDivide vbKeyReturn cmdEquals}wvbKeyCcmdClearcostrOp4aValMsgBoxR vbExclamationValueK Form_frmCalcTestCcmdGetResult_ClickA txtResultY) (adhDoCalcW Form_frmCalendar adhcShowOKCancel;adhcFirstDayOfWeekvbSunday&adhcColorWeekendvbRedG/adhcColorWeekdayxvbBlackacSunkenB adhcFebruaryD adhcMarch. adhcDayStr| adhcMonthStrk adhcYearStrt adhcWeekStr} DirectionType dtMoveForward9dtMoveBackward mdtmStartDateo mintFirstDay mastrDaysL mintStartDOW mintYearTodaymintMonthToday mintDayTodayW mvarMonthLen mstrSelectedmfShowOKCancelmintYear mintMonth:mintDayK ShowOKCancel1cmdOK' cmdCancelYear6nSetDisplayDateLJ DisplayCal6MonthDayBase7wValueh ChangeDate strMoveUnitYdt\intMonth=intYearintDay0dtmDate$ dtmOldDateintInc3MChangeDateError-T DateSerialUDateAdd/6DatePart HandleIndent Day2Button"ChangeDateExit`E CloseForm:HideItPcmdNextMonth_Click NextMonthcmdNextMonth_KeyDownP HandleKeys1cmdNextYear_ClickNextYearcmdNextYear_KeyDown0cmdPreviousMonth_ClickY PreviousMonthHcmdPreviousMonth_KeyDowncmdPreviousYear_Click PreviousYearcmdPreviousYear_KeyDown wDay~. intStartDay DaysInMonth׮varMonthNumber%fInHere4hFirstDOM;ShowDate±FillInStartValuesz.IsDate2OpenArgsB SetUpPublicsK!FixDaysInMonthintRow}intColK- intNumDayspVintCountPstrTempM FixUpDisplayL intLogicalDayj;intDiffctlControl lngForeColorg ForeColor Form_KeyDown4 Form_Open-Canceli` WeekdayName?FirstDayOfWeekLoadedAsSubForm strNewSelect SpecialEffectNacNormal ShiftDownv SHIFT_MASK vbKeyEscape=Y vbKeyHome0! MoveToToday vbKeyPageUp;= vbKeyPageDown vbKeyRight@NextDay vbKeyLefty PreviousDayvbKeyUp PreviousWeek vbKeyDown K[v1 @ @ @NextWeekHandleSelectedpstrNameZUseCurrentYear( newSelectedtxtMonth MonthNameHtxtYearParentErroNumber-ClearRedisplayCalendar  SelectDateFirstDay=intNewStartDay W dtmNewDate*tToday  Form_frmCalendarTestlcboMonth_AfterUpdateCdtmValuefaCalendarIFormcboMonthucboMonth_Enter;cboYear_AfterUpdate7cboYear cboYear_Enter cmdNextDay_ClickcmdNextWeek_Click cmdPrevDay_Click"cmdPrevMonth_ClickcmdPrevWeek_ClickcmdPrevYear_Click ListMonthsvarID=jlngRowlngColgintCodeSacLBInitializeacLBOpen TimerXacLBGetRowCount acLBGetValue ListYears'Now%cmdToday_Click Form_frmTimerUStartRunningI cmdTimer_Click DcmdTimerLModule1b basCalc adhcCalcForm2OpenFormFormNameI WindowModeacDialogaIsOpennFormsacForm intObjectTypeT AcObjectType\SysCmdGacSysCmdGetObjectState? basCalendarRadhcCalendarForm (adhDoCalendari varStartDate@ dtmStartDate= IsMissing(adhDoCalendarLoopBfrmÏ(ShowFormAndWait blnCancelledlngLoop adhcInterval$| basCommonFile (LaunchReport(!tagOPENFILENAMEy lStructSize/r hWndOwner hInstance  strFilterӥstrCustomFilterژnMaxCustFilter` NFilterIndexcstrFile XnMaxFile strFileTitle nMaxFileTitleym strInitialDir/(strTitleFlagso nFileOffsetInFileExtension9 strDefExtHA lCustData'5lpfnHooklpTemplateNamet(adh_apiGetOpenFileNameHofn) comdlg32.dll?(adh_apiGetSaveFileName(CommDlgExtendedErrors(adhOFN_READONLY(adhOFN_OVERWRITEPROMPT(adhOFN_HIDEREADONLYXO(adhOFN_NOCHANGEDIR(adhOFN_SHOWHELPی(adhOFN_NOVALIDATE(adhOFN_ALLOWMULTISELECTJ(adhOFN_EXTENSIONDIFFERENTf4(adhOFN_PATHMUSTEXISTV(adhOFN_FILEMUSTEXISTF(adhOFN_CREATEPROMPT(adhOFN_SHAREAWAREi(adhOFN_NOREADONLYRETURN2(adhOFN_NOTESTFILECREATE;(adhOFN_NONETWORKBUTTON(adhOFN_NOLONGNAMES.W(adhOFN_EXPLORERz(adhOFN_NODEREFERENCELINKSX(adhOFN_LONGNAMES(adhCommonFileOpenSave InitialDir1Filter; FilterIndex˟ DefaultExtyFileNamej DialogTitle߄OpenFile strFilenameefResult Application* hWndAccessApp (adhTrimNull(adhAddFilterItemstrDescriptiondvarItem vbNullCharYstrItemintPosr(GetDBDir GetDBDirErr dbCurrent= strDbName strProcNameƣ CurrentDbSRight UCase5  GetDBDirDone Description vbOKOnly vbCritical+} Utility FunctionsZ(IsLoaded. strFormNameoconObjStateClosedZ conDesignView CurrentView CODE ( FirstNameFullNameОFNAMER ( InitialCaps4TextInhv SpaceLocation DashLocationTrim@LCase:( LastName( LongDate] shortdateudatetext2MonthnumStr ( RemoveDashesMPos( StreetInitialCapsu DotLocation SecondLast( Title~Sexr( YEARWORDyearnum2 DAODetail0,Box28EBox27Dcmd14cmd25cmd36cmd47cmd58cmd69cmd7:cmd8;cmd9<cmd03ClickKeyDown.aActivate|Detail2Label0,Label2, cmdGetResult6lblDay1lblDay2lblDay3lblDay4lblDay5lblDay6lblDay7cmdPreviousYear cmdNextYearcmdPreviousMonthV cmdNextMonth-lbl112Ylbl123Ylbl134Ylbl145Ylbl156Ylbl167Ylbl178Ylbl21WYlbl22XYlbl23YYK[d _ Z 7 T  _  D HM @lbl24ZYlbl25[Ylbl26\Ylbl27]Ylbl31|Ylbl32}Ylbl33~Ylbl34Ylbl35Ylbl36Ylbl37Ylbl41Ylbl42Ylbl43Ylbl44Ylbl45Ylbl46Ylbl47Ylbl51Ylbl52Ylbl53Ylbl54Ylbl55Ylbl56Ylbl57Ylbl61Ylbl62Ylbl63Ylbl64Ylbl65Ylbl66Ylbl67YLine7186 cmdPrevDay~V cmdNextDay# cmdPrevWeek~ cmdNextWeekh cmdPrevMonth+Label17GLabel18HLabel19ILabel20e cmdPrevYearLabel26kLabel27lcmdTodayk AfterUpdateEnter _B_str_LeftV _B_str_MidX _B_str_Chrm#ControlsKItemz _B_str_Format" _B_var_Datev _B_var_Format _B_var_Stringӊ _B_var_LeftQ _B_var_CurDirT _B_str_Right#( _B_str_UCaseK _B_var_FNAME? _B_str_LCaseP _B_str_Trim _B_var_StrG  S^!- m   @@x@ H)H @@@$$ppp@8y rrr@<attt@ @a a!xxx BACBTPJCTDKOBEYWXLIHKNWRAHEL:>Q IQPCIBJSASOWPDPFAPUGBMWNMGIJ:>-ITTEYACKBPKJUDRQDPQQBPJUDMVC:HLEXNZYGROQZAODXSWENC_CLXGBSN:!4xMEP6 LLL<+"`k@ i$ n @&Bls@(Bas %x`hXh`"z 8!hXl`$tt`Yjbh`te@d \@(T @@D @4 @$ @p @ @ X$= $*\Rffff*0N3ddca227*\R1*#16*\R1*#a*\R1*#99*\R1*#98*\R1*#92*\R1*#8f B  R  p 6=   xpK Returns True if the specified form is open in Form view or Datasheet view.]`]x j b $$h & $$`!* ('"k(k i}Attribute VB_Name = "Utility FunK[v1 @ @ @ ctions"  Op$ Compare Dat abase`Explicit  n IsLoaded(ByVal strFormAs Sng) Boolean ' Returns True if the specified f@ is ope n in P v@iew orsPheet.N  Ct conObjSta@teClosO= 0 DesignV)If SysCmd(a"cGet'ecBt), acG,!t) <>;Th>ewO,s().CurrentE"M "ၝY End If EkAnKeyCodeShiftHandleNumberPress< t8 Ly cG褤/09DBא#(2jH~J̮x(2jH~J̮y cG褤/0ME' "~b[pEB&Q̆5"I~F}?ߗ+[jO  x `ߗ+[jO "~b[pEB&ME4 [LS S06L*LL<8<<<N0{3586CC51-4922-467E-8C03-1113E27D043F} p(% `kT `tx `PToX  `h k\ `t ``( To`  `@ tkd# n`( tkh( " `tkl/ v``tkp4 $`tkt9 & `tkx > (  `tk| C *` `tk H ,h `$k  M)  %i. i0i2(i4Hi  @ `88k  a)  %i. i0i20i4Pi  R D`tkrh `  0``, VoP% %p@x(<D^don't ke@Xp @l seth` F%xregard@X if @H orm.@88 3 A@( @  @ @  8 B@ x @t @P d @T  P  p BD^@8 p @l hh `K[v'z@`'%(PE%uʵ%P @ X @ H @ 8 @ ( @  @ @  <@ x @t @( d @T @ x @t @ x @t @x @t @x @t `e@x e@t 0hRx1@x x1@t ehP P@x @t x1P8P0 e@hx 0@t (8p8PH, x1@, l `8 e@j 0px168:<>^e@X 0@T  e@D `Y@ 4 @$ x1p0h(PH@ @@l 0x1@0@j (e6B<8:<>@X @H x1@8 hP @x x@t x1`0X(T$= *\R1*#36$*\Rffff*0I3ddca227*\R1*#72*\R1*#91*\R0*#12*\R1*#63*\R1*#61*\R1*#8f*\R1*#1*\R0*#f48<@rD~HLtPvTxXz\|`dhplptx|K[v1 @ @ @ @u 6 ,H ,x " "c  "> 8 "@H P`"ch  "> "&  " ( &8&` p "&  "&  "&  "&  0@ "H&P `p "x&  B         * 0*GP  B  <  (  ( 08  @H Ph p "x&xp0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved.0]p !5' $<  $D$^9q'o !!$B' o] !5'  $B $D$^9qh'oX H !!$<'o(` !B@ B@o! Make sure the screen repaints so the user sees the cursor move. !B@p B@ox !B@ B@:oH  !B@x B@o` !B@ B@o !B@~ B@o !B@ B@ o  !B@ B@oX` 4 6KT', 8KT :', <KT ', >KT 2KT$ The year in the expression below isant. completely arbitrary.OK a 0 $^mmmm$',xKT 0 ',6n`nXiPh6 Display 100 years on either side of the current year.]p 4 6KT B$<'R'@ 8KT :'@ <KT'@ >KT Rd 0 '@'Dni !B@ oh`9Attribute VB_Name = "Form_frmCalendarTest" Bas0{3586CC51-4922-467E-8C03-1113E27D043F} |GlobalSpacIFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Option Comp@ DT  E12,jqo1B 0' TCym inQAexpxsqba~w iscpletely arbitrar>yD9:AxatK[v1 @ @ @ @ @ @ @(u+ 1, 1u"m"4 1o 1$VB"s*y:,//,/,/,!-/,' Disy 1s eЌer si`/of\rent 1Statictq 41101 R= ap(Nows33uJ3  3$S 3]Ps e -+_G!"e3mdTodaypA .lbl56Ylbl57Ylbl61Ylbl62Ylbl63Ylbl64Ylbl65Ylbl66Ylbl67YLine7186 cmdPrevDay~V cmdNextDay# cmdPrevWeek~ cmdNextWeekh cmdPrevMonth+2zV:8 @|GetOpenFileNameA<GetSaveFileNameAxted (CommDlgExtendedErrorxRRLLMEP4H(LX> LL<8<<< % ord0hH0 Fh`lopehx Ih  hh7 7hhh h $$h8(( hP,,hh00'h44Dh88hh::h<<$<h@@hDDB@hHH+xpP  )pA%+(p ( )A%+PpP ʘBʘpBʘBʘ BʘB ʘ( B ʘP B ʘ`Cʘx Cʘ CH \+`x k( ^^9i Hi hi$ i4 iD iT id it  @@%` `H` +0` $ki tri)i +`8Pkpi `r+`k00 t%`pG`l$vꀆ` @ʘBʘ BʘHBʘBʘB ʘ@B ʘ8CʘCʘ C0`x x p` 8 8P H( tureX  (x( `0 ( x ` p  K[v1 @ @ @ @ H `l call`\ leTip 0 `L ure. X ve to `< ns T retrie`, tere `  e to Flags` 4 s8 o get ` e ch Pv\L, @ ass @ for@ t t in@ d orm.@T e, y@ P `jrmA%` -he cap@L @H fo X unk % @ Her. I@ the to i% J OXXp`x% bXGetz a. (Sybv% Copyrht@h serv@d  I@T str@ D e fi@4 str@$ ter hP8`x(`t@` @P  p@X X8`xH @h @d @` @\ '@X @T @(P @L @< @p, @ @ @ @ ( 8 + $= $*\Rffff*0M3ddca227(*\Rffff*0M3ddca227\0*\R4*#24*\R0*#13*\R0*#f*\R1*#99*\R1*#98*\R0*#11*\R0*#e*\R0*#1a*\R0*#19*\R0*#1*\R0*#14!V X *` , ,   (08@HPX`hpx HHH       0 @ P ` p    BL*, <@ 8 $  * , ,H x  F : : 0X > < F ,P > , : 0 <@  (0H`x 6"=" > H  P  ` p  x        # 8    (  0  8  @ 8K[v1 @ @ @H :  ,  ,  : :X .  6 : 4H :        ( B0 .@ Bp : 8 0 *8 ,h ,   , 4 H h *x ,6  B  < H *P , ,   : 8 >H   #  B   > 8@ x * , ,   ( 8 >H  <       (@`  h x Bx  ] 8 H LaunchReport used to determine if a report is being launched externally $ From Access 97 Developer's Handbooklas% by Litwin, Getz and Gilbert. (Sybex)le% Copyright 1997. All Rights Reserved.^0^H^`^x^^^^^^^ ^8^P^h^^^^^^pHx]$`]$]$ ]$]$H]$p]$]$]$ ]$]$ ]$@( ]$]$P ]$8]$`]$x ]$]$   !'-6 This is the entry point you'll use to call the common1 file open/save dialog. The parameters are listed below, and all are optional.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:@ Flags: one or more of the adhOFN_* constants, OR'd together.4 InitialDir: the directory in which to first look4 Filter: a set of file filters, set up by calling) AddFilterItem. See examples.8 FilterIndex: 1-based integer indicating which filter5 set to use, by default (1 if unspecified)? DefaultExt: Extension to use if the user doesn't enter one.& Only useful on file saves.7 FileName: Default value for the file name text box.& DialogTitle: Title for the dialog.3 OpenFile: Boolean(True=Open File/False=Save As) Out:6 Return Value: Either Null or the selected filename](]H]`]x! Give the dialog a caption title. $vG'j $vG'j $vG'j $vG'jthey p $vG'j $vG'j $vG'j $vG'jt0 Allocate string space for the returned strings. O $\$'  w$\' ) J7 Set up the data structure before you call the function  9rm mod !9vely 9 9 9 9 the f 9 9n, set 9 9 9 L91 Didn't K[v1 @ @ @ @ @ @ @think most people would want to deal with these options.t 9999q1 This will pass the desired data structure to the3 Windows API, which will in turn it uses to display is st the Open/Save As Dialog.  $'thd $'k4 The function call filled in the strFileTitle member4 of the structure. You'll have to write special codeurns T' to retrieve that if you're interested. A 0 You might care to check the Flags member of thed4 structure to get information about the chosen file.P. In this example, if you bothered to pass in a. f4 value for Flags, we'll fill it in with the outgoing form. Flags value.e, y $vG !'jrm !$'he capd'kifo' Tack a new chunk onto the file filter. I< That is, take the old value, stick onto it the description, O3 (like "Databases"), a null character, the skeletonen, Fa1 (like "*.mdb;*.mda") and a final null character.$ From Access 97 Developer's Handbookt (Syb% by Litwin, Getz and Gilbert. (Sybex)eser% Copyright 1997. All Rights Reserved.is p In:0 c& strFilter: existing file filtertsK- strDescription: new filter descriptiont varItem: new filter Out: Bec$ Return value: new file filter+ f $vG*.*'j not     'i05 Trims the Null from a string returned by an API call$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In:4 strItem: string that contains null terminator Out:8 Return value: same string without null terminator]  '    $'d0 'k i Purpose:7 Gets the directory of the currently open database.2 Based on code originally from Mike Gunderloy.$ From Access 97 Developer's Handbook% by Litwin, Getz and Gilbert. (Sybex)% Copyright 1997. All Rights Reserved. In: None Out:8 Return Value - The name of the directory as a string History:6 Created 09/13/94 pel; Last Modified 12/20/95 pel  ]]] GetDBDir' .  !' $ \b   $ ' $ ' x zp h SX  Error# !:  !   A@ n i Attribute VB_Name = "basCommonFile" Public LaunchReport As Bool@ean ' 4used to determine if a rpis beingL l*ex'nally ' From Access 97 Developer's Ha@ndbook&by Litwin, Getz  Gilbert. (Sybex)'Copyright 1997. All Rs Reserved. Op tion ~pare Data"e ExpitTType tagOPENFILENAME lStructSizeLong hWndOwner Instancstr?*$ CustomnMa.xCN IndexL"C!@ (eTitl F InitipalDiBCM7F0lags,©Offse¥InteXgerIEnsv!Defw lOl0pfnH@TemplateaEEnd AADheclFša@dh_apiO pe+Lib "comdlg32.dll" _@4Alias "L A" (ofn$ ) Save;lmDlgb3dedErrovry(CGC of 'OFN_READONLY&H1sOVERWRITEPRPOMPTB2SH(IDEJ 4NOCHANGEDI R 8SHOWHELPb10u VALIDATEALLOWMULTISELE C0EXTENSIONDIF*F`N4PATHMUSTEXtISC8UAK1:0uC) /VSHzAW TNO>RETURNTEST!NETWORKBUTTO 2LON:GAS" TEX|PL`DFY P6CELINK# bT gk  no7y(Eoal ByRef vVVariant,MV \@}EDl_]Vi0[aultt[JYhogVgZUt2JK[v1 @ @ @ @ @ @ @q^a' Th the entry point you'0c !G^Pk' fЗ Pn/sY d r.0e Љs dlistedubw,oralP "' d$In:c ': o0amoof"adh1_* c`)s, OR'ge0.r%q):di recto`in@ whichfirst l2Q'A+:pQ@A, AupAV1AddSItem. $Se@ xa0esY D: 1-d P"Apdicat #! P0%,q defa2 (1unspecified! W4: rx2SaA)r doesn'tA,p Only ful++8:P value f e n - t boxDG:: :1 e::(True=a @e/False=1Pe !>spa-r2( &50e#= L0eft(B & "(256, 0x), 4.tP%le = String(256, 0) ' Set up the data structure befoyou callDfunctionzWith of.l~SizLen(>n hWn@dOwnerA@pplicaP.Access^/Filt/ NInde>xO AG%enamenMaxW[ Tit % (Dialog&Flagsk (DefExt aault IHnit*DiCur|U' D idn'tuink most peop6woul d wano deal wy'Ase opns.hInsthancR0@,C`ustomCh-">"A`FlpfnHook 0End Th is@)pass'.sired ,toA'@ndows API,@ whichCiDn n iseBisplayEOpen/Save AsSǁpCCIf @4 e ThefR es@l3adh_@apiGet N@ElsA' @HIfGe Ewyfill#he~Qmemberof) 8Â. You' -h)writ pecM codCDDo ree $that ifJ 'in zepsted)&% &'! might`checkdc`aC\ g`inmb abouA`e chosen "neAIAaKe(xamc,D bo@K BN)avalu`.or Ke&.Jj"`go`JNot IsMiss)Lw J. MCommonD,')Ts, ptake3`0,di` Adg,c ' (li@$"D`ba`"), @,arac nkelete&*.mdb;a") a yan@n From # 97 Dnloper's HPb Tby LitwPin, GzBGilP?t. (Sybex4 ' Copyr7199P7. A?Rs Lerve!<2In:q E: exist+1}:1]5!; OutRe]R66$66"*.*l 2-;.&--& vbA4Char Wc /6nb=ByV@#u26o2 /`@`nP)y f$@\urnbp#anr2d'd 'e'' 'd ''l ''tB.:( hc 0 r (]'0LeftD- 1^d# &]OQ']DDB(*&CQ' Pur^pv 9P'dcyd| currentl!U Z1B0Vd onق oJPl ",MXGurloySSSP+aY+ SSSSNon_6\($(=Ѕ- 'asPg@.3' HWory!PCreaP 09/13/94P l; LaModifi`?12/`20/95uO n ErrGo|ToQd .db!yq "'tX3= Db&= f. o Whi[F$4,4 <> "\1 <= q7d) '8LoopU ;UC`-; D!D[xE9GetDBDirErr: Select Cpase P4l se8MsgBox "For#" &Z.Number": &Descript@ion, _ vbOKOnly + Critical, strProcNamnResume DonEnd !  Fu ncl `r+`k00 t%`pG`l$vꀆ` @ʘBʘ BʘHB (o ( SxME8f0:> LLLPL` K[ @ @ @ @ @ @ @frmCalendar%+p`kX ,, ir `tTin, +x(` k <<5ir `tT zP ubli% ^`kh qiens )d staa%+|`Fk <<w){ 000 %`~x I`tin, `p`8C9. nH(lx 8`pl oo.H`r\ tVvZn\r^`@D (@@ @P0 @h @ @ @ @ @ bi0Xp(@`xl `r\ `vZ|bnr@@ , Vo@> @4 %@0 @ %h(x(`@@^l keP( jh set@\ F@L gard@< if @, orm.@ 3 Ah P @ `|z +@l ^ y).  @h @( X @H @F $= *\R1*#a*\R1*#91*\R1*#a$*\Rffff*0L3ddca227$*\Rffff*0H3ddca227*\R0*#13*\R0*#12*\R1*#19*\R1*#99*\R1*#98*\R1*#25*\R1*#92*\R1*#8f*\R1*#16*\R1*#8f*\R0*#14 28 6@ ,x ,  B  & 40 2h & 8  6 ,8 ,h   0     (0 &8 ` 0x .@   0 6H  )4+  B  2 2H 4 6 8 6( (`  & 4 2 &  8H  6 , ,  0  P px      &  0 K[v1 0 8 @  4H 0       0 00 6`  ( 0 6   ( +8 P  X ` h Bp 8 4 &8  B ( 0 8 @  .H 4x . 8 2 P  h 6x F  6 ,@ ,p  0 6 6 H  2h 2 0  , 28 2p 2 2 4 P  ` p     $  * (0 8  @HP` hx)Use database order for string comparisonsC_C@0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex).c& Copyright 1999. All rights reserved.O]D frmCalendarNT This is the public entry point.- If the passed in date is missing (as it will+ be if someone just opens the Calendar form raw), start on the current day.2 Otherwise, start with the date that is passed in.0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved.]x* If they passed a value at all, attempt to use it as the start date. r$v Z'td r$ r'td OK, so they passed a value that  wasn't a date. ) Just use today's date in that case, too. Z'tkHk@  nX \Z t rB@V Stop here and wait.* If the form is still loaded, then get the/ final chosen date from the form. If it isn't, return Null. n$^ n$`!'p b n rB@Bd 'pki+ You may not want to use the acDialog flag.+ For example, if you want to set properties. of the form as it's loading, you can't really/ use acDialog (unless you do some ugly OpenArgs1 handling. This example opens the form invisibly,0 allows you to modify properties, and then loops" until you close or hide the form. This is the public entry point.- If the passed in date is missing (as it will+ be if someone just opens the Calendar form raw), start on the current day.2 Otherwise, start with the date that is passed in.0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved.LN* If they passed a value at all, attempt to use it as the start date.]] r$v t Z'td` r$Q r'td@ OK, so they passed a value that  wasn't a date.. ) Just use today's date in that case, too. Z'tkk. Open the form module (effectively, loading anIN* instance of the form, as well). Then, set properties of that form..z z(6 t z(R) Call the ShowFormAndWait procedure. This* returns True if the form is still loaded,/ but invisible, or False if it's been unloaded.S z$|KG* If the form is still loaded, then get the/ final chosen date from the form. If it isn't, return Null.2 z!'xKc b n rB@BK[v1 @ @ @ @ @ @ @d'xki b(FU2 Returns True if strName is open, False otherwise.. Assume the caller wants to know about a form. j d $h'^2i] ]8]P( Take an opened form module, display theL. form, and loop until the user closes or hides( the form. Using this technique, you canS1 create popup forms without losing the capability+ of modifying properties of the form before~1. displaying it.t In: B/ frm: An opened form class module reference Out:DE@ Return Value: True if the form was hidden, False if closed.0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)NL& Copyright 1999. All rights reserved.C* Note: In order for this procedure to work0 correctly, the form you've opened must have itsK/ Popup and MOdal (OK, Popup isn't required, but Modal is) set to True..+ Note: Because this procedure relies on theKKI+ form's Name property, it will not work for) forms that have multiple instances open.% Check for the form closing or hiding+ every adhcInterval times through the loop., We've found 1000 to work fine, as a balance+ between responsiveness and not sucking the+ life out of your application. You may want- to change this value to suit your own needs.]h z!' z(_x   A@  Is the form still open? $^'~x k $ OK, it's still open. Is it visible? z!'~x k 'k  ' ~'|i x +Attribute VB_Name = "basCalendar" Option Compar@e Datae 'Use dorder for sng cbisonsExplicit ' From Access 2000 Developer's Handbook, VoluI2by Getz, Li@twin, % Gilbert (Sybex)'Copyright 1999. All s reserved.PrivaCSt adhc}ForNs S#gfrm Pubf Fun&cDo( _ al ByVvarStarte As Variano= 8tha e' wasn' JRa$todayH[A caALxtoo%!ETu IsRcV Objp.HTypAc=ǔ! ' Rr P`, oP"kc'@Os!#cwq@o know abouAE! PsCmd(acSysCmdGetObjectState, _ inTypXstrName) <> 0) End Function @Public$ ShowFormAndWait(frm As $)Boolea:kDim blnCancelled lngLoopLong9Stri ' Take an openZf moduldisplay the,d l6until user closes or hides . Us@is tech K[v1 @niqu3you cv' cre popups without: epab ility3of\ify1prhhrtiGfP@ xO AG%enamenMaxW[ Tit % (Dialog&Flagsk (DefExt aault IHnit*DiCur|U' D idn'tuink most peop6woul d wano deal wy'Ase opns.hInsthancR0@,C`ustomCh-">"A`FlpfnHook 0End Th QKIRMVDOJZKVODLUCJBHIYFKTEDB:dQRRBRPKNBANRCENWNPGO_SHXHOPE: #xRULOQTJGNAYJMDOQTSGAKHFWDXY_:=SLWEAAMVUIGZWDTIKSBTGFEOYFJH:"$GP[LS S6 <<<N0{D114FBFE-4439-4284-B5B6-D790B3AF2308} (% `lk0 % %x8rcrs@l onP00xPp$= $*\Rffff*0G3ddca227$*\Rffff*0K3ddca227p4r8t<x@D "  0x0$ (ZoXP!Attribute VB_Name = "Form_frmCalcTest"  Bas0{D114FBFE-4439-4284-B5B6-D790B3AF2308} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT P&* Sub cmdGetResult_Click() Me.tx \adhDo End ʘ      !"#$%&'()*+,-./0123456789:;<>?@ABCDEHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~*HRSJKul W&`I_SZ/5`F^P. JB9ݠa!K[v1 @ @ @ @ @ @ @xP. JB9ݠaW&`I_SZ/RRMEL @[LS SH">LLLLLL2`P?Tk`d1IIi: i<`x`v f03`Akh2Li  p4`Bxkl3k,!hCT+ 4ri  b4@b06@bX<@b$pCb&Cb(Cb*CB,BB.BB2B x88Xx88 x H08 x x 8x8 8 888xxp x 0xp  P x 88x 6@x >hP6@x x >6@x X8#K[v1 @ @ @ @ @ @>x`6@x 0>6@x > p 6ta Objc@x etx@!>.5 forD"!6nt Sere@x nsX8">CDO Fo ##6tomatin@x MiP$>t DAO . %%6ct Liba@x ft%>icrosot&&6 Data n@x Exx`'> Format0((f Repor @x .0X 8 (>icrosot)lt Envio X*>ML Pag (+@++rgnitio@x Di@h to +>$K[v1Microsf,xMicroo x h->ibrary .~"0z alBX 8 .>ctiveXD/col 1.  H0>ActiveS11fon of S@x y 1>kerXAo22forks AI@x arxX3> 2.0 It(44fediterA@x PX84>er Insa5oggerpP6>Applict 77frApplc@x or7>ce Expo8ibraryaH9 Type i0::H:`::$&i@h Wp@:d L@x:T ud@D .0@4 ar@0 ro`;H;e Librr@x Ty%K[v1 @ @ @ @ @ @0<<*pe Lb@x AT==<&.0 Tp@0=x CO@H=t s @p ry@l 0 0>>H>>>&DDe@`>X e @x>T ok@>D pe@@ oR@< 1.@>, ra@> t @> ib@? ac@ ? Li@ d@8? it@ ui``@H@x@@@(f6l@ @t Ouu@r @ @@l @h @X Qz@T F?~0k@.@2,@x!L;AAHB0BABB& 3@x ;z@t @p A"A4((@`B` ro@xBP \V@B@ io@B0 D@B n\@B L.@ @ ilCC$ary@x BxDDDDxDDDh  D``Dl s DxDibr`DIASper CO @h 1.@d ra@T DI:55 8p8p$g`$= $*\Rffff*0F3ddca226(*\Rffff*0F3ddca226\0*\R1*#99*\R1*#98*\R1*#25*\R1*#8f*\R1*#3a*\R0*#13*\R0*#f*\R1*#1*\R1*#48*\R1*#39*\R0*#20*\R0*#10*\R0*#1*\R0*#14PTX\p`rdthxlzp|t~x|vu28 6@ ,x ,   (0 28 p    "  "   "  "  ( "0 8H " P Xh "p x "   &K[v"  "   "  "  ( "0 8H " P Xh "p x "   "  "   "  "  ( "0 8H " P Xh "px "   " ) "   " "   " (0 " 8 @P "X`h " p x "  "   "  "   " ( " 0 8H "P Xh " p x "  "   " " "  # >0P X*hx : "  "   "  (8H?Ph px "       # ?@g KH h p x "                 0  8 @ 6P  p                  "  60  P `                     (  8  H X  h  p                  "        *0  H *X  p  x    @        83@HX `px<   "    B # )Use database order for string comparisonsO_S@0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved'K[v1 @ @ @ @ @ @.]@]@]@0]@ ]@X]@ '$'&'('*, These constants just aren't there for us...]D]D]D]D880A@6o0x : <A@>o1A@6o8 : <A@>o2A@6o : <A@>ox3A@6op : <A@>oP84A@6o0x : <A@>o5A@6o8 : <A@>o6A@6o : <A@>ox7A@6op : <A@>oP88A@6o0x : <A@>o9A@6o8 : <A@>o+A@fo : <A@>ox A@lox : <A@>oX8 rB@Bo8x : <A@>o A@xo8 : <A@>o A@~o : <A@>ox A@o : <A@>op8 /A@foPx : <A@>o0 =A@fo8 : <A@>o*A@fo : <A@>ox (o : <A@>op8-A@foPx : <A@>o0A@o8A@ox] !' $   $  (k B@< !$ $''dp &' !. 'k@o8 (A@o (' *'oP  &0. ( e !. (k' &'ox]]  & ('k0 !' ' !  (   $ 0 . !$  (k &'o ]] < ' : 0 - 909LT  : Handle Shift-8 ("*")0 KT B@*A@fnd :$ 'cmd $B@ A@6kx Backspace KT B@A@l KT B@A@~ Numpad 0 - Numpad 9  LT :  0$ $ 'cmd $B@ A@6 Period and Decimal K 0KT B@A@ K .KT B@-A@f KT B@*A@f KT B@+A@f K 2KT B@/A@f ,K KT  B@+A@fdh B@=A@fk@ KT B@A@xno  &  'k  !$' e !$' +KT   '-KT $4 $4 '*KT  '/KT Can't Divide by Zero  CalculatorA@d  'k=KT 'n $  ('kX (' ' o@0 ( $'''op !'mƴAttribute VB_Name = "Form_frmCalc" Bas0{01B59035-1F60-46B1-B9B8-DA5ED41F1BDC} |GlobalSpacFalse dCreatablTru PredeclaId"Expose_TemplateDerivCustomizD$Option Comp@ DT ' Udorder for sng ciso0ns "Slicit ' From Access 2000 Developer's Handbook, PVoluI(K[by Getz, Litwin,  Gilbert (Sybex)Copyright 1999. All s reserA.A!P@D@F LastInput As Integer EDecimalFlagNumOpsOp1DouwGOp2SBQA(Enum S"t@, csQNon0 u4ms@1 )= 2Clear@ 3 End a' ThJrnstants j@ @n't there{us..RJC|t vbKeyEqual&HBB>Minu(DZP@o@ERSPlashFIKSub cmd0_rC@k(@KAle5F "0`vDown(Code6C, Shif)F w[$,111_` DB222Wh.333s _B DaX444555 6 \B6 {ac6 Vd_B?,r_Bf@roI%!7 7  7   o P_B8 8  8_keyd?Xqz   iv9 9 X?    Ad"d/ leOatorn+O H 1o ?o o o o j Back leqs1_%W%   d77!Cancel+ DoCmd.Cl0     ሤ$_X/lerr!? ? ? ? ? ubod Entry  3 @¯ l ؒ_e% ivide ~D/DxDDc s  lick "=" End Sub Privatep cmdEquals_KeyDown(Code As Integer, Shift") HandleNumberPress xbMultipPly_C( QOperatorx "*H{iOK ]Me.Visible = F=eWtract \-\?0gForm_ActBEInitCalcZB Loadf Backspace Dim varCaptionAVari8antӁ= lblReadOut.D If Not IsNull( ) Th 0 HCle@7Ɍ/ "^AJ EntryD 6%p#Z @; <> E6@-?L= "0.D 7 UTP_ &6C=R = TruE! `Ezj{?+Aa@If vC% =MCROSd`6 A@ G1)20" _3bC;4O:= 0'QMid$?n, 2>1?"Q?"U#3o3"__rx#Char7%s1#U?DS*= &(䔠acMaskSelect CaseՔCq'- 9b48 To 57gpz;1gh[Eq' C-8 (p4 yU x+ 8; .SetFocurRB2 iu= Ch r$U!o Me(" "2 )_ v &2I <  ?9' vb+0 As_ҌDPthrnOHg%' @padr++ Bo /-)0 +P8c("0")|??a .0 ' Period @ T]P3,S 3wP/ s4 I'Sub2Min=5E6 ey< =: ce ExpoD(  rxME$8f:> LLL<(<,<0<4<8<<<X+X` k   ^` k  iight)dfra%THR8)K[v1 @ @ @ @ @ @ %`l h@T\r^`b@h frmCalc?@`@xX@xX o @H as@8 E@( L@$ l@  la@ tr@ e @@^l INsteatijhHL0@(\ `Y@XL x@p< @, e@ `YpX$= *\R1*#a*\R1*#a$*\Rffff*0K3ddca227*\R1*#19*\R1*#99*\R1*#98*\R1*#25*\R1*#92*\R1*#16 &28 6@ ,x ,  B  2 60  6h , , &<  (  )H "X 4+  B 8 4@&8x )Use database order for string comparisonsAKH@0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex).c& Copyright 1999. All rights reserved.]DfrmCalcx, Load frmCalc in dialog mode, and return thek (0 calculated value at the end of the use session.0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved. TX \Z rB@V: Stop here and wait. T$^ Retrieve the return value, then close the form. T$`!' b T rB@Bd('ki bX2 Returns True if strName is open, False otherwise.. Assume the caller wants to know about a form. j d $h'^iXP"Attribute VB_Name = "basCalc" Option Compare Datape ' Ud 0 M& (0 28 p    "  "   "  *K[vBFX&jY\ rlpNs"aMTCLLLLLL<\<`vkQQi: * =i<====`z ants x`?lk8  i@ X$ Ii  Canc `Azk!i is P `ADk" i n Su`x >!`CXk#  "`D@o $ i  one`hAu H#`hE|k% $` Fjk & i  Ii   j(%`@GHk ' %il  con,!hXHz+hT(/i Ah`I|kX) 3i  var AHhJ|k(\*>i unda,!hJ\k`+Ci y).  &`8Lzkd,G ('`Mtkh-K ph(`Mtkl.O x)`Ntkp/S *`Otkt0W (+`Ptkx1[ ~h,`Qtk|2_ -`xRtk3c .``Stk4gBKB0CBXCb Bb(HbCbCb(4 @bP< @b"x\@b$^@b(b@b.0x  @b2X| @8@X (`hP8x(`hP,K[v1 @ @ @ @ @ @ @ 8 0h(0H@Pxx (H0H  (@ X @ X`  ('0h6 lA@`6z : <.o H.8:1 If thmo@x we kh< uary`<zispl< 0 $b'0>@9 Figuroux x hB `B` z x ` 2h!2>@8"8"p"P"hD `D "z`"8" "4(#4>@#0$#$hF`F#z $##@H$t @`$p @l (%H%`%0%%<BD^`@%` @%P @@ %b"fd42@> @, @( x%0>@&&j@z `'p (t(x)tX*@*-K[v1j@z +~ +t, 8-t. .X..@. .Hf @f-l 0..-F@p.j @h @X X////X//p/h`@/z/X/@/ *< ^b@/h @X @0H @F @ 04 @80$ @ 10B<"@ 1z @81x @P1v @h1t @r 82 2Z@l 3383b204@l @\ 2> X44@4 4h`3z0443^b@p4h @X  @6X6p5X5@565(55BD4@5n @6\ @6L @J @5H 55@5F 65@6D 065@B 66@6< @p68 @4 @$ @6  @ @ `76@ 76%5&p88P8h888778 @8j (87@8h 88@@9d @8` @P @L @H `98@88 @( @9& 098@$ p99@X9  @ 998hH.K[v @ @ @ @ @ @0:t<p=h<;0;<X=<.* t @H;d @`;T @x;D @;4 @;$ @; @; @; @< @ < @8< @P< @ @@= @< <<@ =<@< @= @ <:Zb($&@t (=8:@@p @@>>X>(>,4@p>x @>h @d @>T @D @4 ????j@x ?@v p?~xp?8@@@H ib@@l so@@AP @nerdver DrvAA&B$0(4>@a@z ft8BBBpBDfdP Sev@Bv ct@t 8@Bd ft@T ov@D LACCCCB<croo@z Si@h de@X arDE EPE8EDDDH  2@Dl tiDDbraDcro PKM Fr@d Li@T os@P f@@ ftF@NetShwF(GFGFH t @Fl a GFcesFLibdjMicroo@j Da(HG@HGrt Reps@Hl os@\ to@X Ty@H MIIHI(Ih of`Hz.08II LiHMioft Ser/K[v1 @ @ Jcrosof (Jl BusieK LKKKKh os`pKtSaKK0 TpKibr<BD^crosf@Kr bj@Lp y@n SQ@\ tiLL0Micrs@z rgMMMJict Rs@x ar@t t NNNJt Conr@x ro@t irOOxOJft Tao@x te@t arxPP`PJect Lb@x ic@t A`QxQHQJrosof @x eg@t ssHR`R0RJ Extes@x 3@t Vi0SHSSJFrameo@x ft@t reT0TTJextMc@x Cl@t y +5588Xt 4Ty$= *\R0*#5*\R0*#21$*\Rffff*0H3ddca227(*\Rffff*0H3ddca227\0*\R1*#36*\R1*#48*\R0*#12*\R1*#8f*\R0*#13*\R1*#39*\R0*#17*\R0*#f*\R1*#d*\R1*#0*\R0*#20*\R0*#19*\R1*#99*\R1*#98*\R1*#25;z|~  $(,048<@DHLPpTXr\0K[t`vdxhKl  6 ,H ,x 0 * 2 *@ ,p & (  : .@ p   , ,   0 4H     6 0 8Xhx    8 4  @X  2 &(PX "`  B  "     B  "   (0 B8 @H " P X`hp Bx  "   B  8* "   H(px  ,         ( 8 @ %X  p 8 < 8 <@   ) ) ) 8 4  *H 3h  D           ( "0  8 H "P X ` " h  p  "   "    "   "   "    "  ( " 0  8 H B P &'X  B  6 8    N( Rx*T " &@ <H   @5 , 0 @ PX "` *h 2 " B /h//  B  8&:( " 0 @8x $ > 40 @H PXp A  &(  (08@HPX` h p  " : 2  (1K[v1 @ @ @08@ H X$p    7   "V0 X hx "   "     .> 8H B : : 2H B.<  J 3p33   0     0@  <H $ F  "   0 9@X` h6p;  "     & ( $H p &  "  "  H `  4      0 8 @ ` h $p          0 8@ HP X `           ( 0  8 @ .H x  B    "  2 &  ! !(!0!8! @! &H!p!x! " !! &! ! F! 5" 0"@" "H" 6P" "%" "" B """ *" 4#P#)`# x## "##### B # # ## " # #$ $$ ) $0$8$@$ BH$ P$X$ "`$ &p$  $ $$$ $$$ " % %%% B %*?(%X% "`% h%x% "%%% "%%% "%%% "%%& "&& & "(&0&@& "H&P&`& "h&p&& &xp0 From Access 2000 Developer's Handbook, Volume I% by Getz, Litwin, and Gilbert (Sybex)& Copyright 1999. All rights reserved.* =========================================# Constants you're likely to change:+ Some folks like the buttons, others don't.$ If you don't like the OK and Cancel& buttons, then set this constant to be False. The fo2K[v1rm disregards this" value if it's shown as a subform.]D3 Assume that the week starts on Sunday, unless told' otherwise. Change this to another day,0 if you like.0-]D 00% Color to show weekend and week days.ys& Change either one to suit your needs.Au]D 0on]D 8P* =========================================. They didn't seem to make this one a constant.A4]DX0# Interesting monthsles]Dn ]D`sy0 Constants used to control movement on the form.* These constants match the interval values needed by DateAdd().]Dd]Dm]Dyyyy]Dww 8''@ Module-Public variables.]@1 Set the first displayed day of the week. In the- US, this is Sunday (1). In other countries,9 use the appropriate number (1 == Sunday, 7 == Saturday).]@(]@P]@P Store away today's date.]@x]@]@, An array to hold the lengths of the months, all stored in a single variant.]@]@ Show OK and Cancel buttons?]@]@0]@]@X .'6m@ '. . 8( . :(mh 0'<m '0A>A@m( 2'Bm '2A>A@m 4'DmpH '4A>A@mH1 Convert a number, up to 48 decimal, into base 7. H H 'Fi(A Called from Click event of the next/previous month/year buttons.]]]]]](\X& Get the current values from the form. !<'R !B'P !D'T N 'Zd'Zk R P T$^'X L Z X$`'V N  V X 2 This should only happen when you go backward from5 1/1/100 to 12/31/1999. Just a quirk of Access' date2 handling! Actually, I can't make it happen at all5 in Access 2000, but it never hurts to leave it in...|xkp  V$b'P  V$b'R  V$b'T1 If the month and year haven't changed, then just. move to the selected day. It's a lot faster. !B P !< Rlbl T "$fA@ddp> Set the values on the form and then display the new calendar. T'4 P'2 R'0A>A@kh|\ho@lA@joApo : <A@tox@Axo` : <A@to@ lA@jo @ A~o : <A@to Ao@ : <A@to     $F 'fix` / Get the number of days in the passed-in month.1 If the month isn't February, we know its length.   $*'dG Since Access knows the leap year stuff, let's let IT do the work here!L Get the last day of the month of February for the currently displayed year.  !< $^ $b'ki  Actually display the calendar.] 5 Let's make sure we don't end up in here recursively! G|j'9 Figure out the starting day of week for the given month. !B !<$'"& Finally, really display the calendar. "A@ B@'o8 # Given a value in OpenArgs, or not,, set the initial value of the calendar form. !$ !X'd Z'kAox < Store away the start date values (mdt3K[ @ @ @ @ @ @ @mStartDate is Public).  $b'2  $b'0  $b'4A>o@ 2 Calculate the first day of the month in question.w R P$^ $b'i X : Turn on and off buttons in the currently displayed month.] ] ] ]] !B$'7 If the chosen date is past the last day in this month,- then just select the last day of this month. !D  '4k '      lbl1 $(d0  'lbl  ' $  59k 9d 59k k q k  oh 03 Set the labels for the days of the week correctly,, and set up the colors for the weekend days.]p]]]]]  '       '    'd8 'k( lblDay $ $ 9 9q  lbl  $(  o  : <A@to` ] Initialize properties. '.' Initialize the array of month lengths.D '*2 Initialize the array of day names. No matter what; the first day is set to, fill these in with Sunday through4 Saturday. Code later on fixes up the display, given4 the first day of the week. If you don't want to use, the first two letters of the day name, then< you'll need to fill in mastrDays with some other technique.   $$  +  D Get today's date stored away, so we can get back here if necessary.  Z$b'(  Z$b'$  Z$b'& ') If this is a subform, hide those buttons$ 8( :(d . 8( . :(k5 Fill in the start values (as passed in from caller).A@ Fix up the calendar display.A@? Display the Calendar (which gets its month/year from the form)A@@o , ,   ,$(kk ',  ,$( ,$!'4 B@oH` Key Mappings: Leftarrow = Previous Day Shift-Leftarrow = Previous Year Rightarrow = Next Day Shift-Rightarrow = Next Year Uparrow = Previous week Shift-Uparrow = Previous Month Dnarrow = Next Week Shift-Dnarrow = Next Month PgUp = Previous Month Shift-PgUp = Previous Year PgDn = Next Month Shift-PgDn = Next Year Home = Move to Today- Shift-Home = Move to today in selected year.] <  ' : KTlA@j KTlA@j KT  Use the selected year.A@d Use the actual current year.A@kX KT Ad8A~k( KT AxdApk KT  Move to next yearAxdAk KT  Move to previous yearAdpAk` KT  Move to previous monthA~d Ak KT  Move to next monthApdAkn( Tell Access to disregard the key press.':ox A@diXx, Month and year get filled in from the form.4K[ Go to the stored current date. & (B  $'0k ('4A@> Actually display the calendar.A@@o]8 Fix up the visible day buttons. A@? Set the right button as depressed when the month is displayed.lbl !D $f' A@doP0 Set the display values, based on the properties of the form. !B$' !<'o0]# This action will trigger a runtime- error if the form isn't loaded as a subform. !!' !' B@ipAAA@oHH A@dlA@ji$ l (d rB@Bkko( 'm Set the first day of the week. Fix up errant values.   'k 'A@m 'A@mH !< !B !D$^'mAo  A@Jo`(  A@Jo8h  A@Jo  A@Jo  A@Jo(  A@Joh  A@Jo  A@JoxpAttribute VB_Name = "Form_frmCalendar"  Bas0{57A73CC8-93FB-4160-A66B-A38503B9EEF8} |GlobalSpacAIFalse dCreatablTru PredeclaId"Expose_Templat@eDerivCustomizD$Option Comp@ DT  > Then;'is should only happen w yo@u go b+fHrom 1/00 to 12/3999. Just a quirk of Access' dhandling!tually, I can't makPe itGa(ll in+ 2000, butnever hurtsKleavA#in...Ex-SubErPart(adhcBpStsVDc Ay S /  "' tPhe m L y@EveIcPged,n j;^ mA@se5K[v1 @ @ @ @ @ @ @@lected@`y!gIt'sglot fasterFMe.9'A_A8E;KHreIndent "lbl" & 52ButtonA‘@, mSt@TDOWO' SetB u_E mLen<T(diPe/! 0t@pctstuff,@ ql IT dowohere!clpstvy krcurr@qDk`x!|$ak!b{6SADx,!MarcP1) - 1UԌ?#b;wj5b'pCucau)tic fInH$Boo3@%Lesure do"z up%a resively$7х K= cQFigaosх@week gn 0&FirstDOM(P4, n`p.reqSho=pyspRepaB y9~FillIZnrBV"G a OArgs, or noDt,' sT?iƐ+!5amstIsQ(e):m C{:]At,A2UpPubsl`AFSto(awUf"0"0({pу)""! !  8l]1=O b?=@/ U=@cPl/p( j' 7/d' @cul1f!47Q} dqsY"w",ute~,`NcNNFix`q`*ypurn 2on and off buttons in the currently displayed month. DimtRow As Integer 4Col4NumDaysruntstrTempStri0ng intV= ]InM(Me.)' Ifhosen date is past lday {,n juseleco-7AI >aRThen*_m[_=EIfsCo= 01For= 1 To 6 +w7'(D) A@A <Start@&) ,Me("lbl1" & ).Visible = FalseKEN 5+ 1 |= D/ With )@BF Not =IIGTruG ~.Capti+OO? \ ;u5NextMA SubaAfPriv| @FixUpD(C@#' Sexbels fi!@s bweek tco@c@fas upcolorei @ kaYTLog0ical4Di/@qC@rolglng`eLo8c@b b = !Firs -As#Z= (e+7" @ ) Mod 7)> *~Rf6) 00s= adhcbW 81CObY`8H:!a`3(gumur`s!L.G3= ke1H$P)r!6`7u7orm_KeyDown(pCode(t, Shif)H6leP s Mto, PfillsnD wtSunt@hroughSaturp. "lWr jfixes tR, gtiv5' e 1T.you don't waato ut|wo [Q Q,S' '0 n~epv9Cs ome o`r technique!b6@HH=1JLeft$ _-2(H0 N(i&,Pi#UOf:=vb)+6w*JGko0'sstorp away, soP can gpback herf necessarycE-]ayT D5PО(QSIStdr,tet`Yeardhcnt-)Czfs6eg3cS6@a sub{m, hiFt0eLoade@dAsSub0m(cmdOK(,3@/ke[D# QOvfEy.'$p,Ts vHalu6(aRsC!fromP!l0ler)%,P=InV"'&:sarהw<CapNd(which(tss/y$ R bGbd&4qϜ  a(Ind@(NewS@S! `m@ed) > ̓`) <> joptJ.SpeccEffq+cNP aԖ!}=c`CkT14<0=$c5Me.Repaint End Sub P@rivatep HandleKeys(Code As Integer, ShiTft")~ ' \ Mappings: ( Leftarrow = Previous DayV-%YeaBr&RighGN8extC" @UpaBweek CMonthDn"AW  PgU>p   `Pg|Dn< HomeMove to Tod^LtA in selected ya.E{DimDownBooplean2=H ((B AHIFT_MASK) > 0FSB CaseC[ABvbEscapeGBloseForm HideIt:=Fa ls Retu.r( CTrNuRAHIfAThe' U4xtheR fToBf L0E4 actual currentEk?  !AIfg''PageUp Call}Qsh\HNe Baj#ZWb' 6vne pk? @pX1 _ዿB1Ydm)1Dry 2_^Z% r2 1_ ;!  C_!%' TeBAccess.disregard Skey #sshoQ`1b m0Functioned(strNap StrhSIndSD6K[v_myZ( ^CsWa+p# Y get fi ll`u vfrom RfPl&v' Gocctor]dm`?}j kj12 =  5tx#SetDisp0layD ' Aily calendard #Show(`S@tǧnewFix upRvisible А button&@sIn8RriP as de*w0"5 i ed = "l bl" &Q2B(,tU:+x (d ' u valu es, bRd @4!(properties;of D+Q4txt= k/6 B0'  ;LoadedAsSub1E a< On Er Resu>sK% Th Aw7 0@gp a @runtim'4 e"i'n't lQa sube.PzaQ.| `4(P .Number!AC 7GSRe3r4lUpPub8licb0-Up6S b7J35"8oTnmTq owO6(UMNot N" [N`{ P(VT@=}nDoCmd. !1 q0+B#`4y G_FirsL()A ߥ@!1Wc2PS8pPwLy _ PKNPRٱ Integer) ' Set the first day of@week.Fix up errant valuesDIf intNewStartD< 1 Or _x :> 7 Then >= 1End If m$F`= S"RedisplayCalendar AProperty Public   LVf(dtmaDate As m l = :G:)6%E =?Serial(Me.@Year, MonthSs@Sub To(eFl MoveToUseCu rrent:=TrueHLNexwhangeBLadhc@"$St'dtForwardC`12({+W@'Previous@IOBackPQO c?(,`<? # (: ]@X .'6m@ '. . 8( . :(mh 0'<m '0A>A@m( 2'Bm '2A>A@m 4'DmpH '4A>XXISMAEIQXCIXDSTAWOP_JLRWSOE:%2YZELFXJHXJXHZDMYRGFGJADGGBII:PROJECT'vPROJECTwm) +xME(6 x+.``@$k@i0 +4`<@p 7@` @\ @L @< 0`@x`  8 `BxP BDJ<ʘ@x ` @` P B@N 8 C@ < @ , @  @ @ x@ @ @ 8@ @ (  `Lx  l@@ p @X l @p h ure.@ d @T @D @ @ @< e to  `Px orm.><  y@ h @8 X @T @D @4 X X `Vx X@(`Zx str @v J ter @d @T x $= $*\Rffff*0O3ddca227*\R0*#f*\R0*#12*\R0*#102 B 8@/@>8 B  8<1X,`( 0= 8  08@H.P( 0=0$9@0H$9x  B  %  B  J &@ hp x         (8 @P Xp x  4j  B (Fa0x B  8<18,@(p 08K[ @= 8   (.0(` 0=.<  0=@ p x   . 6  0= ( 0 *8 h   *    * 8 P h *p     $ *7 P X ` B h  p           B  D 2( `  h  p                 8 @P X h)Use database order for string comparisonsP_J 0 0, $ '25Get Firstname and initial 2 2  $ '.5Trim off Middle Initialei8`]] 6$ >$ <'62 Convert TextIn to lower case 6$ $  6 2 Capitalize first word_ 8 6 '8@ check spaces 82 Capitalize subsequent words 6 8 $ $  6 8  8 6 5 Add period for middle initial 6. '6kk 8_ : 6-':@ check dashes :1 Capitalize subsequent words 6 : $ $  6 :  k  : 6$ Mc4 Handle the Scots 6$ $  6 k 6$ O'4 Handle the Irish 6$ $  6 kX 6'4iH 0 0, $ '@iPC This function accepts a date in the "mm/dd/yy" format and converts it to "month, day Year" format]] D$B'H HRTJanuary'FRTFebruary'FRTMarch'FRTApril'FRTMay'FRTJune'FRTJuly'FRTAugust'F RT September'F RTOctober'F RTNovember'F RTDecember'Fn@ F D$D$J, D$<$J'F F'Bi]@ 6/'N N 6 N $  $  $  6 N $  'Ld 6'LkpihX]]]] 6$ >$ <'62 Convert TextIn to lower case 6$ $  6 2 Capitalize first word_ 8 6 '8@ check spaces 82 Capitalize subsequent words 6 8 $ $  6 8  8 6 5 Add period for middle initial 6. '6kk 8_ : 6-':@ check dashes :1 Capitalize subsequent words 6 : $ $  6 :  k@ :_0 R 6.'R> check dashes R R 6 Q Capitalize subsequent words 6 R $ $  6 R  k R'R_p R 6#'R> check dashes R R 6 M Capitalize subsequent words 6 R $ $  6 R  k R 6 Sw 'R/ check dashes R R 6  SW 6 R k` 6 Nw 'R/ check dashes R R 6  NW 6 R k 6 Ne 'R/ check dashes R R 6  NE 69K[v1 R k 6 Se 'R/ check dashes R R 6  SE 6 R k( 6 6 $ 'T T$0 T$9 6 6$ $  6 6 k 6'Pi XMMr. 'V XFeMs. 'VdH 'Vk0i(x= This brings in a Number and returns the word for that number+ This assumes the number is a multiple of 5 \NTFifth'Z NTTenth'ZNT Fiftheenth'ZNT Twentieth'ZNT Twentyfifth'ZNT Thirtieth'Z$NT Thirtyfifth'Z$OT \$J'ZniεAttribute VB_Name = "CODE" Option Compare Database 'Ud&)B M)G>A+= Leni 0' Add periodmidAc&+ ".gIf$Loop WhiZ  8 Q77-Sh' #8dYe+88AL8*,s'g`7o1)7_%%`0\qElseoshe( ?`tee@bOingۖiMv:otԳSeVdabap !# n`c[a[0cyr"[`qP%a0 Tbz% 1,,2   E #گ !.#D+JQ8s $ qϱ/ Mid$(TextIn, DashLocation + 1) = UCase$(,T)  End IfLoop While 8Do7Dotz= I`nStr( ,B ".")l' check desMIf <A < Len) - 1 Then( ' Capitalize subsequent word7 g $x p= 0 P #XXWLM WEQ1ሣ Sw KjJ#l, 4=" SW " C|-NhNEe-%YxE-S-!)•SSecondLastMlgCcYAsc(') >= 48 a--<= 57 ?A tάi^ eeAitials  FunBcaJ e Title x As ing)#GSex "MN" "r.&Clse $DFWsJc P mMYEARWORD(ye arnumaInteger' is brs in a Num ber a0rreturns thBen foraLt @ a`ssume Pa multip~of 5 @Selecttse  Is < 6GQ FifthdNG11_qQTz_]1eeMS 2Tw`i6e 2OyfoT3_hirt___ =32&87ed) > ̓`) <> joptJ.SpeccEffq+cNP aԖ!}=c`CkT14<0=$c5Me.Repaint End Sub P@rivatep HandleKeys(Code As Integer, ShiTft")~ ' \ Mappings: ( Leftarrow = Previous DayV-%YeaBr&RighGN8extC" @UpaBweek CMonth8H2 oXDlOL-)#D<>Ov:K[v1 @ @ @ @ @ @ @#樴nD$x樴nD$DlOL-)#MEP[LS S>L<<N0{3E3C44FA-A1F0-4FA4-BDBB-76DE1F231EB3} X0(%` % % L`@hk bH4@bJ< @HFPJ:HN@l @h ``\0$= $*\Rffff*0J3ddca227*\R0*#12*\R1*#48p@rDtHLxP " ( 8@X ` hp x]]` J : H 'A'JTimer !N( d :'H'JRunning !N(kpoh`Attribute VB_Name = "Form_frmTim er" Bas0{3E3C44FA-A1F0-4-BDBB-76DE1F231EB3} |@GlobalSpacFalse dCreataDblTru Predecla Id"Expo se_TemplateDerivCustom izD$Option Comp@ DT Dim Start As Dou_ Running Boolean 0 P=A S@ub cmd_Click()  If The txtRe0sulty -8 = U Me...Caw]E_ .=~ B CX{ End If@7 ID="{F88FAD3F-EF02-478B-BC12-11308141B428}" DocClass=Form_frmCalc/&H00000000 DocClass=Form_frmCalcTest/&H00000000 DocClass=Form_frmCalendar/&H00000000 DocClass=Form_frmCalendarTest/&H00000000 DocClass=Form_frmTimer/&H00000000 Module=basCalc Module=basCalendar Module=basCommonFile Module=Utility Functions Module=CODE Name="UsefulStuff2k" HelpContextID="0" VersionCompatible32="393222000" CMG="BEBC6D2EAF6E5472547254725472" DPB="5F5D8C918C932C942C942C" GC="0002D3D4D4D4D42B" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Form_frmCalc=0, 0, 0, 0, C Form_frmCalcTest=0, 0, 0, 0, C Form_frmCalendar=0, 0, 0, 0, C Form_frmCalendarTest=0, 0, 0, 0, C Form_frmTimer=0, 0, 0, 0, C basCalc=0, 0, 0, 0, C basCalendar=0, 0, 0, 0, C basCommonFile=0, 0, 0, 0, C Utility Functions=0, 0, 0, 0, C CODE=0, 0, 0, 0, C SiForm_frmCalcForm_frmCalcForm_frmCalcTestForm_frmCalcTestForm_frmCalendarForm_frmCalendarForm_frmCalendarTestForm_frmCalendarTestForm_frmTimerForm_frmTimerbasCalcbasCalcbasCalendarbasCalendarbasCommonFilebasCommonFileUtility FunctionsUtility FunctionsCODECODE $ PxAcessVBADataForms @.P_;l;0,P_;;Blob o;K[v1 @ @ @ @ @ @ @``x`ͬ5`F^ܘDetail0eBox28eBox27d lblReadOuth cmd1h cmd2h cmd3h cmd4h cmd5h cmd6h cmd7h cmd8h cmd9h cmd0h cmdDecimalh cmdEqualsh cmdAddh cmdSubtracth cmdDivideh cmdMultiplyh cmdClearh cmd 029abcgh> ijE$k=@$n`E橯. UCalculator"[Event Procedure]"[Event Procedure]h53` Detail0*#PO$e.e15]`babcb Box28@@!>}e15]`Zabcb Box27'-|LCvyd5U7`ZaZb chd e3lblReadOut Tahoma7KKSrh15"`abhcmd11"[Event Procedure] Tahoma"[Event Procedure]'A|OvTh15"`abhicmd22"[Event Procedure] Tahoma"[Event Procedure].͕Y@Fh15"`abhicmd33"[Event Procedure] Tahoma"[Event Procedure]"[Event Procedure]R{mtE-h15"`a8bhicmd44"[Event Procedure] Tahoma"[Event Procedure]):J@jh15"`a8bhicmd55"[Event Procedure] Tahoma"[Event Procedure]GH B_zh15"`a8bhicmd66"[Event Procedure] Tahoma"[Event Procedure]6pFE5|xh15"`avbhicmd77"[Event Procedure] Tahoma"[Event Procedure]}IE.3(zh15"`avbhicmd88"[Event Procedure] Tahoma"[Event Procedure]gM4Nh15"`avbhicmd99"[Event Procedure] Tahoma"[Event Procedure]C6GuCQ߳jh15"`abhi cmd00"[Event Procedure] Tahoma"[Event Procedure]eGuئ&Mh15"`abhi cmdDecimal."[Event Procedure] Tahoma"[Event Procedure]V!fJFy0<Xh15"`abhi cmdEquals="[Event Procedure] Tahoma"[Event Procedure] iCm6IM6r-h15"`a8bhi  cmdAdd+"[Event Procedure] Tahoma"[Event Procedure]X@C"Qh15"`abhi cmdSubtract-"[Event Procedure] Tahoma"[Event Procedure]sMӖh15"` abhicmdDivide/"[Event Procedure] Tahoma"[Event Procedure]ԃ8 O&l 5Mh15"` a8bhicmdMultiply*"[Event Procedure] Tahoma"[Event Procedure]%_`ߦGu]ۻh15"`avbhicmdClearC"[Event Procedure] Tahoma"[Event Procedure]SiK}uPh15"` avbhicmdClearEntryCE"[Event Procedure] Tahoma"[Event Procedure]*qnqErh1`abckicmdBackPrevious"[Event Procedure]@( Ȥ<K[d _ Z Z O  h  g  < ?>2  l Y"[Event Procedure] ,i(ԙN Ch1U5"`N aZbBghi cmdOKOK"[Event Procedure] Tahoma"[Event Procedure]2 1{F&ZG.h1U5"`N abBghicmdCancel Cancel"[Event Procedure] Tahoma"[Event Procedure],34w^CAZ\ $ $  6 :  k@ :_0 R 6.'R> check dashes R R 6 Q Capitalize subsequent words 6 R $ $  6 R  k R'R_p R 6#'R> check dashes R R 6 M Capitalize subsequent words 6 R $ $  6 R PropData+-TypeInfo1=K[*60;;Blob "ClearEntryh cmdBackh cmdOKh cmdCancel028=Babc(e ghiXj'$kρ B/:@n+GS"{@ U Ariald2 Tahomahgh Tahomam45 Tahoma`p DetailqNp_A d5U`Hab cd Label0Calculator Test}DD m7UF`atxtResult.WKX&H!Ngd5U`abdc Label2$Calculated Result:aDoh1U` aicmdGetResultCalc"[Event Procedure] hA&CjByΝ = "CODE" Option Compare Der@ for sng cbisons FuncFirstͬ9DBא#Detaild Label0mtxtResultd Label2h cmdGetResult Adlext,InkpD,SpaceLocaInteger Dasͬ;(H /d5_7`UabtcelblDay2Mo Tahoma+ɲJC~C4$B/d5_7`abtcelblDay3Tu Tahoma[1$>Jahnd5_7`=abtcelblDay4We Tahomaېo"Af=$`cd5_7`abtcelblDay5Th Tahomake~JCmNd5_7`%abtcelblDay6Fr TahomaلDVI.d5W7` abtcelblDay7Sa TahomaI+yH`9euh1U`abcicmdPreviousYear << Yr"[Event Procedure]( ʦ"[Event Procedure]XtLQAj}Lh1U`h abcicmdNextYear Yr >>"[Event Procedure]( Xwwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]HA_LL(h1U`Zabc cmdPreviousMonth<< Mnth"[Event Procedure]( ʦ"[Event Procedur>K[ve]Xˆg^K0@`0h1U`abcicmdNextMonthMnth >>"[Event Procedure]( Xwwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]H{ çXOogt5yvd5]7`a*bhc lbl111 Tahoma0=HandleSelected("lbl11")(=SelectDate("lbl11")!uu_GF}d5]7`Ua*bhc lbl122 Tahoma0=HandleSelected("lbl12")(=SelectDate("lbl12")ߥ եCƆ[rd5]7`a*bhc lbl131 Tahoma0=HandleSelected("lbl13")(=SelectDate("lbl13")gwB/z d5_7`=a*bhc lbl142 Tahoma0=HandleSelected("lbl14")(=SelectDate("lbl14")[cRM> d5]7`a*bhc lbl153 Tahoma0=HandleSelected("lbl15")(=SelectDate("lbl15")dY uŚLzd5]7`%a*bhc lbl164 Tahoma0=HandleSelected("lbl16")(=SelectDate("lbl16")IهzAyd5]7` a*bhc lbl175 Tahoma0=HandleSelected("lbl17")(=SelectDate("lbl17")wK=@Lσd5_7`a bhc lbl216 Tahoma0=HandleSelected("lbl21")(=SelectDate("lbl21")艎-!G[(d5_7`Ua bhc lbl227 Tahoma0=HandleSelected("lbl22")(=SelectDate("lbl22")%~K8s[XId5_7`a bhc lbl238 Tahoma0=HandleSelected("lbl23")(=SelectDate("lbl23")qD|[Ow2wd5_7`=a bhc lbl249 Tahoma0=HandleSelected("lbl24")(=SelectDate("lbl24") _IDNޞ0dd5_7`a bhc lbl2510 Tahoma0=HandleSelected("lbl25")(=SelectDate("lbl25")֟C^G%d5_7`%a bhc lbl2611 Tahoma0=HandleSelected("lbl26")(=SelectDate("lbl26")\MwAcOd5_7` a bhc lbl2712 Tahoma0=HandleSelected("lbl27")(=SelectDate("lbl27")cN%_d1d5_7`abhc lbl3113 Tahoma0=HandleSelected("lbl31")(=SelectDate("lbl31")FhJ4 (a(yd5_7`Uabhc lbl3214 Tahoma0=HandleSelected("lbl32")(=SelectDate("lbl32")_-|6 @sᯢd5_7`abhc lbl3315 Tahoma0=HandleSelected("lbl33")(=SelectDate("lbl33")ʋ+1IOO d5_7`=abhc lbl3416 Tahoma0=HandleSelected("lbl34")(=SelectDate("lbl34") ݕF=@d5_7`abhc lbl3517 Tahoma0=HandleSelected("lbl35")(=SelectDate("lbl35")G+HU9d5_7`%abhc lbl3618 Tahoma0=HandleSelected("lbl36")(=SelectDate("lbl36")Mi:Nd5_7` abhc lbl3719 Tahoma0=HandleSele?K[cted("lbl37")(=SelectDate("lbl37")87L;) d5_7`abhc lbl4120 Tahoma0=HandleSelected("lbl41")(=SelectDate("lbl41") BmE]woTd5_7`Uabhc lbl4221 Tahoma0=HandleSelected("lbl42")(=SelectDate("lbl42")ͥ< HerS27-d5_7`abhc lbl4322 Tahoma0=HandleSelected("lbl43")(=SelectDate("lbl43")i`8zDC-p8d5_7`=abhc lbl4423 Tahoma0=HandleSelected("lbl44")(=SelectDate("lbl44")Jq~Yd5_7`abhc lbl4524 Tahoma0=HandleSelected("lbl45")(=SelectDate("lbl45")fLS굜|qd5_7`%abhc lbl4625 Tahoma0=HandleSelected("lbl46")(=SelectDate("lbl46")BJ`KZ+Nd5_7` abhc lbl4726 Tahoma0=HandleSelected("lbl47")(=SelectDate("lbl47")IMw@M 1_d5_7`abhc lbl5127 Tahoma0=HandleSelected("lbl51")(=SelectDate("lbl51")WWC E$d5_7`Uabhc lbl5228 Tahoma0=HandleSelected("lbl52")(=SelectDate("lbl52")yJPEVdc'd5_7`abhc lbl5329 Tahoma0=HandleSelected("lbl53")(=SelectDate("lbl53") B1ka'(d5_7`=abhc lbl5430 Tahoma0=HandleSelected("lbl54")(=SelectDate("lbl54")JQwII0^d5_7`abhc lbl5531 Tahoma0=HandleSelected("lbl55")(=SelectDate("lbl55")<:p@/6d5_7`%abhc lbl5627 Tahoma0=HandleSelected("lbl56")(=SelectDate("lbl56")vk!?N^h8d5_7` abhc lbl5728 Tahoma0=HandleSelected("lbl57")(=SelectDate("lbl57")ll(H2L)d5W7`abhc lbl6129 Tahoma0=HandleSelected("lbl61")(=SelectDate("lbl61")Bqx8,?d5W7`Uabhc lbl6230 Tahoma0=HandleSelected("lbl62")(=SelectDate("lbl62")vZ/(Oi# Ud5_7`abhc lbl6331 Tahoma0=HandleSelected("lbl63")(=SelectDate("lbl63")A9M20L Md5_7`=abhc lbl6439 Tahoma0=HandleSelected("lbl64")(=SelectDate("lbl64")3C~]z@,3#.d5_7`abhc lbl6540 Tahoma0=HandleSelected("lbl65")(=SelectDate("lbl65")$cD;bd5_7`%abhc lbl6641 Tahoma0=HandleSelected("lbl66")(=SelectDate("lbl66")CS-TG6Ҁ`^d5_7` abhc lbl6742 Tahoma0=HandleSelected("lbl67")(=SelectDate("lbl67")?8QNM`7^m47U;`abIktxtYear Tahomar EC:2'm47U;`wabktxtMonth TahomaPI`)Ef3U`ab_ Line718 =EJn.h15"`abc;ghi cmdOKOK"[Event Procedure] TahomawhsH@v>h15"`abc;ghicmdCancel Cancel"[@K[Event Procedure] TahomaP!ltD+m<`x`ͬ5`F^ܘDetail0eBox28eBox27d lblReadOuth cmd1h cmd2h cmd3h cmd4h cmd5h cmd6h cmd7h cmd8h cmd9h cmd0h cmdDecimalh cmdEqualsh cmdAddh cmdSubtracth cmdDivideh cmdMultiplyh cmdClearh cmdPropData35TypeInfo32>8;l;Blob ,Day5d lblDay6d lblDay7h cmdPreviousYearh cmdNextYearh cmdPreviousMonthh cmdNextMonthd lbl11d lbl12d lbl13d lbl14d lbl15d lbl16d lbl17d lbl21d lbl22d lbl23d lbl24d lbl25d lbl26d lbl27d lbl31d lbl32d lbl33d lbl34d lbl35d lbl36d lbl37d !lbl41d "lbl42d #lbl43d $lbl44d %lbl45d &lbl46d 'lbl47d (lbl51d )lbl52d *lbl53d +lbl54d ,lbl55d -lbl56d .lbl57d /lbl61d 0lbl62d 1lbl63d 2lbl64d 3lbl65d 4lbl66d 5lbl67m6txtYearm7txtMonthf8Line718h 9cmdOKh :cmdCancel77"[Event Procedure] Tt Procedure]}IE.3(zͬQ̆5"I~F}?DetailpCalendar      02=Bce gh i j%kʡx@@F),AfZଔ\ U,Embedded Calendar Test Ariald2hghMS Sans Serifk1o2p5`0  DetailHn.'Bv%~nzp3U`ab cCalendar Form.frmCalendare) H'h1U`TabGc,g icmdPrevDay<<"[Event Procedure]0(2&@b@6f33" eeeH?GN h1U`abGc,g icmdNextDay>>"[Event Procedure]0(2&@b@6f33" eeeHEC#JC/ر&bh1U`Ta8bGc,g icmdPrevWeek<<"[Event Procedure]0(AK[2&@b@6f33" eeeHz#+ÀMeQM^h1U`a8bGc,g icmdNextWeek>>"[Event Procedure]0(2&@b@6f33" eeeHks^I>"[Event Procedure]0(2&@b@6f33" eeeHK5(H#`Ed5U` abcLabel17Day Tahoma~iGW3ǁd5U` a8bcLabel18Week Tahoma-ÞOrF!jxd5U` abcLabel19 Month Tahoma?8JeXu(d5U` abcLabel20Year Tahoma/[F^kh1U`TabGc,g icmdPrevYear<<"[Event Procedure]0(2&@b@6f33" eeeHV<H-Yh1U`abGc,g icmdNextYear>>"[Event Procedure]0(2&@b@6f33" eeeHesmMK"Uo05]`a cdhen r|A"cboMonthListMonths;0"[Event Procedure]"[Event Procedure] Tahomao05]cdhen 0zHMgcboYearListYears"[Event Procedure]"[Event Procedure] Tahomad5`axbcLabel26 Month: Tahoma[ÎIk5]d5`axbcLabel27 Year: TahomaBmC$ h1U`Zapbi cmdToday Today"[Event Procedure] TahomaD sNxSHU9d5_7`%abhc lbl3618 Tahoma0=HandleSelected("lbl36")(=SelectDate("lbl36")Mi:Nd5_7` abhc lbl3719 Tahoma0=HandleSeleBK[cted("lbl37")(=SelectDate("lbl37")87L;) d5_7`abhc lbl4120 Tahoma0=HandleSelected("lbl41")(=SelePropData79TypeInfo4<l;l;Blob h cmdPrevDayh cmdNextDayh cmdPrevWeekh cmdNextWeekh cmdPrevMonthh cmdNextMonthd Label17d Label18d Label19d Label20h cmdPrevYearh cmdNextYearocboMonthocboYeard Label26d Label27h cmdTodayate("lbl46")BJ`KZ+Nd5_7` abhc028=Babc(e ghiXj'$kρ B/:@hZN`% U Ariald2 Tahomahgh Tahomam45 Tahoma`p DetailCόHiod5U`Hab cd Label0Timer TestBK(fICPk3vm07WF`atxtResultStandardi` ZN0Jgtd5]`8ab9ce Label2Seconds:r[fE&/ͣh1U` ahicmdTimer Timer"[Event Procedure]f9A0sMm.&d{ahoma0=HandleSelecte(=SelectDate("lbl53")PropData;=TypeInfouDirData:?PropData;ͬD<>Ov#Detaild Label0mtxtResultd Label2h cmdTimer(=SelefrmCalcfrmCalcTestfrmCalendar"frmCalendarTestfrmTimered("lbl61")(=SelectDate("lb 0CB0 1CB0 2CB0 3CB0 4CB0l62homa0=HandleSelected("lbl6electDate("lbl62")vZ/(Oi# Cmdbarsl;l;Modules)ODl;l;0Cl;l;PropData 1BHEl;l;PropData 2Gl;l;PropData n.h15"`abc;ghi cmdOKOnt Procedure] TahomawhsH"`abc;ghicmdCancel CancbCK[asCalcbasCalendarbasCommonFile&Utility Functions CODE6 $ 'T T$0 T$ 0CB0 1CB0 2CB0 3CB0 4CB0h ij028=Babc(e ghiXj'3FLIl;l;PropData 4Kl;l;PropData DirDataJMPropData;Reportsl;l;ScriptsNQl;l;PropDataDatabasesPURl;l;0TSl;l;Blob DirDataCustomGroupsVl;l;DataAccessPages l;l;MSysDb"[Event Procedure]XtLQAj}Lh1U`h abcicmdNextYear Yr >>"[Event Procedure]( Xwwwww{wpwwwswpww{wpww{wpwwpwwpwwpwwwwpwwwpwwwwwwwww"[Event Procedure]HA_LL(h1U`Zabc cmdPreviousMonth<< Mnth"[Event Procedure]( ʦ"[Event ProcedurD  @ @ @ @ @ @ @ @       !"#$%&'()*+,-./0 1!2"3#4$5%6&7'8(9):*;+<,=->.?/@0A1B2C3D4E5F6G7H8I9J:K;L<M=N>O?P@QARBSCTDUfPvcP=*z @ -  } j C 0  m Z G p]I6#r_L8%uaN:'X{YAOIndexu u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u T豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u T豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u  u  豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp  u  u  豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp  u  u  豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp  u  u  豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp  u  u  豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp  u u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u u p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u .LVAL>NʾCreate table in Design viewfrmTimerbasCalc'^3 LVAL % 1 z @ -  } j C 0  m Z G 6u u u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p p u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp u p u 豓ΨmPZJ}x s]՛s/0cĽqyMR2 GUIDNameMap0 hZN`%  UMR28DescriptionGUIDNameMapd4 ,Embedded calendar test F),AfZଔ\  UMR28DescriptionGUIDNameMap^. &Popup calendar form ~/+J6Y  UMR2 GUIDNameMap0 n+GS"{@  UMR28DescriptionGUIDNameMapb2 *Calculator Popup form $n`E橯.  UMR2( ReplicateProject MR20 Title AuthorCompany~" UsefulStuff2k" David Bennett. &Ergoface ConsultingMR2.AccessVersion Build* 08.50 dv  @u 豓ΨmPZJ}x s]՛s/0cĽqy ?vzsBvRSsȜvGo v[]wUqp