ࡱ> r  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvwxyz{|}~Root Entry FbZDWorkbook% _VBA_PROJECT_CUR"#׊Q̢QVBA" ׊QQ @\p Bruce Lloyd Ba= ThisWorkbook= j "8X@"1Arial1Arial1Arial1Arial1:Arial Rounded MT Bold1Arial1Arial"$"#,##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_-;_-* "-"??_-;_-@_- d\-mmm\-yyyy0.0 "$"#,##0.00 "$"#,##0 #,##0.000 "$"#,##0.000 "$"#,##0.0000 dd\-mmm\-yy                + ) , *  "<"@ @ "8"@ @ "<"@ @ "<" @ "8"@@  (""@ @ "| @ )  @ @ +  @ @ +  @ @ +       @   @ ) ,#  "   @   @ )   @ ) ,# ""@ @ )  @ @  @ @  @ ,# @ @ "" @ ,# @ @ + " " `} Fuel Consumption=:#YEARFRAC  ;  SheetTitle:startkm:startkms:`i DateLitresKMC/ltrOdometerGallonsMiles Litre/100kmKm/LitreMPG Cost per KmAverage:Fuel Consumption & T @ ,+ 9_qyEU  dMbP?_*+%&~?'~?(~?)~?MCanon i250߁ 4dA4BJDMrrRt,T`Op,T`OpRt,T`Op,T`OpXXDRAFTSample 1 d Rt RtH= RtCanon i250߁ 4dA4)֡" d `? `?c(U} }  }  }  }  } m } m } Column A   w                                  / /////////// 0Dc%bB d mmmm yyyyA0 to %bB d mmmm yyyyA0@ (Total: D$0.00A0 for D km in @9%B%BBA years)FC0 January 1900 to 0 January 1900 (Total: $0.00 for 0 km in 0 years)00000000000   -             #! %L"N6DDdADDdB## %b(S$=%BC %BC B#% %#! %T#! %(L&6DDdADDdBB ',DDADDBB ' ,DDADDBB ( ,DDADDB .# LLd=)'DDC B*5)&+L LJd'? BH*2DDC E? B* @# 6LLdALLdB +  6# ,LLALLB +  6) &,LLALLB , <) &2LL LL'B .)1$ 'LLL B**<)%2LLL E? B*  +   +   ,S .)***  +   +   , .)***  +   +   , . ) * * *  +   +   ,   .   )  *  *  *  +   +   ,   .   )  *  *  *  +   +   ,   .   )  *  *  *  +   +   ,   .   )  *  *  *  +   +   ,   .  ) * * *  +   +   , .)***  +   +   , .)***  +   +   ,  .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   ,  .)***  +   +   ,$ .)***  +   +   ,( .)***  +   +   ,, .)***  +   +   ,0 .)***  +   +   ,4 .)***  +   +   ,8 .)***  +   +   ,< .)***  +   +   ,@ .)***  +   +   ,D .)***  +   +   ,H . ) * * *  +   +   ,L  D7'l.@ ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?   .!  )! *! *! *  +   +   ,P! !!."!!)"!*"!*"!*! ! +!  ! +!  ! ,T" "".#"")#"*#"*#"*" " +"  " +"  " ,X# ##.$##)$#*$#*$#*# # +#  # +#  # ,\$ $$.%$$C LLd$$)%$*%$*%$*$ $@$C 6LLdALLdB$ +$ $ 6$C ,LLALLB$ +$  $ ,`% %%.&$%%)&%1%D 'LLL B%*&%*&%*% $% +% $ % +%  % ,d& &&.'$&&)'%&*'&*'&*& $& +& $ & +&  & ,h' ''.($'')(%'*('*('*' $' +' $ ' +'  ' ,l( ((.)$(())%(*)(*)(*( $( +( $ ( +(  ( ,p) )).*$)))*%)**)**)*) $) +) $ ) +)  ) ,t* **.+$**)+%**+*5*M$+L LJd'? B**+*<*M$2LLL E? B*** $* +* $ * +* * 6*M $,LLALLB* ,x+* <*M $2LL LL'B ++.,$++),%+*,*+*,*+*+ $+ ++ $ + ++ * + ,|,* ,,.-$,,)-%,*-*,*-*,*, $, +, $ , +, * , ,-* --..$--).%-*.*-*.*-*- $- +- $ - +- * - ,.* .../$..)/%.*/*.*/*.*. $. +. $ . +. * . ,/* //.0$//)0%/*0*/*0*/*/ $/ +/ $ / +/ * / ,0* 00.1$00)1%0*1*0*1*0*0 $0 +0 $ 0 +0 * 0 ,1* 11.2$11)2%1*2*1*2*1*1 $1 +1 $ 1 +1 * 1 ,2* 22.3$22)3%2*3*2*3*2*2 $2 +2 $ 2 +2 * 2 ,3* 33.4$33)4%3*4*3*4*3*3 $3 +3 $ 3 +3 * 3 ,4* 44.5$44)5%4*5*4*5*4*4 $4 +4 $ 4 +4 * 4 ,5* 55.6$55)6%5*6*5*6*5*5 $5 +5 $ 5 +5 * 5 ,6* 66.7$66)7%6*7*6*7*6*6 $6 +6 $ 6 +6 * 6 ,7* 77.8$77)8%7*8*7*8*7*7 $7 +7 $ 7 +7 * 7 ,8* 88.9$88)9%8*9*8*9*8*8 $8 +8 $ 8 +8 * 8 ,9* 99.:$99):%9*:*9*:*9*9 $9 +9 $ 9 +9 * 9 ,:* ::.;$::);%:*;*:*;*:*: $: +: $ : +: * : ,;* ;;.<$;;)<%;*<*;*<*;*; $; +; $ ; +; * ; ,<* <<.=$<<)=%<*=*<*=*<*< $< +< $ < +< * < ,=* ==.>$==)>%=*>*=*>*=*= $= += $ = += * = ,>* >>.?$>>)?%>*?*>*?*>*> $> +> $ > +> * > ,?* ??.@$??)@%?*@*?*@*?*? $? +? $ ? +? * ? ,@* D&lG@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _  @@.A$@@)A%@*A*@*A*@*@ $@ +@ $ @ +@ * @ ,A* AA.B$AA)B%A*B*A*B*A*A $A +A $ A +A * A ,B* BB.C$BB)C%B*C*B*C*B*B $B +B $ B +B * B ,C* CC.D$CC)D%C*D*C*D*C*C $C +C $ C +C * C ,D* DD.EDDbLLdDD)E%D*E*D*E*D*D D@Db6LLdALLdBD +D D 6Db ,LLALLBD +D * D ,E* EE.FDEE)FE1Eb'LLL BE*F*E*F*E*E DE +E D E +E * E ,F* FF.GDFF)GEF*G*F*G*F*F DF +F D F +F * F ,G* GG.HDGG)HEG*H*G*H*G*G DG +G D G +G * G ,H* HH.IDHH)IEH*I*H*I*H*H DH +H D H +H * H ,I* II.JDII)JEI*J*I*J*I*I DI +I D I +I * I ,J* JJ.KDJJ)KEJ*K*J*K*J*J DJ +J D J +J * J ,K* KK.LDKK)LEK*L*K*L*K*K DK +K D K +K * K ,L* LL.MDLL)MEL*M*L*M*L*L DL +L D L +L * L ,M* MM.NDMM)NEM*N*M*N*M*M DM +M D M +M * M ,M * NN.ODNN)OEN*ON5Nb+L LJd'? BN*ON<Nb2LLL E? BN*N DN +N D N +N N 6Nb ,LLALLBN ,ON <Nb 2LL LL'B OO.PDOO)PEO*PNO*PNO*O DO +O D O +O N O , PN PP.QDPP)QEP*QNP*QNP*P DP +P D P +P N P ,QN QQ.RDQQ)REQ*RNQ*RNQ*Q DQ +Q D Q +Q N Q ,RN RR.SDRR)SER*SNR*SNR*R DR +R D R +R N R ,SN SS.TDSS)TES*TNS*TNS*S DS +S D S +S N S ,TN TT.UDTT)UET*UNT*UNT*T DT +T D T +T N T , UN UU.VDUU)VEU*VNU*VNU*U DU +U D U +U N U ,$VN VV.WDVV)WEV*WNV*WNV*V DV +V D V +V N V ,(WN WW.XDWW)XEW*XNW*XNW*W DW +W D W +W N W ,,XN XX.YDXX)YEX*YNX*YNX*X DX +X D X +X N X ,0YN YY.ZDYY)ZEY*ZNY*ZNY*Y DY +Y D Y +Y N Y ,4ZN ZZ.[DZZ)[EZ*[NZ*[NZ*Z DZ +Z D Z +Z N Z ,8[N [[.\D[[)\E[*\N[*\N[*[ D[ +[ D [ +[ N [ ,<\N \\.]D\\)]E\*]N\*]N\*\ D\ +\ D \ +\ N \ ,@]N ]].^D]])^E]*^N]*^N]*] D] +] D ] +] N ] ,D^N ^^._D^^)_E^*_N^*_N^*^ D^ +^ D ^ +^ N ^ ,H_N __.`D__)`E_*`N_*`N_*_ D_ +_ D _ +_ N _ ,L`N D&lG` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   ``.aD``)aE`*aN`*aN`*` D` +` D ` +` N ` ,PaN aa.bDaa)bEa*bNa*bNa*a Da +a D a +a N a ,TbN bb.Dbb)Eb*Nb*Nb*b Db +b D b +b N b ,XN cc.ccc@LLdcc)cc1c@'LLL Bc*cc5c@+L LJd'? Bc*cc<c@2LLL E? Bc*c c@c@6LLdALLdBc +c c 6c @,LLALLBc +c c 6c @,LLALLBc ,\dc <c @2LL LL'B dd.dcdd)dcd*dcd*dcd*d cd +d c d +d c d ,`ec ee.ecee)ece*ece*ece*e ce +e c e +e c e ,dfc ff.fcff)fcf*fcf*fcf*f cf +f c f +f c f ,hgc gg.gcgg)gcg*gcg*gcg*g cg +g c g +g c g ,lhc hh.hchh)hch*hch*hch*h ch +h c h +h c h ,pic ii.icii)ici*ici*ici*i ci +i c i +i c i ,tjc jj.jcjj)jcj*jcj*jcj*j cj +j c j +j c j ,xkc kk.kckk)kck*kck*kck*k ck +k c k +k c k ,|lc ll.lcll)lcl*lcl*lcl*l cl +l c l +l c l ,mc mm.mcmm)mcm*mcm*mcm*m cm +m c m +m c m ,nc nn.ncnn)ncn*ncn*ncn*n cn +n c n +n c n ,oc oo.ocoo)oco*oco*oco*o co +o c o +o c o ,pc pp.pcpp)pcp*pcp*pcp*p cp +p c p +p c p ,qc qq.qcqq)qcq*qcq*qcq*q cq +q c q +q c q ,rc rr.rcrr)rcr*rcr*rcr*r cr +r c r +r c r ,sc ss.scss)scs*scs*scs*s cs +s c s +s c s ,tc tt.tctt)tct*tct*tct*t ct +t c t +t c t ,uc uu.ucuu)ucu*ucu*ucu*u cu +u c u +u c u ,vc vv.vcvv)vcv*vcv*vcv*v cv +v c v +v c v ,wc ww.wcww)wcw*wcw*wcw*w cw +w c w +w c w ,xc xx.xcxx)xcx*xcx*xcx*x cx +x c x +x c x ,yc yy.ycyy)ycy*ycy*ycy*y cy +y c y +y c y ,zc zz.zczz)zcz*zcz*zcz*z cz +z c z +z c z ,{c {{.{c{{){c{*{c{*{c{*{ c{ +{ c { +{ c { ,|c ||.|c||)|c|*|c|*|c|*| c| +| c | +| c | ,}c }}.}c}})}c}*}c}*}c}*} c} +} c } +} c } ,~c ~~.~c~~)~c~*~c~*~c~*~ c~ +~ c ~ +~ c ~ ,c .c)c*c*c* c + c  + c  ,c D&l                                 .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  , c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  ,c .c)c*c*c* c + c  + c  , c .c)c*c*c* c + c  + c  ,$c .c)c*c*c* c + c  + c  ,(c .c)c*c*c* c + c  + c  ,,c .c)c*c*c* c + c  + c  ,0c .c)c*c*c* c + c  + c  ,4c .c)c*c*c* c + c  + c  ,8c .c)c*c*c* c + c  + c  ,<c .c)c*c*c* c + c  + c  ,@c .c)c*c*c* c + c  + c  ,Dc .c)c*c*c* c + c  + c  ,Hc .c)c*c*c* c + c  + c  ,Lc D$l                                 .c)c*c*c* c + c  + c  ,Pc .c)c*c*c* c + c  + c  ,Tc .c)c*c*c* c + c  + c  ,Xc .)LLd)1)'LLL B*5)+L LJd'? B*<)2LLL E? B* @)6LLdALLdB +  6 ),LLALLB +  6 ),LLALLB ,\ < )2LL LL'B .)***  +   +   ,` .)***  +   +   ,d .)***  +   +   ,h .)***  +   +   ,l .)*$**  +   +   ,p .)***  +   +   ,t .)***  +   +   ,x .)***  +   +   ,| .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , D&l             .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   , .)***  +   +   ,  >@<dA @  7  ?  LL'BBB9D ?  LL'BBB D   ?  LL'BBB9D ?  LL'BBB D ? LL'BBB9D? LL'BBB D Sheet2 Sheet2T__SRP_9__SRP_8 BThisWorkbookm  !"#$%&'()*+-.0123456789:;<=>?@ABCDEFGHIJKLMNOPQRTUVWXY[]^_`acdefghijklmnopqrstuvwxyz{|}~8*8b#<_17MU)UGd FaܵN 0xaܵN 0_17MU)UGdMEPSLSS6"<<<<N0{00020820-0000-0000-C000-000000000046}8(%@h % %X`e0 450i LSp@@0 K$*\Rffff*304b0a4e914 xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2 rU A[1 i[ 4  `rU @nrU XI! I `9  q a`   AkikI4 a1plateDerivBustomi6zD2P Sub w_beforesave(ByVal asui As Boolean, Cancel ) shee@ts("FuConsumption").Activ7 Ran@ge("a4 P X0SDo X + 1 'If ,eCell.Offset(x, 0)./uA]"" Then Exit ForCLoop Until IsE@)y(X8(U Select EndTX_Open( @/Cstarxtkm@D-A@E frmSetUp.ShowEš3Economfy!If #K hRx?G(?>K hRBF@# MEl[LSS6"<<<<<< <$<(<,<0<4<8<<<@q====1!:h%x$ (x,x!x $ xxGh%H%f(%f%x $ x  xx$ (xx# x$ x  x$ xkrU $`anrU p$`$A`$`,`) ,`a__SRP_7ZofrmSetUp 8__SRP_4 H__SRP_5\usic For Applications*#f*\R0*#1d*\R0*#1e$*\Rffff*194b0a9150*\R1*#cd*\R1*#66*\R0*#f*\R1*#175*\R0*#10*\R1*#b3*\R1*#c4*\R1*#229*\R0*#12*\R0*#21*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#41*\R0*#f*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\WINDOWS\System32\FM20.DLL\S0b+l=~izD#K캽K"G:@{j=@]Dμq_ Lp4Zx Lp4Z=~izD#ME(@SPSSS1 "1L>"LLLLLLLLL<0{DCDEE593-0B21-462E-8996-8568C8F70EF6}{50406A6F-106A-4020-8F57-8714A7B67A69} 0(%X0 % X`xJe i %<%(<% 8 ` ka i myi h`HJei xp(0i  xx %i !  0`dJe T x0%i xX% xh% xH% x(% x% x% x0h% xPH%% xx% x x% xi (%% x(@% xH(% xh%%% x% xP% x0% x%%% x((%X x xp% xh% x(% x(% x% x% x8%@H BP ` |ke::`Hv!C (%i  xx`~x@l X@\ @@L `H (%(% xp Cx %% I x (% x `(keLi h hX8 0P Cx0 HRT  `k ""zi  (pX8 h @P D @@ @ 0 @ @ @ (%% x(%@(% Cxic Cx Cx x JL`8@ t ( Cx  Cxructh  H@ p @ l @0h @d  Cx(%``Hj@@` @xP xX @@ @80 @. p Dl|@ @ @  @P @ @h (@ @ @ @ @| xr ( H JlL@t @0p @` @`P @L % @H @8 @( H @xl  hPl8@X @H @8 @( @ @ h@ @( 8@ H* Pl| @ @ @  @ @ @ @ @ @x X8 0p K*\R4*#d*\R4*#e$*\Rffff*044b0ab11d4*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Ba2#Microsoft Forms 2.0 Object Library*#41*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\WINDOWS\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44 48<@DHLPTX\`d " H h  X P " (  8   0 "0 P 0m '  '  '  0  "J 'H  'X h 'x  h @  JM0 >a M( $l Ux       8 "  M @(   "  *M   "  + B (2Rp   ,0<X  H *D     B  6h 2 X @  " :W  8 &=H p  $  2A    x ` x0oho (dA4oH A@r380 B@B H](n o (09LTF do nothingP 'H@ B@*0Xo0k]| ~x |z B@| Trim( !d J!d L!d B@l B@nsumpt A@ra2$D 8!z\ L!d$l'~P !d$startkm$D(L, Enters start value for mileageNormalp $  $  '  H($ as](@XpEnter Vehicle ID for your car. ' put  T(adinEnter a name for this file ' readi  R(ile -It will appear at the top of the spreadsheet.'` J!d$l Fuel Consumption SheetTitle$D(Loi E.G. 'Kingswood' or 'Colt'. 'XP o J!d G J!d$l Fuel Economy L(dj@SF'.KTF !d.G'jogram H8 i_  'H HG  H$   H  $'j H $$ 'H '_ H  'H H Gxj H  H $$  H x J!d$ J(d L!d$ L(d $l'(M]0/this function checks a string for double spaces+and changes all initial letters to capitals  (if s !d J!d  J(.0 L!d  L(at` !d J!d  J( L!d  L(D8kkkkkkx  (Starp `00:00:02$ 8B@ E 9Enter the Odometer reading when you fill up your vehicle.' DRecord all fuel put in and the odometer readings from this point on.'  This is your starting point. '$V>$ 6Any name will do as long as it means something to you.' )Attribute VB_Name = "frmSetUp"  Bas|0{DCDEE593-0B21-462E-8996-8568C8F70EF6}{50406A6F-1 -4020-8F57-8714A7B67A69} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizDOption 0licit` P"& Sub cmdCancel_C(k() Act5Workbo ok.ClO savechang0es:=T Unload Mn End0!7lear 7txtStart.Text}bGF`FocusWOKDim FileS/Path As S@ng#AIf  OrACar$AThenC@G,K BackColor@vbRedG;IfW)x=1 1 5App@QaV.Wait Now + TimeValue("00:A2"U?!%s:#t/WhitX /D/; C/xt/ Ex@-@mLic RA("s!vkm").3F(F*Ay) '>ters  vA8 f`\m`rag,& SheetTitle Trim e\) & " Fuel ConsumB )%CC!&G0 Ƃ= )ODefaul"*@\"J ˥ name ,‘Form@at:=xlN!lb, Me.HHid# @Economy.ShowH7!5_8!`"`'_!<(4By`4 c!MSs.ReturnBoonj )F1A SLen+4> 1 `AF%Dx9dpc0 !Rb_KeyPuss Ascii Integer ݁`X!D X0 -SelectX#!!$ 46: InStr'k, ".")##= 0 8 @To 57: 'do nothi^nh!1bE0:~ o User!_InitializeS}AWrap, rInst, Od~o! "  Chr$(13)@X0"EPrheTme> 0d` wq you f@ill upr vehicle.g& 7`This rC!point. stARecord af1Bput in aEt odo s@ from ps"  onq lbl1` .Cac=%@02PbVS IDNR cqC! 'PE.G. 'K swood' Q'pt'.=!It waap"p0 at` e `top o spqsQU: 8 1 F a nL 2peWC#TTq0 Anys .as long ppfmeana/ q!* 8 A /ub`nXphJOp,*' u4checks aM%r$hdoe saХ'"$Bi4 letlto capit E 1"ODo>GDy D !sCFX3ELeft(XpRighaX) - X01"Lo!Until@BIeidu1, 1)UG<(M L X@A " r <%`#tr,` + b  a!Ft A$A`,`)//n;rU  yeeeeQe8!i6<!6 @iA!`  DfrmEconomy#__SRP_bb__SRP_a_VBA_PROJECTx 8 "  8  H ( "         "   "  @08  1( 8  ` H h p U I  ` = $h $h $ E     " @ PX*``H " h '+ x p0F bit/ny"Eev 'νL?QG$QJYI"6q;K%#_x6q;K%#_/ny"Eev MEL@SPSSS11pFP@ @:0%l'%: %$ l,)tl6P@0M@pt!  t l >pFP@hl!  l h /h)tl6P@lp t$ t lp*F0hl!  l l >hFP@ @`1x/p)tl6P0@U '|%'%'%'%'%'%'%'% %lxF%t$ Ht t $lt$ !tL(x4 ph`tldP@0, l xMPpt! $t l >pF`PHL! $L h /H)tL6`P)pt! $t l lpJ/ptXpt! $t l >pF`P P:8'(HL! $L h /H)tL6`P(DT(x(pHtL`P(0   x$+ #D #@*F0l2D@ : "LLl0: %L50L: #0L LD ! $ @/D : l0\\: 0l\50\: 0\ \D ! $ @/D : l0`1H50 lH&*1HlH ! $ @ p$4(lHL\ D@ 0x.l X Xb " 8:H(XUpj5XkjOkjl X ) X H(kjD8("l  * b 6X kj=l (Xl ( +( ,6X(pj$kj 8:H-XUpj5X kjcAl kj(Xkjl ( +( ,6X( kj  Hl/ x(l$X(P84T`d(  x%i % %  %bH4@%%%i %%` `| ei Lxi 0@`rJhe @! i i p 4`hJe T! P@`i i Pp x(i P% 8`hJe `! XP` x`%%i  `| e x  x(` xH% Cx% Cx% x >``Je J!C (@P(% x#%i  `xJe i @i @ x% Cx Cx%%% x %P Cx Cx Cxx% `4J l i i ` % Cx8(% CxX% Cx x@% B(`|Je&& x %% x %i (( @(P 8 h @X hH @8 84  DH" hx  t @p  l H  Cx ` hh X0 d @@`  \   L @< @, @   H r  0 x %  @@ @  (x Cx`Ht p @` 0 (l h X P((0x P K*\R4*#d*\R4*#e$*\Rffff*194b0a91508<@DHLPTX\`dhl " p   *0 x "   *MX  " 0  @ P ` p "QP  @ 8pXo A@r]((o 'H HSF'o( 'H HSF'no 'H H09LT do nothingSF'fo09LT do nothingXPo09LT do nothing0npnH@o(k !d !d$@.Text (dk oH (d (d (d (d B@*o B@*mmm yy$` d mmm yyyy$ (dp00p.KTF !d.G'j.KTF !d.G'jext, ".KTF !d.G'joFuel Consumption$B@F find empty cell'H_ H 'Ha4$DB@Fselect first used cell in sheet H "%J!L$` H "%JB@H !d !d !d !d|k (d (d,t (d (d !d "(L !d$ "%J(LL A@r !d$ "%J(L !d$ "%J(L "%JB@H B@B A@r add content~1.PsAttribute VB_Name = "frmEconomy"D Bas0{91400375-3EA9-4D1D-B96AB-(218E10}{D37E5ACE-CAF4-484F-8955-2563AD26D0BA} dGlobalSpacoFalse CreatablPredeclaIdTru BExpo se0TemplateDerivCustomizDOption 0licit Dim X As Integer P,0 Sub cmdCancel_Ck()Act=Workbook.ClW savechanges:=\ Un@load Mr 0 End*1lear 1txtD .Text@c@Litres CentOdoL BSetFocusA #L5"H0 DOK /If / OrM00DJ1 Then aExitRA$If3Acsheets("Fuel @ConsumB|"\).lT Ri("a4 'select fi`rst uA}lp in Xud0' t@tLy  Do CA X + 1 Yp Until IsE@*y(Cell.Offset(X, 0).Value@O6 SA 'add tCAh @I4L0, 1(`(8ai2'<4%@t1#m!z@b_Keyss(By@  AsciiMSForms.ReturnDb!9%Ӄ9 CaXCaT!46: aInStra' , ".")bZ'= J8 To 57'do nothing E:udBbub<ɛ!_!j Ý hBoon |<0> ""tNotZ CzvR99!C:Ƅ:b:B::y3)! @Sk3_oO.oO.@rqQc/m.U;5O.4O.O.O. !User=_Initialize|P) N"ovC; 1at(Now()d mmm y"r#y:iA`I H!]L)5`  PiA`   TiA6` Xa`  \5`I `5` d5`  h!16l!I6 j W    W    0 P  0   0   0   0 (  0 @  0   0   0  ( PDT@d\`LXrU x$ `$A `$ `$ `, `aA,A `) , `aA, `aA$ `n0* pHd FuelEcon@omy@Keep record of petrol cos ts@6@eAp rcodof p&tol sts9=   PK %<9stdole>+Odul BeforeSave_B_var_Xa6p\ _B_var_a6 _B_var_IfP _B_var_loopIsEmpty d1\MsgBoxRmsgbo _B_var_msgbo|pause*I`startkmU&_B_var_startkmXStartKms@ Filepath13cInputBox promptmDefaultFilePathRSaveAsf; _B_var_Exitall'tValueswillJbe\deleted[gfrom~ ll^file%vbOKOnlyoriginal['WrapWyChrK~ _B_str_Chrm#MsgQthis̹Point _B_var_promptSheet1CarName_B_str_CarName|_B_var_Worksheet Worksheets_Defaultj UserForm1) MSFormsCUserFormNtxtDateY txtLitrestxtCents7TextBox4SlblDate lblLitresLabel3,Label4,CommandButton1|CommandButton2}CommandButton3~ Label3_Click<lblCostmlblOdocmdOK'cmdClearcoCommandButton3_ClickFA frmEconomyTtxtOdo~ cmdCancelcmdLook cmdLook_ClickClick frmSetUpn lblStartOdoftxtStartlblInstu UserForm_ClickUserForm_Initialize5ccmdClear_Click InitializeNtxtcmdCancel_Click\activedocument\_B_var_activedocumentbpActiveWorkbook savechangest_B_var_savechangesV HyperlinkwWorkbook_SheetFollowHyperlink@Sh_SheetFollowHyperlink)[txtStart_Change IsNumeric$*ChangeValShow _B_str_LeftV ReturnIntegertxtStart_KeyPressKeyAscii#Char)KeyPressq _B_var_Chr\;Charas7 _B_var_Select'Ecase48o} _B_var_case48SetFocus _B_var_CasetxtCents_ChangetxtCents_KeyPresstxtLitres_Change;txtLitres_KeyPressi: txtOdo_ChangetxtOdo_KeyPresstxtDate_Change ReturnBooleane txtDate_Exit!IsDate2 cmdOK_ClickSj_B_var_S lblInstOdo+txtCar%txtFilelblCarID- lblfileNameQ] lblInstCar/ lblInstFile _B_var_Formattoday ylmmmy _B_var_todayNow% txtCar_ChangeiKxtcar _B_var_xtcartxrcarL _B_var_txrcarSTrim@ _B_var_TrimmT4Ksb_ _B_var_SaveAs _B_var_Save5Filenamej FileFormatxlWorkbookNormal FileSavePathCarInst8OdoInst;FileInstH-RecordpetrolByouinto\the'carH} _B_var_On6odometerreading̀_B_var_readingQ lblodoinst_B_var_lblodoinst\Captionxinst\ txtCar_ExitortxtodoU_B_var_ortxtodo0-aXWorkbook_ActivategfrmÏlblRemHide9z ChangeCaseOpStrRight  _B_var_Right9midopstr_B_var_midopstr/z _B_var_MidpUCase5  _B_var_UCasead0\untilxG] _B_varam *\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.3#0#C:\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.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.1#0#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{E90D7BFD-5145-497D-9C84-1CA60428C676}#2.0#0#C:\DOCUME~1\Bruce\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M  6Keep record of petrol costs Kb Sheet2304b0a4e91 Sheet2ThisWorkbook084b0aa7e0ThisWorkbook{phModule1064b08f3efModule1)0hfrmSetUp044b0ab11dfrmSetUp+p0frmEconomy194b0a9150frmEconomyipLP0p ?.@} %qR*l |N,[GSB}A0= y0OuKıP^PH۴j]Kr p8I AsByValcase=Dim@doDElseEElseIfHendifOExitPexplicitQfRfalseTFor_IfjIntegerxlongyloop{menotnothingnullOptionputSubThenToTrueuntil Excel+ VBAWin16~Win32MacVBA6#Project1  stdole` VBAProject Officeu Sheet2 _Evaluate Worksheet ThisWorkbook|Workbookk Module1b (InsertDate| ActiveCell FormulaR1C1S SelectionZCopyƿ PasteSpecialKPastexlValueso OperationyxlNone SkipBlanksұ Transpose Application* CutCopyModeworkbook_beforesave lSavesaveasuiCancelRange Activate|XoOffsetValueKWorksheet_SelectionChange4TargetF Workbook_Open_untilxtxcar _B_var_txcar{Start BackColorރorangered _B_var_redvbRedG/ _B_var_ForjLvbWhite^KLocked MyTimeryWait TimeValue _B_var_LeftQ FuelEconomy Zdir__SRP_0 <__SRP_1NfrmEconomy!QQi h%^*\G{00020430v-C 0046}#2.0#0#C:\WINDOWS\System32\22.tlb#OLE Automaption0EOPfficEOyfPicEE2DF8D04C-5BFA-101B-BDER5EAAC42EProgram Files\Microsoft 6\MSO9 .DLL#  9.0 Object LibrarFy!@MSForms>BSFBmm%e3@BOD452EE1-E0D8FA,A-8-02608C4D0BB4YOFM260 'B \&/;"1fmAAm00}#0m#G 50 AE90D7BFD-5145-497D-9C84-1CA604 28C67 DOCUME~1\Bruce\LOCALSTemp \VBE\S.eBo2\ltVKLtg5Kac=Kf8vX0C%  !P[G'#sm泈hK[^ߜ,92@j>?F]}dB_u1@@J~  !8*"Me9rQo6PAFHٳm{H]֧MSUƢ(JZ'j2ȸuFJerQFNlBYkěJ45GA@I 1 ! Q ` +? [JFGwNk^_> K R_;*CȓISA*r;ك'@gKaR|aKP+ ! !8eöFW|)JTr}|CrgNQ)E j︒6Y+~y}@dvN&y}M|hę " !x_M@}MG!kMVL,0Ju[DuF#!M|FF]Jw_b[δlEA "sG} $ !LvvtM3h }yeAL-4%@$GムNNW6TINX|dHMmN )% !fFKu 4eCTӻw 5F0(5n9pJ63?we' I(.> I& !8#=h8+3qG?,2qL&&&Hm}4J唧kVVYϓaGCd@Q0.MYJwd8ظPpN&\2ʸGq6 ( !uֻG姶zt>AM"zbf{J]m-NOzmwhGKB3r )) !PJB<}61#r8sRB 8B&ynDmZe^Jc=i)I?"bREH9?q× I* !rv9JMz&NvB "قО&i:[L9yZxi/j$A 57B#fn<'E_o? i+ !H{K{N]*^yF?U1&xJ=y"X#VY@c,ZXU53@W[*I=F u< , !YV(IG.0SAͦwFM Ԣ$M݋'Ùc3EiЈYfBjJ pk] - !LpKb1/ZQj'RLMIڊp݂&dFrLK>D'1e}VMNy     " !#'%&(K*mrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~E m(\Z]AeD  e e Qa < <a E9aCT9OIa ] 9a6C6:6!7))1!) Sheet2 ThisWorkbookModule1Sheet1 frmEconomyfrmSetUp VBAProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  `F 3C:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel p0FC:\WINDOWS\System32\stdole2.tlbstdole  L-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice y.E .`M C:\WINDOWS\System32\FM20.DLLMSForms 6ƾOdmv /C:\DOCUME~1\Bruce\LOCALS~1\Temp\VBE\MSForms.exd aF[Z^ CJ[FHz+O@THSDFWorkbookworkbook_beforesave Workbook_Open @ Fuel ConsumptionFActivate a5FF FF VBE6.DLL Q . FUNGͷ>s F#ȧ{dA6}rDF Worksheet d1  ^Enter Odometer reading when tank last FILLED up @This will be the starting point. XFor accurate calculations all fuel used and  Jodometer readings must be noted from this point on.F LEnter Vehicle ID Name (Eg 'Starwagon') " Fuel Consumption a2 Enter File Name False ZAll values will be deleted from original file Removing Data \ Q   Q S @$Ϫ M4XW&k-I߆Kp 2 !UjtxtOdo>xK8c( A5 !8txtDate txtLitrestxtCentscmdLooklblDate lblLitreslblCostlblOdo cmdLook_ClicktxtCents_KeyPresstxtLitres_KeyPresstxtOdo_KeyPress t$<)K۠CFG@-Bdcڟ {\aL~e$D?5lQ䥭BO!  8 !xUserForm_Click .'=gLFtXOr3M]|F 0FWJ0FZa՞M l,9); >F2KHc i9 !txtDate_Change txtDate_Exitq#t Q - !݁LIb>*.եFch0+OCZrS8HkEBl2֤@f:PiN2h ێdE‡)  ˈkMgK- < !H 0] ! V AKCH?dZEJ6@ Da̟g|OՃ4< &l=Ip[dE K&q 1@ !  y mmm yyyy Q " Q  @ |XkGM aZHL C`4IEIw>B?-Lr-/FM@3eKˏ~txtCar lblInstOdotxtFilelblCarID lblfileName lblInstCar lblInstFile5Ao`ܦS iC !  cmdOK_Clickk*lNYM!^fuaG Zu\AxCx0v?Vq@j1chYc+jIJ7Zvʉ81Gx-~NunI \",Eg G !p + Record all petrol you put into the car from this point on and the odometer reading.Yl| :Enter Vehicle ID for your car 4E.G. 'Starwagon' or 'Colt' XEnter a name for this file to be saved under "Any name will do.{n1qA|iwGbEB]v&HMtd@9uDr2f }[ACсH#N:>BpG~V뫭g)EL2gC L ! ,vAulblRemnq~LB>QY ] ! x(@J{TfDX@i9!%E V}v+0C7?EgFK(FƲ:a ̏E!l ^ !rqReHZK& ʍgiH6[CBW_+}@ 8OmD:nAE0> _ !( startkm a4! ~Record all petrol and the odometer readings from this point on.]z2kHAګ]{ 6E.G. 'Kingswood' or 'Colt'. SheetTitleoo_K|<X6FtwnʪۇBCj?K9t'H^;f/2d]MiJŷܒX rzVE, qc !-' TF l"G%fӅHgI׊-Hl &F*&O8wvƉAr;n(j4Fӄ 7 d !%=TC<|/ny"Eev 'νL?QG$QJYI"6q;K%#_G5~D}l f !8a%Mmu  6AcVaCKO>N:Qk%"~ImFdtd"™H9q1M&*kpq yg !x 00:00:05 5 seconds Q   00:00:02 Q i  Q k  Q x  Q   00:00:01P&\IL,BF@# ?G(?>K hRX{KO=u=~izD#K캽K"G:@{j=@]Dμq_ Lp4Z$ IpMZ"b Yl !{ EQ}I(v l^D4 jDTJz FuelEconomy rEnter the Odometer reading when you fill up your vehicle.$ Record all fuel put in and the odometer readings from this point on.<#jEIof :This is your starting point.  lAny name will do as long as it means something to you.P~~~~~~~~~~~~~~        1 saveasuicancel 1 Sh 1(Target 8 iH AX h x  1   iKeyAscii Y  ! # 1$ Q% q&( 1(8 Q)H q*X +h ,x - / Y0 y1 2 4 i5 18 9 9:Cancel 1<( (Macro recorded 10/03/2007 by Bruce Lloydd 14 ?8 Y@H CX IEh Gx L M R T )V X QY Z \ A] ^( `8 cHOpStr dX Afh gx lKeep record of petrol costs`$  "}3R KQDBfoCompObjaVBFrame8Tahoma ,$4txtDate{"H, ,5TahomaH,,5TahomaH,,5TahomaH, ,5Tahoma(DateO5Tahoma(LitresO5Tahoma (Cents Per LitreE5Tahoma (Odometer Reading 5Tahoma(OK OuTahoma(Cleara OuTahoma(Cancel OuTahoma( View Sheeta OuTahoma0(Enter in cents e.g. 119.9 cents O5Tahoma( 4txtLitresta0"$4txtCents"$4txtOdots'"(24lblDates{, 28 lblLitresta1( 2@ lblCosts( 2@ lblOdots'$ 4cmdOKots $ 8cmdClear ( 8cmdCancelta' $<cmdLookr (2P lblRemkr Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmEconomy Caption = "Fuel Economy - Enter Details" ClientHeight = 2400 ClientLeft = 45 ClientTop = 330 ClientWidth = 7485 StartUpPosition = 1 'CenterOwner TypeInfoVer = 34 End $  !F}&? R KQDBTahoma , 2HlblStartOdos$4txtStart{{$4cmdOKart"I$8cmdClearxIfrmSetUpQQfgoCompObj a, 2<lblInstOdoos( 2@lblCarID , 2< lblfileNames, 2< lblInstCaresg , 2< lblInstFiles( 8cmdCancellesI$4txtCarID{; $4txtFileD{((Initial Odometer Reading; 5TahomakrH, {5Tahomakr(OK$ OuTahomakr(Clearakr OuTahomakr( Instructions' 5Tahomakr (Enter Vehicle IDE5Tahomakr( File Nameicl5Tahomakr( InstructionsR5Tahomakr( Instructions5Tahomakr(Cancelkr OuTahomakrH, {5TahomakrH,{5Tahomakr Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmSetUp Caption = "Initial Set Up Form" ClientHeight = 4680 ClientLeft = 45 ClientTop = 330 ClientWidth = 5640 StartUpPosition = 1 'CenterOwner TypeInfoVer = 70 End VBFrame-PROJECTwmPROJECTSummaryInformation($Sheet2Sheet2ThisWorkbookThisWorkbookModule1Module1frmEconomyfrmEconomyfrmSetUpfrmSetUpID="{00000000-0000-0000-0000-000000000000}" Document=Sheet2/&H00000000 Document=ThisWorkbook/&H00000000 Module=Module1 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmEconomy BaseClass=frmSetUp HelpFile="" Name="FuelEconomy" HelpContextID="0" Description="Keep record of petrol costs" VersionCompa    tible32="393222000" CMG="343698D3F800FC00FC04000400" DPB="6567C922CB4EE84EE8B1184FE870827E93CB3F2E3C5EDFEEE839DD35E2F61CFFDA4D9CA44B67" GC="96943A715A938A948A948A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Sheet2=0, 0, 0, 0, C ThisWorkbook=0, 0, 0, 0, C Module1=0, 0, 0, 0, C frmEconomy=66, 66, 644, 506, , 44, 44, 808, 533, C frmSetUp=88, 88, 666, 528, Z, 22, 22, 786, 511, C Oh+'0@H\p  Bruce Lloyd Bruce LloydMicrosoft Excel@pPb@bQ՜.+,0 PXd lt| C Fuel Consumption  WorksheetsDocumentSummaryInformation8 CompObjf FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q