'=========================================================================== ' Subject: MANY DATE/TIME FUNCTIONS Date: 09-01-97 (04:55) ' Author: Nigel Traves Code: QB, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: DATETIME.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DATETIME.ZIP",4^6:Z&=6088:?STRING$(50,177); U"%up()%9%%%#-%6=RLHnQ'iR4.7%%4$%%%-%%%%yn%rjSgRfxN*9hxT]=?wG1ExR U"SbM-bPAU.TfED*g.X=xU_,/\rp$-t>0SBBA][W\;0.$o>dBqa4bn_:([6]gBD)c U"*mahXtBK:uj5fGVUbD$fl0HwujeYEYL74rXclVxrSeG0t>OJf2u U"Opa'lTq/+jbwKb0iM=B,0K_RNGJ(OL'.pW(f=z0aswsu4LXHj?[]0_rWcRTtMr+sjXLUtrP[i8f'l U"z4Oz+pouRoZp]Ig-LUosG;*vd1aGA.1r4OQ3B-VNlvPl;GDo<7uk1hBw\DwVB>l U"hhjA>c13'*vD7YnaMk6dcUdQ4=6'd()$mrJN>)4gL:,#Uy7SRs'#dqdFmUD:E=h U"#>Thg1Z$LbKjk5BCa\[XOuZJ,VPle]kk_j/[j^H'$Gi,Gp.dHFo$U76W_Ac,o+ls4j$G;=q1q1CTcr U"iC[d2Pud9HM[1_8]wNv$xy5FIKG5<9K/GKZT&7#\SI:fca(CGBeeY&-bO\TUrUe U"RY7C[R2&xFp=hGA2q_lCsUqdaacw&DI,WoM9OuM](l#W>mK_S6jHl>^L0d%tn4B U"WW2c:.n+_5RMhG]p&2_mi7tOKBcD%7()5rZ^QN7COf-sH81P31aVCif(GvZiB5oeUC[qy[rh[je7gMDR7FN(gc5bc.PVr'ADX/M/doeMG44$P8bnO U"TDf*[X#MaLsi^hp&3,w?jz\JDiTaE/>7#5^3N&^VM7/,-l+?jFKGB;5\G;[&p;mvSC,a>6*P);r U"g?^GpS;Tg0K_rpE:/QfVEbmeEk/AUeTK.qg%#;P'eZX2:lj)3\fRpW6/wI(<:$: U"$rikZ>SF#YNra^#O2L*']XUDi[e(DgiNpVl#lCw1f[o_;.IlA(UH-#.AWB+yi2XZt\wePd;NU]yh^/MRN19f8=csd U"c3\$S%0nO(52Y(^4:-,*))%Q3u[Ym4'oo>KL*--h0$ U"Ek/GW$UVX8P*7I]>OxVGx[Zo>k;:N'm/s:HB1g^h9UFND9'=BG],yd*iA'])Yz[ U",U+yptayasQc9m&0VyyGfO89&ugE_4>IOa+j4?Dm+8m>;xn,OG6^IEyS7\EGak> U"C+3>(D2T5m=,ZZy#r&uOa>H<=;\=;lrAsZ3aEYm]# U"<5]BOOGS'G&P1R*0ckNU).Y&hn\2[YdK.2KAIh2NiL1K&W6%d\#;KHtFD?4zdMm U"gm3#GL<#,4I),Nv,3fkcJ7=X&WBk/H5GE.^B=DO$eCaTe+x%(up(%)9%%[%-%N& U"T]O7w-orx0)aFFGf#CHvnjj%v_ U"_ktj=ei];64Q6>Lo,t*ry#G*wYh:/$XAMAwee4JEUUrc[][-1nJg1nH_STH+FiO U"PNwZ&jsd2dTBC&psU%#]'mHb[FFL0r*V9DD)akS^goc,taC>QR\;kBb9cO;NGqC U"D%\gEb/-;+uwZJ'14^\gW/V0+JBNk;qBFpL-_+\n_gr[+qj\2eVbG7%5A%'ASrW U"lE'r=H=LMEZIX(E#0Jwu:V&HDcN\3k4m%I0b]n$v=>5G;14f3]4cMj&e,L1i&uY U"xoYu3r*B(5JZ)?;VmA5u&e$OsC58g?;SjQ,+nUg/uVSy[g_f1*GU64TYy?[VZ)_ U"LZvc]yoTD9rrj4xeFDi6ERb=m=6e^]tfxDK6(cRT8j9(.F6$e2ECj7T^?tIg3fG U"cnnpog/wPQV5B$x?FJ9ZGDx/5hX0VhxuAJ\i:>aFj*jfTNj&kbijF'pJuw\s8L* U"skYHOC,_/)tVm40q:Nvx4Q-KjeuCnoQH6RL1PI?un$JQd54p*:6Ed8VC7MnQc_1 U"l]Q[XQ>AP$DbbjR6c92+sw)JZEW30i2g-CF/6Y)_xK%_>18qC-59 U"2>%O6Kaz.5E)TONY=oV5NEKs3X3:f3Nh[c[bG-\'A5(Hcl.61fz919PQdk-#%L5 U"&fu.LJHZ9ZtHsLS^J6ZI8r3?q_3R,CCi/=2aCN%*&J$S;d8:32mb(2Xa0;C=a=7 U"B:7b$lbUf-ic)VRi^Yto3Za:BiUC1w6#FnK#Tj=)Dp$F)M*$*u#]#k7W&ikCf[9 U"dmM[sY(4oDxA>uE9/8\,SN,3S%$H6cT+D8KZ5Uk+^/bejQm#5'R0aON\fk1;Nd? U"8v)pO/oKl';N+=g4\mOlgZ0,5%Pm43sxqQ>992*Wa=XGh?42/H1v^-HH*R0?RGv U"Y_^O7D7[=CyL8\07B5sG+#%tb/g?wr\1H=m4/606bBeR9PLQ8'16Bq5uU2q+mGg U"FMnW,K*E?LGAUd,Ew=0*y%jXS/Ib-R'QIBa.xH^7cMLBK*_h(73oFFjwOM/wm(i U"ncHA;YD6GYQG$Xr-ILCR0l.P9Dc2?S9*-\iUOyGUANrn;Wdr_#77zq.b3;B>Cp$ U"gX^_QU,(fcM>PoOC8$aJ=H%W=K1aj0Q[)pTeZDSQFr[z(h(-%JGPrZpwE\at_[[ U"=hsE%PqXJU-5x:VN/WcXy_.Zn6Kg\20XhHCv%=d/a/1X#F#HSA+L6jl\]qp>uZ03o/ U"bQ3QTSU/';901NTHmh5:t(x U"]]z(DQ9*D_c21MNe\oS1JTlp#4zYuT)z(Scjpu3nS6LI8U.4j$H7wpKiM3)#/r_U1/>H_Q U"lkq5.Yst/'$B3:%^c;yK]oedEm'K1I/?rZWR9?R:Q1CvehX1eUTjHD(j^VFCuKm U"cEGbPi&d]EBkhFbUoc7?_8Aa(K*=x(//H[Afh'BMfCa#aJl7T#$s(eI$e+o8frO U"dUVJea)$q-%He U"(>^AA1yagH0s5Ut>\qfV;5\vB;zrGrG&k\.T=IfnMc(\3#_2M/IvMS_yHf4&CdV U"t'TzaFOPoSu?-(oepJ)scY-GL]%9C1WtCbr\qGmF'8.D%du/k]Odz1<'9&d?S-l U"7ZrtbY\_WN3P>sz4eK2;ksLLwt=pc11]c)CyVz:8mDz\GGN?[J]lvKwWqiNiCyG U"uU7r\C>%8m\=:t0\wf[uD;]ZKTq-v[Lg;J<[AcBH0NHG;mRm

