ࡱ> l ) !"#$%&'(*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgijkmnwpqrstuvhxyz{|}~Root Entry FpGU@-WorkbookX_VBA_PROJECT_CUR" &pFFVBA &pFF  !"#$%&'()*+,-./0234579:;<=>?@ABCDEFGHIJLMNPRSTUVWXYZ[\]_`abcdefghijklmnopqrstuvwxyz{|}~ u'ɀ\p Aron Landy Ba= ThisWorkbook=hGr38X@"1( Arial Narrow1( Arial Narrow1( Arial Narrow1( Arial Narrow""#,##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_-;_-* "-"??_-;_-@_-[$-809]dd\ mmmm\ yyyy dd/mm/yyyy;@                + ) , *    `Sheet1`i u'ɀ    dMbP?_*+%"??U} * >@7 Sheet1 Dr#<`r$ B۸rU2CFThisWorkbook__SRP_61__SRP_7 6BSheet1 8yhY9Hu!0xxyhY9Hu!0x`r$ B۸rU2CME(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%@h % %Xp@@0D"$*\Rffff*0z44e0b7a64xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU 0i4 a1`rU @nDr#<Y-JxD Fd7K(LbrMxd7K(LbrMY-JxDME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%@h % %Xp@@<<0D"$*\Rffff*1044e0b7a64xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU q49`rU @n__SRP_8K__SRP_9OBDates  __SRP_3oH/rU (`((`((`((` ((!`((I`((q`(,`((P D"$*\Rffff*1>44e0c10c*\R0*#13:*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#..\..\..\..\..\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*#f*\R0*#12} B 0x68 4B X6, 677     . J 6 7& $ @( h  0H `D./MxMEP> <<<<+ 0 +P`zk( `t8`d`8D`"t`$p+ `p+ i i `&l`(h`*d`,``.\`:`@+t(`Dk8 `Pt@`p`<<`0X`T`2P`4L`6H@`>8`@x4`B0@`D ,`F(+ `$k11 i `hp`liZ `hhhP) `v8h`X`P  r`  `hX`XP+p`k""iZ iZH`l`h`XdPP  +H ``k fi i0iliZ   +x`Pk`~\`0X i  %izh8+ `Hx+P `ht`Xl`~hh  h x`Hk0 ##i +`(k;iZ +f `Xk %%N`ht`d```X\`p`l`h``x iZ `p`X\0 `h`d`n X`l`Xd `z +l`TksiZ (Px( 0 t" 4h p`X `h `H ``p ` x`\`p`j(`` \`X`T` P` L+ ` k( \\ iZ h`hI( `hd ` ``X`T + `k  I  `jP@$ `x `!|+88E( h pxH 8`Hx `bd @0h @HX @H @`8 @x( @ @ (@ (@ @  x  `ft  @X  ` h 8 `lx f@T 8x`pxXfl@@ @ (@80 @h @P @ @ @ @ @ @ 8`tl  @X H @@T @L @0H @D P8h @xl flH+@PH @8 @4 @$ @ @ @ @ @ P `x(flHh@0\ @T @P P`x( H@ H@`x \f@(@ @0 @X @p @ @ @ @ @ 0pX0`Hx @` P`x X@p  8 ! p!! X! `t \fl@ @ @(! @@! @ H @! @ @! @! @ H @X @H @8 h)( H%%$$@$$$###h)(x#h)h)L p$X< $@, @( $ @ 0% @ H%X @ @ H% @ @ h)x %(h @X @H h)(8 @4 (0(X `&'&(`&'x&h)x&h)hh @X ('@H @8 '( @ p'( @ @ ' @ '  h)0 @ h) @V h)t @d @T @D @4 (($ @ @ h) +8H) hh @X )@H @8 *( @ @*( @ @ p* @ * 0 @  @V t @d @T @D @4 +($ @ @  , x $4 8$%HNEpZH@7`Q B50 x B  4@ >p8 ,  P `h8  Bx$L*($1   :8B ( @90  Xhpx      @9 JA  X  h x  63  *& ,& *& P X p &(B x      P`9h9  p9 9999 8  H *%X *& ,& *& $  @ B  < , H    H ` x     @    0     h .]x 2' & "G 0 B 8<  X hx ".03  B ` F R8 > 0 d< p 0:8  h @  $  P  2C0h29D;@Nx:0-(0P X B @= ":  :H=  $         x    8 XQXJF9DE><: 0 B  6`2, $ 5 Z`5B h)  (>2  p) p++p.x.  . . +. . . .. *<. *<0: /(/ 0/"@/h/p/ x/ 0 8  @&/"/ /(0(0B[80B]0P 0&!0 1 1  1  01  81 H1 h1 p1 1  1 1  1 1 1  1  1 1 2 2  2 "I82 `2 h2 x2 &2 $2 $2 ( 3 H3 FAX3 3 $3 &3 $4 *84 ,h4 $4 &4 4 555 B 0< ,8;  < p   P D98<  `N p ^Mh;J9;,% 60*&,&5*&686  j7 B  (@ 6H8`<(`6h6 B h p ZX   @ 4 0 2 F( * zp . 8== =      08 @ P h *< *< " 08   @ P `p  0,0,0,@0,p0,0,0,0,00,`0,0,0,0, 0,P  N 62B<`  :h  .)82(`*(p82RF*(8h  6@p R)  >   (0<7@0,   2*  @ H P   X 01` *- $* $* $*!$*8!$*`!$*!$*! 0;!0;"0;8"0;h"0;"0;"0;"   (# @#2*H##  # #2/##>7$H$`$  h$ $XJ$XJ$XJ8%XJ%%  &&>,& &X&2"&X:&H1'<X'J:'  B' \0(6.(&#( ( ) " ) ;)))))*(*@*X*p*******+(+@+X++++++, ,8,P,p,,,,,,- -8-P-h-------.(.@.X.H55`:)P>" 1 if HYear is a leap year, else 0i]P   'P $ ' d 'X = Int PA h lGzjInt(i'H'"  " = 56zk('$ date no. of 2nd Oct 1902 (Thurs)''*length of normal year ՗',length of leap yearLen& '.length of 19 year cycle  " '0    '94'2  G'2j  G'2j  G'2j  G'2j  G'2j  G'2j  2  '4 & 0 . 4 * 2 , '6earn 6 & ( 8'8earn 6 '6' 181440 is chalakim in 1 weekFrom 68': + 68 '< 68 '>= <G'@cG'@j Int : @  : @  : @ G'BcG'Bjen  $ : <8 > 8M G'FcG'Fj $ 8 ' 9 @ B G  @ B ' cG  D F ' j DaysFip. Returns date number of Rosh Hashanah of HYearZake' ]H`x& Note that 14611 is day no of 1/1/1940Inte returns hebrew day of the month' Z nd 3'z HY>=56635 in code month is multiplied by 10 to make it an long X G H 'Hj) Then  $   '   ''1 whether chaser (-1), kesidrah (0) or shalem (1) D is date number/string; Returns number7 for Adar II use HMon=6.5]0Xp  X  X l 'H  ik- finds hebrew year of a date number/string Dt Z$b9$b D ' Z$d  Z$d 6 Th  $  ZG  'j Exik Z$d G  'j(ix]x  Av +r'l Z r = 'fzk Z$'h h$ 'ti h $   ' Z   ' Sin   ''X  b n < h X< XAG X 'XcG X 'Xjl = RH XAR  ' nd X G  'cG  'j0kX X G  'j X G  'j X< h G  'j x = 1 X$@'f0i 'p]8    G Z Z 60 A]h`  Tishri+r0Chesvan+rs Kislev+r Nisan+r(6) z Z$f'X X'n006 Th  n  n 'lEnd If n G l 'lj n G l 'lj h nG l 'ljIf mm X@G l 'ljiTevet+r(2) Shevat+r Adar+r"KisleIyar+rMonthNSivan +r+Tamuz +r(7) Elul +r Z (8) k Z$f'X% Hebrew date in format "d-mmm-yyyy"] xG Z Z$'h1) Z$l0$- X$r'p X h$G p1'pj X@G p2'pj p- h0$'p= 1 Thix z$f'XHYz Z ('t HDatezk Z Z$$H 'v' v v1 G'tcG v'tji@9 long part is sidrah number 1-53 or festival date 101-907SF"' G$$'cG 'j z$'h $f'XHYx'If n (default this year)K For 30th Cheshvan/Kislev, if in the first year after death there was 30th,7 then keep it on 1st of next month, otherwise on 29th.) 30th Adar1 -> 30th Shevat in normal year'x0kh  X ~$H'xyr x ~ X X  X$H'x h X$H G x 'xjDate(y X X@ h$ $eit = X h$ $e x x  'xahkxi(e Ya]P' rules used:t barm Z'i']P  Z ong, $'hd $l'~ h$'h h $' Exi h X ~$H'd If  ~ X XG h X $H'jzk' b) Adar -> Adar2 c) 30th Adar1 -> 1st Nisan  X ~G h $H'jah =0 The date number of the Shabbat following date D 6* 2nd dp is 1 if rosh chodesh Z G  Z  'jtion S# parah 5, hachodesh 6im 8 o'' d diasdS Place is 0 for Israel, 1 for Diasp or begins with "I" or "D" (default is diaspora)'^- decimal part: first dp is 1 if double sidrah Shu+ 3rd dp gives day of chanukah@ 4th dp gives special parsha shekalim 1, zachor 2,dtt 5th dp for haftarah if unusal: RCh 1, Machar 2, Hagadol 3, Shuvah 4, Halo Chibne 5, V'Ata Ben Adam 6,I" or ( Mattot 7, Nitzavim 8 n $'d $\al p G'j G'jd@ $$IG'j $$DG'jkk  Error in agrument 'Place'' year zk Z$' $f'Xf $l'j Xd j ', ha $$ '( $ $ 'G ytype is my year type ref     aG'j     cG'j     bG'j     bG'j     cG'j     aG'j     cG'j     G'j     G 'j     G 'j     G 'j     G 'j     G 'j     G'jH Flag if Pesach8 or Shavuot2 is on Shabbat (r2 is on Tues/Shabbat resp.)     G+jar     G+jkH4 Flag which of possible doubles are joined this yearyt  0 G+j+j+  G+j   G+j+   G+jd    G+j        G+jks sin    G+jto shak  Z$$H$  ' i7 NB this is negative if dt is between RH and Sh.Ch.Ham.ha shabbat bereshit = 1habb e'z k ha g lGXOJ@'cGXOJ@'jz k  n sG 'cG5'jz` kX  'z8 k0        'z k '   G  $ 'j   G $ 'j  G $ 'j  G $ 'j  G $ 'j  G $ 'j( ' G $ 'jj * G $ 'j 3 G $ 'jG $G6@'j $G;@'j $G=@'j  $G @@'j '$ǦC@'j *$G E@'j 3$ǦI@'j Rosh Chodesh ' j j X G'j   d 'G  Chanukah'    G'cG'j E     G j 'cG j   'j   'jk 4 parashotf'    Y  q G'j  ` f   G'j  i o   G'j  p    G'j  ' 'j Haftarah ' j  G'jE Machar not on rosh chodesh, 4 parashotha   G'jE Hagadolj$ )G'jE% Mattot read on Pinchas if M-M double $ +G'jE Masei even if RCh or Machar /G'jE Reeh even if RCh or Macharft. 3$G'jE Nitzavim even if double #6 (V; Acharei-Kedoshim: One is a special haft. except in year 13 V Read #5 (Halo Chibne) for non-special, and #6 (V'Ata Ben Adam) for Kedoshim in yr 13   G'jha   G'jt(   ' =ihK weeks since this year's Shabbat Chol Hamoed Sukkot to shabbat following dt AoBereshit++Noach+ha Lech Lecha+Vayera+arah Chayei Sarah+tToledot+Vayetze+ Vayishlach+Vayeshev + Mikketz + Vayigash + Vayechi ++Shemot ++Vaera+Bo+ Beshalach+Yitro+m Mishpatim+Terumah+Tetzaveh+ Z eh"''Ki Tisa+VaVayakhel+(2Pekudei+Vayikra+raTzav+ "ShShemini+(2Tazria++Metzora+ Acharei Mot+im"Kedoshim+Emor+(3Behar + Bechukotai!+Bemidbar"+%Naso#+&+ Behaalotecha$+Shelach%+m"Korach&+ChChukat'+es(4Balak(+Pinchas)+"Mattot*+Masei++es(4Devarim,+ Vaetchanan-+Ekev.+ReReeh/+(4Shoftim0+Ki Tetze1+"Ki Tavo2+NizXkP' $n < dP $\ G'j G'jdH $$IG'jPlace k`kp Error in agrument 'Place''se(Plazhk Z $' eGRosh Hashanah1'j nG Yom Kippur'j GShavuot2'j zGShemini Atzeret'j d 'jes s yGSukkot j 0$'jvuot2"  GPesach j 0$'j 'idNum   ? 'nd $' T  me = 'Form' -'    $'t(SidNk ' '=  - i) ;'  eSidr  'k  I' RCh 'k  ' d Mod Chan' I  d0$'eIf j kx d '  ' G Shekalim'j G Zachor'j>= 1]( Hor (No G Parah'jame G  Hachodesh'j  'id  G (   $)'jid  G ('j G Machar'j8 G Hagadol'jah G Shuvah'j= 2 G  Halo Chibne'j8 G V'Ata Ben Adam'j & " G Mattot'j Sid G Nitzavim'j  G )'jkki return sidrah name for a date SidNitzavim3+ "S Place is 0 for Israel, 1 for Diasp or begins with "I" or "D" (default is diaspora) End Vayelech4+f X G H 'Hjnd ( h XG H 'Hj)) The PAG H 'Hj= PniX? $'Is    ']`xC'&9no of chalakim from Sat to Th:17:394 (since mod(Sat,7)=0)BI'(chalakim in 17:394 $ : <8 > 8 G'DcG'Djfrom S] 8]H as Loc **************************************************************************************************ing(Plpdhbh8 Uses assumption that RH is between 1st Sep and 31st Oct3 returns hebrew month, tishri=1, elul=12, adar2=6.5P?9 eat up the no of days elapsed this h year month by month]  zH?k@? Z$'h h$ ' h $   ' Z   '   '   XG h @ ~$H'jue(Bir $$DG'j Else Haazinu5+ar ~G $H'xcG  ~$H'xj to work out barmitzvah datee) As  X@G h  ~$H'j n5 A& converts Hebrew date into date numberew d P( P< h  PP Pd Px lGzj > l P   P Gzj = 60 h$]  P  Px  l  l Gzj(" &8Y]8VKKK KKKKTF'^ In leap year Adar -> Adar1 (some keep Adar2 also). In this case Adar2 date is after decimal. >= Y4 a) Chesvan/Kislev 30 -> 1st of next month if nec.idrahNx`]8 h s Doub]     I(]H   X p     F8] @ H>.Attribute VB_Name = "Dates" Option Explicit Pub, FunclIsHLeapYear(H As Long)Boolean TZrType5)1) End[n' Retu rns d number of Rosh HashanahyRHf D im y0, *rmhno`rmLentpq cyc4 lesyno $4molad*daysFromRQwk +hrchelekBZak 6adugatr, bfTaq8fat U= 05663CIf C<]ThećiRH0 EXxit@ IfCCk= 10,06'o.2Oct 1902 (Thu> 3 *`L%)6+2C )N8+dL)11K414K5P7K>6C!5a$- MC-e u= M+1-s *A+ *#* i h|= 3 - $h0424!508Rb48144F0H' 1Cis JV week#cC / M 1B2D/!c @7@>h#.  Elsooe'K+r1 Or 246Nρf HYL׀k# =[A@*80b@9?3"20dOd= n2C4 K 215589+H:{BYPV+wEf(+ q> 0b@:3+d-d(dh}' finds hebrew#O% ^ay/sng D' Usy assumth?` 10\st@ Sep a@31e ' NoP146G wSe1/94 { <"k:pq=  :opfp%Rdt)"r)&57006Monlth!$9q0 1?sƓ]) <=  T|=tf_)z>! sc' rTm , tishri=1, elu l=12,'ar2=6.[! i!Dope$0 , last , yrYzhPNSserSem Q H ŶyR# = y{" # 1!"s34 0l Pd0gl- ]cm ' e3up th.enјsPapsed`2hC98 by[)Do While E@C6W( _5)&m10c 156`f- 29QLbA\2004 =- 30Eu! !_Td' -ay.@Loop/-m"#q,-n?@##Q$b"HDay/E7`==; >Z@=D, m>fR^ A p"g(o^l^>J>? > )`H-! lastRH @+ 1 chaserShalem = (yrLen Mod 10) - 4lHMonth0(dt)&(Int(m $HDayhdayNoz(mm 1) 0* 29Zm / 2CIf ">= 3 And 1 ThU-949-:s> 360B7730m8m6.5 EaFunction Publ(ic  bteA As Long)Stri ng 'Hebrew date in format "d-mmm-y"+0 DimԀNa@mes(12%,D y0, mDoEer )5"TishriAH= "Chesvan3@KislevO4evet5ShevaP6BPAdarO7NisQ$8Iyr9Si2:Tamuz1@@AP9^ElulC Fdt <@06‹WC\pExitƈC IfkAHYear FF(y, "0") & "-"<w@ [aHYrType(y&gi@Wd ` 1DpcMv2D=$a&yiOme]_Variant!!d`s%`44 -D3 uys@ -(&3, 7, 15# C Or> 49c$"" Else "@ Yahrzeit(DeathDCAČ, OpalGe#0' to work outC the yN <yr> (default this`: 30tTh hn/, ifa first afte@"A ere wa:s,C6@n keep fon 1of next m, o1`rwi'298th.bA1 ^-`!Ïnfl"In leap(so me2 also). `!c CCs cimal aTs, d3reAAv=E9= 0Iyr9CPaNow()))JQ` Ef$$hHd'6%Q/p< 56620y C 8EvRhF0 p H 3(aR nQV 04L29103>/ap 6A pOp,[&ra\!w DR g5,7t#r, 6s K0B Od e+ (1/ 10s'u12 ͗BarMitzvah(Bir Rcc+PbarmBP%rules used:% a)?NNqCJAPnecI b@UF2Gc)PTEK@oDs #gDL12@/ w9oE43Q#ƭA*)y74 P8Ɗq2 &!83@ ._B,$35B(yq p%  =49?6?'83 t  / '  A?9=9bbat0e(80 ᳇numb~ ~ llowӍCDS= dĠ7 vXg+ 7O return sidrah n3 ر aRPl4ac s _@ I`sraelbDiasp or begins w"i="I"!"D"W0doraq2#' Dim names() As String, dia$sp@Lo8sidNum 0.=gK5R Hashanah121DYom Kippur x907#:AxShavuot222eminwtzeretg@u= $ Moda 7g>15 A Ad< 22"Sukkot" & F@ormat(@ - 14, "0"/d4XD 7 723Pesach ei@&Int(c j - i) *000 + 0.56 #i$j > c<'C%@ ?Rm@j& "-7}f Oyc #j DA0mB3I`; 3v& @ #.qk_. Y"RCh} '@'CJ`,6.j /,)L7 (&!kT2?/@YJ*Shekalimz JZ>oR 5QPapyo= SHa)eR<&7_ yP (L:d)mq) 8 ?](Yo= mMPaQXHagadol= 4?<Shuvah = _lo C`hibnee -k"V'Ata Ben Adan*xMMatt@oO! 8Nitzav2 " >q3P icƳ HDa@te(HYrHdMos ybQ' converts Hebrew d tonumb4erfr II use =6.5c@ month is multiplied byM pmake 0an l͵HY>=5663h"#lastR"H7yrLs )chprpleH3S0tr@= WR4SK < Or Τ 20BC> 30 O T = RH?Q Ep- dzs= ()4 ' whether  (-1eke`0V (  `1(1m$3+4(60T< 36P3= 8rbq20a=P6O-y 3s(SZ)1{) 6C42 q s=tKp(mCP`* 29IŶnt(m / 2) + HDay If m >= 3 And chaserShalem = 1 Thente8j+ 1U t4t-v-;yrL[> 360K@7q30rh65' EFunction ' *^3`Priva> HYrType(HYear As Long)l2'ifis a leap y, else" Dim no # = (6) Mod 19DnSelecxt C{3, 6, 8, T11479:1 E':A= .dCgMSidrah(dBt:, Opsal PlaceP@Double#'( D NdA_number/strping; 0 for Israel@7BDiasp begins with "I""D" (default ora)CReturCEBl{ parBs5 C 1-53!festl /101-907decim@=: first dp!1 d@n  Kc2@H rosh`}odes"h3rdA gives`y ofnuka44%3@ #sp@#sha shekalC W Jzach`,2,`ah 5,L h 6358haftaE!unusal: RCh Mn2, Hagadol [Shuv `[Halo @ChibneV@'Ata BA8dam`S+Ma ttot cNitzav8tdI}, sXmAW, ddc 2r1h2g ytweekYomTo@v(1), # s(6U!@0+FnG LaMF3:!/@ˀw< 1006?µc{GaEx8it C!Ifc*= -$` @IsMiss|(a֣ fNumeric`= 0c% ` `jcLeft(U`)"B  0@p{f"Err;in agr`nt ''"m_ sb8batP^)}HMonth(s$2Z=1yr2=*3%dd# 3= RHor2h1s' C5Qcmy Qt B6re't78P- 3@\ROSc_d Y5%U2_Y4[3_= 5"_t= 4__35 5_q13 \CYo?:8w\ X. _[ 9 381$@8149o h6%!(n!o 3}1"' FlaguPesu81;vuot2on < (0p4Tues/eresp.D7FRS4 Ojr*81X4n0WSwN(2Y391t6sK whichQpog cre joined thD < 82iNot4-{ e1{eH(g:K3qf)?U4 les(5E 7< 6X{ p (r\'))Y#H1D>U y0֛0fۏ" hs -E7(dodFt@23) / 7n % ' weeks since this year's Shabbat Chol Hamoed Sukkot to stfollowing dt 6bereshit = 16NBnegative ifE< betn@ RH anmh.Ch.z.=  IfZ-3 ThenSidhrahs0uExFunctio*EaIf&2& code'3 Or 8B 753.04 Else 2 KO'E1E10 E15 EQ C3/@0F:h(#>= Z7*A@]<21 + diasp)3906? ~ *CF0 Ey>< 7$r- 1 - YomTov(0)C /;1F> 2à+ DoublesG 7,G E@+G 92g3>3~ 4j4~ 55gx(6/=/T-$822.) 7 )1)1729*2291`1i3133k42r`2ui514r2)69151c3' Roshdc2r ch= 02dd/3 (b1+m > `2 Kd9\=F+/ 10d # 'anukahchanDay`G(r2rxModcILas3(2# c`3254<00Fj< c"- 2gBWd (1 `D2yuD+ rYu# ' 4 parasho [ytype AaG c5L60Px(86~5Fg;DN60H611O 656K7OЅA1C62א,bD,*407!;T3S] gaxdolV etSInt(3Q4k&7*Q tt read PhasqM-M dB4U0 sei evenRCh orz o|]eeh/.od0cUT8J' Nitzavimf#i' A!ei-Kedeim: Ons a special. except in 1Ե' RA#5 (Haloaib ne) f0non-T,#6 (V'Ata BAdamr@(0B;30)0*AS@3=$=C=d=v=q` @Privatu b SetNameArray(2ns( tr gReD`p18o 5ť43"B"c b"No P?z3"Lech Aa[= "`Vayer23"Chi SJz"Tol#tF7tze8ishl] 9fshevz1P@ Mikketzo ig@wchiر" names(13) = "Shemot 4dVaera `50Bo *6*eshalach 878Yitr j8Mishpa(tim 59Teruma P20tzave 1@Ki Tis 22Vayakhel62Pek0udei yik 2TC in&Taz ri Oetzo3Achare(i M 3KePdosh 3E(mor Q3CBe CBBechuPkota/3CBemidbaCC(Nasy3haalot >3Dk@K3DKD 3UDC)a4CCBkJ64BPin QsCCMattEV4CMas4ACBDevar\4Bt@nanaCEkevAR eL4@Shof]4A@e5Sav d5!N6igl5#!del 5K c!Haazinu@End Sub o`'6PY4`X^ i$l'Y`lhY4^ Gl($Hl+8o`o`@h^X^l\!Y4X^ i$l\X^ i$l+*o`h^X^+(ll($H8l5H\4(lH8  qx l ^qt l tl l ^qh t^qdlt Y\^q`hllt Y\^ qx(lxlholol)YPolTlt Y\^ qx ldl`ol&h@Tlt Y\^ qx l`ollha%YPTlt Y\^ qxl`ol@ hTlt Y\^ qx,$ l< qx 6lx ®qx<$  t  %Cx qp l K qp l 0(@]3w qp0(@]3 qp2l    :@ ]36  qp2l    :@!]36  qplp."CxpM@@l #th qd q` ohd ohey$Cx ohn%Cx oh&Cx ohz'CxohdqPohsohy G:(:0NlPi  `1x6 ohoh}G:):0NlPi  `1x6  ohq\!ohl\?qX l\ltCxlXlX' q` lx*1xlxl\l`lt*1xlX'qXlX - lx**1xGlXG lx+*1xlXm qd lx,*1xlXqXlXd lx-*1xIlxF:0NlXdk  `1x6 lXdqXlX qTlT lx.*1xlT4 lx/*1xlTN lx0*1xlTh lx1*1xlX qXlXld)lx2*#l\l`lt*#3*1x2lX lx2*1xlX lx4*1xlX lx5*1xlX lx6*1xlX9 lx7*1xlXS lx8*1xlXm lx9*1xlX lx:*1xlX lx3*1x 4xt$ 8 qx qt6 lt ltxŀŀT l ^qp Y`^lpqlll qh qdJlt(lt<llhltPltdltxŀ6ltlhltlh "ltAllhрE0lpldld竀qxldlhlxqxldlhlxqxllhldlxqxltAlxqxrU~| oayY  A i ) Q !i 9y qQ Y9q1aQ Iy!a1a Aq Aq)Y!a 9i 9 y 1!a!!Hl ^pz$ <  qt lt% qx qp Cql BIqh 'qd ՗q` q\ ltqX qT qPlT qPlT qPlT qPlT  qPlT qPlT+ qPlTlPqL lllXl\lLldlPl`qHlHlllh8qDlHqHlH8q@lH8q<lH8q8l< q4 q4.l@l4l@l4l@l4" q0, q01l ^l@l<8l8&j q,t q,: Y$^l@l<8l8A q( q( lplDqxl4l0lxl4l0qxlxl,l(qxX $ P   qxBl Mh@X X(89( ((D"qx68X(Ll Mh@X X(H ]/8l M@( (( ]/6X(lxY^ lxqx#l Mh@X X(H ]t5Xlxqx $ X8( tt l ^qp p^qllpYX^llqh llqdlh q` q\ld"lhhl\<l\Al\q\l\ q\l\Aldqd$l\ ldqd$ldqdl\l`Lldqdl\l`rldqdl\<lhhldqdl\$@tt$$ |L  qx l ^qt t^qpltYT^lpql lpqhll qd l t\ o\qX%lhlXlXqxlXldlxqxlXldlxqxllhlX(lxqxo\@Hlxqx(L$ @`;`;`; `; `; `; `; `; `; `; `; `; Cx l tP l ^qX]l ^q: Nli0 :oP`F`1x6 0oPX^c lx*1xoP@ lx*1xGlx*F: N00XM@@ `1x60T<x``;  0! (Xl.l^qDYHLlDYT^ qhlhlh1w :Xl lhiXl 8(l t44!H H8"Y4^qX5H<qX l^qh l t` l^q\ lXlXlh ($l\`X^ i$lCl($]/Hl\'8o`(2$  qtwltqpVlpzlpzlpzlp zlpzlpzlp qx qx $  tt qp l A qp  l (]3m qp(]3 qp2l   : ]36 qp2l   :!]36 qplp& "3tt l ^;ql l td l^q`oddl`q\l^Y^qXl^Y^qT"lXlTlXa qP"lXlTlXc qP"lXlTlXb qP"lXlTlXbA qP"lXlTlXcm qP"lXlTlXa qP"lXlTlXc qP"lXlTlX qP"lXlTlX qP"lXlTlXI qP"lXlTlXu qP"lXlTlX qP"lXlTlX qP"lXlTlX qPlpu"lPlPlP 9(4R,lPlPlP lPu(4RlPZlP(R(R(RlPlp(R"lplPlP(R(RlPlPW(R"lplP lP(R6lplPlP lP lP (RlP lP (R@l ^qllYɤlY^ Y^;qLlLWettlLl\gl\lXOJ@ttXOJ@ttlLl\nl\s l\tt5ttlL l\tt*l\l\lpl\lp4 l\tt lLttl\lppotk4Bttl\lpotk4Btt ototkBtt5 ototkBtt5 ototkBtt5 ot EotkBtt5 ot'ootkBtt5 ot*otkBtt5 ot3otkBtt5-ot(]/'56@tt-ot(]/'59 ;@tt-ot(]/'5t =@tt-ot (]/'5  @@tt-ot'(]/'5 ̌C@tt-ot*(]/'5%  E@tt-ot3(]/'5` ̌I@tt q l`l`od qotld붫tt q lTlX  q ql\El\lC l\ l`q 1 l`lq otl 붫tt q@lPl\ l\YlPl\ql\ q@lPl\`l\flPl\l\ q@lPl\il\olPl\l\- q@lPl\pl\lPl\l\w qotl'붫ttlq"l`ll ql\l\ q0(]/ot)'5 q'otk(+]35J qot/c q0ot3(]/'5 q$ototl qlP ot qotl춫tt |d4  e45l < ;= ;> ;? ;@ ;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& ;b' ;c( ;d) ;9* ;e+ ;f, ;g- ;h. ;i/ ;j0 ;k1 ;l2 ;:3 ;m4 ;n5 ;$      %__SRP_2Q)Times .__SRP_4^< __SRP_5`(( `(, `(09 ` !9(+((a `(, ` ((`1pnrU~|  Iy a`D"$*\Rffff*1144e0b7a6*\R0*#15*\R0*#12   0H` B    H  h   4  x ( &(8     H(F  `  PU*$h    #0@Hh  7 7"0  B H   0  P p P` p'xME (> <p x` Tk 44=iZx88x@p(x@ p x h-DT! @S!@RFߑ?cܥL@PEꐤ@hE:%XEꐢ`EꐦhEbȎ@+` d+ qIV $ +8` k{IV 'X+ `kx~IV +``D+IV j `<+8 IV XIh $@l `< `d`\E`T`L8`D`4 `Tk@ 33 i@iI Ix i$x`,`$`` `X ``p ``` `d`\`h T`L`D`<``4 `,`x$`iZ(iH(i(  x`@ ` @`` ``H`I H I( h iX $b@ @ @ @( @@ @ @X t @d @ \ @T   ( 0H H h X p @l  X b@ @ @ @ @8 @ @P t @d @ \ @T    P  P h `tp x P ` @d XX p`txX  @d @T @D @4 @8$ @h @@P @ @ xpX 8` t@H 8 @d @T @D @4 @$ @ @0 @H (@ @ P8`t (@d@hd @T @D 8X8p8P@l X`8x @\ @L @< < 8p@4p    &    8 (F@ h   PU*$(   (#Xx0  7Hh&G  & B     B  (A(PB X6O`B B $.  ]$-DT! @p]$S!@]$RFߑ?]$cܥL@]$bȎ@@ espilons8 $' $'      ' eps=23:26:21.45=0.409092814 radva Find sun position set092814qQZ.u?'tX8U\?' ecliptic longon gst at apparent 0h]t: Z Z$b$  '    ? '[K? K8]? ' K8]?aSB d? ' bI? $ Z{ [6? $ #G@ $' $G ư> 'j 2 find tzaitord0  $$',  $$' ?    ' 1   ein 1 w   'k $ $''<r $ $'G    'MI espilont3Rtɍ? $$' $   '   $   $'  G  'ji risemes $' $'      'M eps=23:26:21.45=0.409092814 radva Find sun position ecliptic long' qQZ.u?' X8U\?' gst at apparent 0h conv to eq coord Z Z$b$  '    ? ' riseappa[K? K8]? ' K8]?aSB d? ' bI? $ Z{ [6? $ #G@ $' $G ư> 'jer cha  $$'  $$'h  ?    '   ezj   'k $ $' $ $'PA    '3Rtɍ? $$' $   '    $   $'"ix V'  b%   'rax  bChuk   'PiH V V V $$'i8 V V V $$H.!? ' i V 'i V h G V'cG h'jKi Tiph ] use 2000 Jan 1.5 value] (@X]p8  conv to eq coord calc timesles use 2000 Jan 1.5 valuee fix rads to be in range 0 - 2pic ]0H`x]] ] Attribute VB_Name = "Times" Option Explicit Pub, Const PI As Do&n3.141592653 58979 ZTWO `6.2831853 )DEGREES2RADIANS d0.01745329251994 :22B :57.295779513082C uHOUR93.8197186CFuncLSunset(dt8, lat_Hdeg on tzone, dst, sunE0leva+) Dim*(A tzadj shepsc+yrday ap@ , gst0meananom/lon=decI rass12J3Grdh @aRads(dS)e CR= H- (i +i)8 / ʋ C' 0espi use 2000 Jan 1.5 value ps=23:26:21.45=0.409092814 rad q= 0.397165s9@820 58C' Find posi%ecli5 >cgcB= Z- DateSerial(Year`]), 1@)@"1eF= CR-'/ C+7'I at @arent 0h cL=$733664` *`202dO=4 h -57403 gES= fixup(0334405 SinFa 003490662!4.93289GIfs( )`L0 Then0B^g%C0' C ' conv@ to eq@ovrDAh=`]B*> ! ktn(BD* Tanf'%>R*Aa#7& +9Else@/ 23BPIdRIfc~="s),@Ds2%Cobw[A3B-- v# '=  !BdMax(a45444, W`f)h`(!,-rd)`Js1yas2 `*)DLAc@haDs3 `&< 4#C%+ 2@ECcπBalc ]sFriseQяheD h>brYmhiaC?(hh)f'$W $rhrhrh0yhTA!'-1"OhpOh,aOhOhsOhOhOhOhOh`UOhs@ 0.Oh Ohn# +_hd__h_h_hB_h2_hp_h 1._hQC7_hj8_hu)_hj_hCP_h _h_h#g_h ]hOhA&!4OhS5Ohun" POh0bOhfu>kOhOh ?Ohec$ @=2}$jKh A=Oh }' G.B|= ggpgrgrg@g!- whrqh eT rx!sAbe inngeD 0`,2pigr2ie gx)/Ts#r` xDo@ Whilecq < 0ssLoopup >=T5 b#P} Aso +aP A`xVSqr(-x@x1a.ood/ }.570pR!ea N Private Function Max(x,@ y) If x > y HThep =@Else0y End~ Aq! d lM@ tdlM@ t\4o\k ĤbȎ@tBtT5qQZ.u?tLX8U\?tDFlM@ kU t(dBt<6d ot#m t\oLo\k t5m t\oDo\9 t o?-DT! @o S!@t (o-DT! @(o -DT! @t m t\md o\tm t\md o\to o,oTt7l$M@ kĴ3Rtɍ?t tBt6to9 oot7M@ ok t\bȎ@o\kl5l(]gl(l ( (ltdTlM@ tdlM@ t\4o\k ĤbȎ@tBtT5qQZ.u?tLX8U\?tDFlM@ kU t(dBt<6d ot#m t\oLo\k t5m t\oDo\9 t o?-DT! @o S!@t (o-DT! @(o -DT! @t m t\md o\tm t\md o\to o,oTt7l$M@ kĴ3Rtɍ?t tBt6to9 ootGM@ t\S!@o\ok tTbȎ@oTkl59 ((ltd`  dBtt ot1otS!@ttotS!@ZotS!@tt16`$ HA  dT D4($B9 kB9 tt56H$ T4TO dT D4 $(B9 kB9 H.!?tt5T$ T4X$ TdRFߑ?DBtt48$$ Dp8\Lt$ \l0 \l1@8(l<MrU @`Qi+++//+@`Qi+++//+(` /(` /(!` /(I` /,q`//n.0* pHd VBAProject4@j = _VBA_PROJECTIdir2__SRP_0$__SRP_1 _B_var_IsLeapYearC _B_var_IfP Worksheet _B_var_cyclesK+ _B_var_yearno#; _B_var_leaps8 _B_var_normso_B_var_DaysFromR0* _B_var_wkday _B_var_hr7 _B_var_chelekM_B_var_MoladZakenD3 _B_var_Adu0 _B_var_Gatrad__B_var_BetuTaqfat Dates1 TimesX_B_var_n_B_var_r_B_var_l  _B_var_dd_B_var_x_B_var_m  _B_var_mm _B_var_Format _B_var_days _B_var_leap17 _B_var_leap27 _B_var_diasp _B_var_UCasea _B_var_LeftQ_B_var_s _B_var_code'# _B_var_r1 _B_var_r2 _B_var_ytype!Y _B_var_YomTov.=_B_var_doubles _B_var_week͙_B_var_roshchodeshߥ_B_var_ChanDay_B_var_ChanLastC _B_var_parsha _B_var_haft6 _B_var_SidNum#_B_var_doublesidX_B_var_i _B_var_j _B_var_k  _B_var_HM2 _B_var_lat|j _B_var_lon|l _B_var_tzadj _B_var_sepsSJ _B_var_ceps _B_var_yrdayp_B_var_apptime@ _B_var_gst0}Q_B_var_meananom_B_var_sunlong _B_var_dec7@ _B_var_rasco _B_var_s1 _B_var_s2 _B_var_s3 _B_var_rd_B_var_h _B_var_r3(DEGREES2RADIANS:(RADIANS2DEGREESU (RADIANS2HOURS" _B_var_optionsgstH _B_var_dolat_degmHlon_degtimezone7S sunElevation^ _B_var_Select'E _B_var_casefimv _B_var_fimKfrom~ lasj_B_var_y_B_var_dyrLenIlastRH3hdayNo chaserShalemd _B_var_HDate4+HYrHMon=LoadPictureConstantsYahrzeitHebYearl _B_var_LongSetSidrahNameArray _B_var_ReDimsetsidrahnames_B_var_setsidrahnamesc _B_var_Callaslongcl   9;H@ @To Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`Officeu ThisWorkbook| _Evaluate Sheet1Module1bHYrTyper D" J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automat8ion^DOf(ficDO>ficDD2DF8D04C-5BFA-101B-BDE5DAAB42DD:\gram Files\Microsoft 6\MSO9 .DLL#  9 .0 Ob LibraryC"ThisWorkbookG"ThcsWrkbo2 (HB1tXB,!T"B+BxS@heet1GS@#eTt1mH2ND atesG«Dba@es2OSO6!J6TimETY~m6ECO*'OJBas  *\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.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB#OLE Automation *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.2#0#D:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library  D"ThisWorkbook0z44e0b7a6ThisWorkbook Sheet11044e0b7a6 Sheet1 Dates1>44e0c10c8 Dates0S Times1144e0b7a6: TimesH'hH0BZ^,NI)} 8CTF9?DӸOG^(LSunsetdlat-sdlon-utzS_dst=deg*latkRads)lonktzadj8seps&cepsJyrday DateSerialUapptime=gst0PmeananomsunlongfixupSinCosOdec&AsinHrascD AtnQuTan-s1_s2_s3_rd^MaxȲh_Acos7(LSunrise~Ur3^Sqr(Workbookk IsLeapYear (IsHLeapYearch Korach Chukat Balak Pinchas Devarim Vaetchanan Ekev Reeh Shoftim Ki Tetze Ki Tavo Vayelech HaazinuG  a Qa Qa 9YyyrU~~{      HYeardt DeathDateYahrzeitHebYearHYrHMonHDaylat_deglon_degtimezonedst sunElevationxy BirthDatePlacenames7A\VBA6\VBE6.DLLVBA I qThisWorkbookThisWorkbookSheet1Sheet1DatePROJECTwmbPROJECTSummaryInformation(DocumentSummaryInformation8 sDatesTimesTimesFY-JxID="{231BFC6D-D098-483A-991E-3BF261B939EB}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Dates Module=Times HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0C0EFA9A063C0A3C0A3C0A3C0A" DPB="AAA85C00FB01FB01FB" GC="484ABE41BF41BFBE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=88, 88, 884, 718, Sheet1=0, 0, 0, 0, C Dates=132, 132, 928, 762, Z Times=154, 154, 950, 784, 0 - 1 2 NoachOh+'0@H\l  Aron LandyalandynMicrosoft Excel@q@NF YH  Y՜.+,0 PX|  Optimum Asset ManagementaO Sheet1  Worksheets  Yi  FMicrosoft Excel WorksheetBiff8Excel.Sheet.89q Shemini Atzeret Sukkot Pesach ;   RCh  Chan Shekalim Zachor Parah HachodeshK*srU~~~~~~~~~~~~~~~~~~~~~~~~~" )8D|ONF *  a Qa Qa 9Yyy1 !Qa 9h  ! 9 Q i   ThisWorkbookSheet1DatesTimes VBAProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA I q`F4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel Aip0FC:\WINNT\System32\STDOLE2.TLBstdoleYahrzeitMax QyL-[DR 1D:\Program Files\Microsoft Office\Office\MSO9.DLLOffice aF`r$ B۸rU2CFyhY9Hu!0xDFWorkbook @FY-JxD Fd7K(LbrMDF Worksheet IsHLeapYearRHHYearHMonthHDayHDateAOmerHDateHYrType VBE6.DLL Y) Y!  Tishri Chesvan Kislev Tevet Shevat Adar Nisan Iyar Sivan Tamuz Av Elul  0 - 1 2 Noach Y ( Y" HLSunsetLSunrisefixupAsinAcosRads Y  YF  YG  YH  YI  Yom Kippur Yf  BarMitzvahShabbatSidrah I D 2Error in agrument 'Place' YP X Y1 x Y  Yi  SidrahNameSetSidrahNameArray Rosh Hashanah1 Shavuot2 Shemini Atzeret Sukkot Pesach ;   RCh  Chan Shekalim Zachor Parah Hachodesh ( ) Machar Hagadol Shuvah Halo Chibne V'Ata Ben Adam Mattot Nitzavim Bereshit Lech Lecha Vayera Chayei Sarah Toledot Vayetze Vayishlach Vayeshev Mikketz Vayigash Vayechi Shemot Vaera Bo Beshalach Yitro Mishpatim Terumah Tetzaveh Ki Tisa Masei Vayakhel Pekudei Vayikra Tzav Shemini Tazria Metzora Acharei Mot Kedoshim Emor Behar Bechukotai Bemidbar Naso Behaalotecha ShelaCompObjf