o^:C->3fz:8m U"dz&G_^-TT\s=M_)m3gfNVh+bwa9Ug[QY U"bnt2i1S++xRq#=J*swTlq#&*a#sye3*bE^LPL2x/[IN-k=V*bCJQ22d:fj9j2_* U",^VlSaJ'jK4M8uX0Ul3MkMMEl-8m[Tza/c)$*<<_i:hsDEt&^<(,xt'LP^V?M9. U"s;r[uuN'hA17z8jj9M3PfPzD%6itYYnz.H8=D>,GWb:;r5m4]bAkjTm$hFz4kYv U">1H40^-l?rN8(4HQ%H8,]XeYTjKuggkwgdj>UicrlsEuDcGR(DZfE4j$NjEf&LQ U"V9r2fai09aZfkXG,WBJfI+T-gH]0lnf,n]#l&kp:bAFt_)N9HsXRn>YmMaXNEq_ U"O/6viDA)9lBulfn>M5JR85l>CzEahT%Hr7_^0Fz#/B,2lzg/B<$,%GlPh*eYduu U"OJ4]VIKhFzHTA\.c2HgXkjx%S[e5,iK4JNVM$Tc%IrHT2&7P>dG/:4[kf$t+j?0o/&E* U"k6ItvXke**80XSGqGDBXOrNQSBH/FewBm8? U"vP\D8AEz3Y[z/Q7c)8Nu=Mmj:454QX-9Zt#TCKIS9R+KoC2dwe4wC%o#^oN&%NZwo)\dwg%NZvoCrdwmXwCx&ZcNIIoNxcJ)Ot%:ox.wh9rcSZwx6f$p&bV+ea+gm\5Wg1 U"ewNi/Chp#a/Vua/Ug:MbC893GpI2T#\d9kr9ulNtflOcH1H3z)FIj6IBgW/3c;I U"z9N0<>[Q'N5.7dL&\rc0=;LCfT%up()%9%%%I-%1=#LH'/-a:z'.%%1)%%%-%%% U"%yn%rjSy&'yrx0cmR7EKaV>$i*T:kkAe*u[.I/ U"-8Mjrd^d9=Z2hi<7[zwWG0;[\?C/axGgm02Yg6Gu<:7%/MssLf5w)bI(JI=r>SB U"5[&kta/8sVYP+K1w/9[sdnJPM\>c[ U"ig5*mJ.F3X2+hAkCl[%2pH^ZE_>GGY/FrLm5X2A+R]&7a?hW/hv8:I8F;(S7_k8 U"gtmJU:Dbwp)U:DZ;HTlq_lDfU2a>kip'?GwkI/&2d7w,Rk/FCMDEpVf2.5)_&nG U"8djMxV<(aU\l+R>Q.z.Emt&hk^vllwiCKZ*>C+n2