ࡱ> r0  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqstuvwxyz{|}~Root Entry Fu#yЁ3EWorkbooki_VBA_PROJECT_CUR"=,2Ё3VBA=,2%2 u'ɀ\pNikolai Ba= ThisWorkbook= v/8"8X@"1Arial1Arial1Arial1Arial1 Arial1Arial1Arial1 Arial1Arial1 Arial1Arial1 Arial1Arial1$Arial1 Arial1Arial1Arial1Arial1Arial1 Arial""kr"\ #,##0_);\("kr"\ #,##0\)'""kr"\ #,##0_);[Red]\("kr"\ #,##0\)(#"kr"\ #,##0.00_);\("kr"\ #,##0.00\)-("kr"\ #,##0.00_);[Red]\("kr"\ #,##0.00\)@*;_("kr"\ * #,##0_);_("kr"\ * \(#,##0\);_("kr"\ * "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)H,C_("kr"\ * #,##0.00_);_("kr"\ * \(#,##0.00\);_("kr"\ * "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)$"NOK"\ #,##0_);\("NOK"\ #,##0\))$"NOK"\ #,##0_);[Red]\("NOK"\ #,##0\)*%"NOK"\ #,##0.00_);\("NOK"\ #,##0.00\)/*"NOK"\ #,##0.00_);[Red]\("NOK"\ #,##0.00\)C>_("NOK"\ * #,##0_);_("NOK"\ * \(#,##0\);_("NOK"\ * "-"_);_(@_)KF_("NOK"\ * #,##0.00_);_("NOK"\ * \(#,##0.00\);_("NOK"\ * "-"??_);_(@_)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off" yyyy\-mm\-dd mmm/yyyy\y\y\y\y\-mm\-dd                   + )    D  @  H  `  D   @  @   H  ` @  `@  `   `@    h@@   h@   H   `    h   L  x@ @   x@ @   |@ @   x  x  x  x  x @   xa@@   |a@@   x  x  xa @  xa@ @  xa@ @  xaa@@   x  x  |  x@ @   |@ @   xa@ @  x@@   |@@   xa@@  x @   xa @  x  x  x  x  x  x  |  |  x`  x`  x   x  x   x  x   x  |   |  x `  x`  x`  x`  H  L  h    h    x   x  x   x   x`   x  x  x  x  x  x`  x  x`   x  `^Calendar (English)Kalender (Norsk)> User Guide*ZVersion//  DateAdvent DateToWeek$EasterDateCalendarFAQFebruary: January:  ;'%  ;'%  ;  ; Year;+TbZ  3  @@  1 (hJanuaryFebruaryMarchAprilMayJuneJulyAugust SeptemberOctoberNovemberDecemberNotesMoTuWeThFrSaSuJanuarFebruarMarsMaiJuniJuliOktoberDesemberUkeMaTiOnToLSNotaterNikolai Sandved nsaa@pvv.orgVersion Modified byEmailModified How to use/In the Calendar-view, write the year in Cell B36The full Calendar will now automatically be calculatedError messages 1. pskedag Skjrtorsdag Langfredag 2. pskedag1. mai 1. juledag 2 juledagNorske helligdager 1. nyttrsdag 1. pinsedag 2. pinsedag GrunnlovsdagKristi himmelfartsdag1. sndag i advent)Tools-> Macro -> Security & Set to MediumWCalculation of the Easter date is done by using a algothm appearing in The Calendar FAQMore informationSources>Advent Calculation - http://www.smart.net/~mmontes/ec-cal.htmlKISO Week - http://serendipity.magnet.ch/hermetic/cal_stud/palmen/lweek1.htm5Easter - http://www.ortelius.de/kalender/east_en.htmlVEaster date FAQ - http://www.cs.rutgers.edu/pub/soc.religion.christian/faq/easter-dateLEaster date formula (US Navy) - http://aa.usno.navy.mil/faq/docs/easter.htmlmEaster date formula (Calendar FAQ)- http://www.tondering.dk/claus/cal/node3.html#SECTION003120000000000000000DEaster date Formula () - http://astro.nmsu.edu/~lhuber/leaphist.htmlUISO 8601 - http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/OLeap Year Rule - http://www.computerbooksonline.com/program/1032chap.htm#E29E11|The calulation in the calendar have not been thoroughly tested. But the Easter calculation should be correct for every year. dThe Calendar follows the ISO 8601 standard regarding Week numbering and Monday as first day of week.Ascension Day New Year's Day Good Friday Easter Sunday Easter Monday 1. May Whitsunday Whit Monday Christmas Day Boxing Day Advent (First Sunday)APublic holidays appears on the Right hand side (including Easter)(Norwgian) Public holidaysMaundy Thursday Norwegian Constitution Day Palmesndag Palm Sunday .Close Excel and open Excel and this File againEIf #NAME()! Or ### in Week/Uke you need to enable macro to run-> GotoWeekGFirst public version appearing on http://www.pvv.org/~nsaa/ISO8601.htmlcNB: Dates before 1900-03-31 is one day wrong in Excel since Excel assumes that 1900 is a leap year!TExcel treats 1900 as a leap year - http://www.ozgrid.com/Excel/ExcelDateandTimes.htm$Added more description in User GuideFAlso appearing on my excel page at http://www.pvv.org/~nsaa/excel.html?ISO 8601 - Convert - http://www.probabilityof.com/ISO8601.shtmlnsaa@probabilityof.com6File moved to http://www.probabilityof.com/excel.shtmlj NH|O1zGD?* u'ɀ +&  dMbP?_*+%&R&6&"Arial,Normal"C:\Documents and Settings\Nikolai\Skrivebord\ProbabilityOf.com\excel\&F - &A (&P/&N)&L&6&"Arial,Normal"Created by Nikolai Sandved on 2003-04-03 19:04 Last Saved by Nikolai on 2006-01-22 00:26&M&d2?'M&d2?(\.?)MCanon i560߁ 4dXA4BJDM Rt,T`Op,T`OpRt,T`Op,T`OpXXKLADDEksempel 1' d Rt RtH / RtCanon i560߁ 4dA47-" dXXU } I} } $} } } $} } }  $} !"} ##} $$I } %%} &m +&% %  %%;@%;`%@%%% % % %@ %;@ %;`%@%&&&@&&&;@&;`&@&&&&&&&;@&;`0?@@@@@@0?@@@@@@0?@@@@@@ ~ `T@Daaaaaaaaaaaaaaaaaaaaaaaaaaaaaab ieeeeeeeDNOE  eeeeeeefDNOE eeeeeeej #^X$_~ 3?,,,,,,,DNOE ~  ,@,,,,,,-DNOE~ ,@,,,,,,X #99$ 4_ . . . . . . . FPQG  ._ . . . . . . /FPQG ._ . . . . . .  Y #:M$$; @$DAA40= $#DDDAAB53* =siDDAABFL@ @DDAABFL@ L"B*$=*(=*,=*0=*??@ HRSI 4 B4=#DD DAAB05*<= siDD AABFL@ @DD AABFL@ L"B*?*@*@*@*@<@HRSI4)@=#DDD AAB09*H=s iDDAABFL@ @DDAABFL@ L"B*?*@*@*@*@  1@ #:\$;@ $ D $40L=#DDDAAB01/*@DDDAAAC+@# DDLAAAC+@+@+@+ @@"@ JTUK 4 BT=#DD DAAB06/*@DD DAAAC+ @# DD LAAAC+"@+$@+&@+(@=*@JTUK4)\= #DDD AAB10/*@DDD AAAC+ @#  DDLAAAC+"@+$@+&@+(@  2*@ #:Y$;`@$ D $40d=#DDDAAB02/*$@DDDAAAC+&@+(@+*@+,@+.@@0@  JTUK 4 Bl=#DD DAAB07/*,@DD DAAAC+.@+0@+1@+2@+3@=4@ JTUK4)t= #DDD AAB11/*,@DDD AAAC+.@+0@+1@+2@+3@  24@  #:N$;@$ D $4 0|=#DDD AAB03/ *1@ DDDAAAC +2@  +3@  +4@  +5@  +6@  @7@  JTUK 4 B= #DD D AAB08/ *5@ DD DAAAC +6@  +7@  +8@  +9@  +:@  =;@  JTUK4 )= #DDD AAB12/ *5@ DDD AAAC +6@  +7@  +8@  +9@  +:@  2;@  #:O$ $;@$#$B4 0= #DDD AAB04b *8@ LDD$ AAAAC  DDD AAACB *9@  V  LDD,AAAAC  DDLAAACB *:@   *;@   *<@   *=@   ?>@   HRSI P B= :D  %#DD D AA"B09b *<@ LDD $ AAAAC  DD D AAACB *=  V  LDD ,AAAAC  DD LAAACB *=   *=   *=   *=   <=   HRSI4 )= #DDD AAB13b *<@ LDD$ AAAAC  DDD AAACB *=@  V  LDD,AAAAC  DDLAAACB *>@   *?@   *=   *=   1=   #:P $;@$ D $P 0= :D  %#DDD AA"B05b *?@ LDD$ AAAAC  DDD AAACB *=   *=   *=   *=   *=   ?=   HRSI P B=:D  %#DD D AA"Bb *= LDD $ AAAAC  DD D AAACB *=   *=   *>   *>   *>   < >   HRSIP )>:D  %#DDD AA"Bb *> LDD$ AAAAC  DDD AAACB *>   *>   * >   *$>   *(>   1,>   #:Q$ $; @ $DAA c dddddddDNOE d ddddddgDNOE d ddddddh #:Z$ $; @$DAA~ 3@ ,,,,,,,DNOE ~ ,@ ,,,,,,-DNOE~ ,@ ,,,,,,X #:;$ 4_ . . . . . . . FPQG  ._ . . . . . . /FPQG ._ . . . . . .  Y #:L$;@ $ D $'400>#DD DAAB13*8>siDD AABFL@ @DD AABFL@ L"B*<>*@>*D>*?*@?@ HRSI 4 BH>#DD DAAB17*P>siDD AABFL@ @DD AABFL@ L"B*T>*X>*\>*`>*d><?HRSI4)h> #DD D AAB22*p>s iDD AABFL@ @DD AABFL@ L"B*t>*?*@*@*@  1@ #:R$;@$ D $140x>#DD DAAB14/*@DD DAAAC+@#DD LAAAC+@+@+ @+"@@$@ JTUK 4 B>#DD DAAB18/*@DD DAAAC+@#DD LAAAC+@+@+@+@= @JTUK4)> #DD D AAB23/*@DD D AAAC+@# DD LAAAC+ @+"@+$@+&@  2(@ #:S$;@$ D $240>#DD DAAB15/*&@DD DAAAC+(@+*@+,@+.@+0@@1@ JTUK 4 B>#DD DAAB19/*"@DD DAAAC+$@+&@+(@+*@+,@=.@JTUK4)> #DD D AAB24/**@DD D AAAC+,@+.@+0@+1@+2@  23@ #:V$$;`@$#$B %J40>#DD DAAB16/*2@DD DAAAC+3@+4@+5@+6@+7@@8@ JTUK 4 B>#DD DAAB20/*0@DD DAAAC+1@+2@+3@+4@+5@=6@JTUK4)> #DD D AAB25/*4@DD D AAAC+5@+6@+7@+8@+9@  2:@ #:T$$;@$D AA40>#DD DAAB17b*9@LDD $AAAAC  DD DAAACB*:@V LDD ,AAAAC  DD LAAACB*;@*<@*=@*>@?> HRSI 4 B>#DD DAAB21b*7@LDD $AAAAC  DD DAAACB*8@V LDD ,AAAAC  DD LAAACB*9@*:@*;@*<@<=@HRSI4)> #DD DAAB26b*;@LDD $ AAAAC  DD D AAACB*<@V LDD ,AAAAC  DD LAAACB*=@*>@*>*>  1> #:U$$;@$D AAP0>:D %#DD DAA"Bb*>LDD $AAAAC  DD DAAACB*>*>*>*>*??? HRSI P B?:D %#DD DAA"B22b*>@LDD $AAAAC  DD DAAACB*?@*?*?*?*?< ? HRSIP)$?:D %#DD DAA"Bb*(?LDD $ AAAAC  DD D AAACB*,?*0?*4?*8?*@??@ HRSI 4 B?#DD DAAB35b*=@LDD $AAAAC  DD DAAACB*>@V LDD ,AAAAC  DD LAAACB*?@*?*?*?<?HRSI4)? #DDDAAB39b*:@LDD$ AAAAC  DDD AAACB*;@V LDD,AAAAC  DDLAAACB*<@*=@*>@*?  1?P0?:D %#DDDAA"Bb*?LDD$AAAAC  DDDAAACB*?*?*<:*@:*D:?H: HRSI P BL::D %#DD DAA"Bb*P:LDD $AAAAC  DD DAAACB*T:*X:*\:*`:*d:<h: HRSIP)l::D %#DDDAA"Bb*p:LDD$ AAAAC  DDD AAACB*t:*x:*|:*:*9  19 c dddddddDNOE  d ddddddgDNOE d ddddddh ~ 3$@,,,,,,,DNOE ~  ,&@,,,,,,-DNOE~ ,(@,,,,,,X D]lVTT#U &@!&"&#&$&%&&&@ '&;(&,)&,*&, 4_ . . . . . . . FPQG ._ . . . . . . / FPQG ._ . . . . . . Y4!09#DDD!AAB39!*9!!s!!iDDAABFL@ @DDAABFL@ L"B!*9!!!*9!!!*!!!*!!!*?!!!?@"!! HRSI 4! B!#DD D!AAB44!*@!!s!!iDD AABFL@ @DD AABFL@ L"B!*?!!!*@!!!*@!!!*@!!!*@!!!<@"!!HRSI4!)@! #DDD! AAB48!* @!!s!! iDDAABFL@ @DDAABFL@ L"B!*@!!!*@!!!*?!!!*@!!!*@! !! 1@"!4"0@!#DDD"AAB40/"*@"DDD!AAAC"+@""#"$DDLAAAC"+@"""+@"""+@"""+ @"""@"@#"" JTUK 4" B @"#DD D"AAB45/"*@"DD D!AAAC"+ @""#"$DD LAAAC"+"@"""+$@"""+&@"""+(@"""=*@#""JTUK4")(@" #DDD" AAB49/"*@"DDD! AAAC"+@""#"$ DDLAAAC"+@"""+ @"""+"@"""+$@" "" 2&@#"4#00@"#DDD#AAB41/#*$@#DDD"AAAC#+&@#"#+(@#"#+*@#"#+,@#"#+.@#"#@0@$"# JTUK 4# B8@##DD D#AAB46/#*,@#DD D"AAAC#+.@#"#+0@#"#+1@#"#+2@#"#+3@#"#=4@$"#JTUK4#)@@# #DDD# AAB50/#*(@#DDD" AAAC#+*@#"#+,@#"#+.@#"#+0@#"#+1@# "# 22@$"4$0H@##DDD$AAB42/$*1@$DDD#AAAC$+2@$"$+3@$"$+4@$"$+5@$"$+6@$"$@7@%"$ JTUK 4$ BP@$#DD D$AAB47/$*5@$DD D#AAAC$+6@$"$+7@$"$+8@$"$+9@$"$+:@$"$=;@%"$JTUK4$)X@$ #DDD$ AAB51/$*3@$DDD# AAAC$+4@$"$+5@$"$+6@$"$+7@$"$+8@$ "$ 29@%"4%0`@$#DDD%AAB43b%*8@%LDD$$AAAAC  DDD$AAACB%*9@%%V%& LDD,AAAAC  DDLAAACB%*:@%%%*;@%%%*<@%%%*=@%%%?>@&%% HRSI 4% Bh@%#DD D%AAB48b%*<@%LDD $$AAAAC  DD D$AAACB%*=@%%V%& LDD ,AAAAC  DD LAAACB%*>@%%%*p@%%%*t@%%%*x@%%%<|@&%%HRSI4%)@% #DDD%AAB52b%*:@%LDD$$ AAAAC  DDD$ AAACB%*;@%%V%& LDD,AAAAC  DDLAAACB%*<@%%%*=@%%%*>@%%%*?@% %% 1@&%P&5@%:D& %#DDD&AA"B44b&6?@&LDD$%AAAAC  DDD%AAACB&6@&%&6@&%&6@&%&6@&%&6@&%&A@&%& LVWM P& C@!:D& %#DD D&AA"Bb&6@&LDD $%AAAAC  DD D%AAACB&6@&%&6@&%&6@&%&6@&%&6@&%&>@& %&LVWMP&7@!:D& %#DDD&AA"Bb&6@&LDD$% AAAAC  DDD% AAACB&6@&%&6@&%&6@&%&6@&%&6@& %& 8@&% ' '%J () *t#U   $(  R  C @ ]B`7E l  &$>@92r    #$       7  7?   #$  DDLAADDLAA%&$$Bf   7?   #$  DD LAADD LAA%&$$Bf    7?    #$  DDLAADDLAA%&$$Bf 7?  #$  DD LAADD LAA%&$$Bf 7?  #$  DD LAADD LAA%&$$Bf   7?   #$  DD LAADD LAA%&$$Bf 7?  #$  DDLAADDLAA%&$$Bf 7?  #$  DD LAADD LAA%&$$Bf &!&7?!&  #$  DDLAADDLAA%&$$Bf &!&7?!&  #$  DD LAADD LAA%&$$Bf & !& 7?!&   #$  DDLAADDLAA%&$$Bf   7?   #$  DDLAADDLAA%&$$Bf Ark4 u'ɀ +8h2  dMbP?_*+%&R&6&"Arial,Normal"C:\Documents and Settings\Nikolai\Skrivebord\ProbabilityOf.com\excel\&F - &A (&P/&N)&L&6&"Arial,Normal"Created by Nikolai Sandved on 2003-04-03 19:04 Last Saved by Nikolai on 2006-01-22 00:26&M&d2?'M&d2?(\.?)MCanon i560߁ 4d,A4BJDM Rt,T`Op,T`OpRt,T`Op,T`OpXXKLADDEksempel 1' d Rt RtH / RtCanon i560߁ 4dA47-" d,,U } I} } $} } } $} } }  $} !"} ##} $$ } %%} &m +&% %  %@%;@%;`%%%% % % % %;@ %;`%@%%%%%%%;@%;`%@%@%@%@%@%@%@%;@%;`0?@@@@@@0?@@@@@@0?@@@@@@ ~ `T@Daaaaaaaaaaaaaaaaaaaaaaaaaaaaaab ieeeeeeeDNOE  eeeeeeefDNOE eeeeeeej #k5$k~ 3?,,,,,,,DNOE ~  ,@,,,,,,-DNOE~ ,@,,,,,,X #99$ 4 . . . . . .! ." FPQG  . . . . . . .! /"FPQG . . . . . . .!  Y" #:6$$; @ $DAA40@ v#DDDAAB53*@siDDAABFL@ @DDAABFL@ L"B*@*@*A*A*??@ HRSI 4 BA #DD DAAB05*AsiDD AABFL@ @DD AABFL@ L"B*?*@*@*@*@<@HRSI4)A #DDD AAB09*As iDDAABFL@ @DDAABFL@ L"B*?*@*@*@*@  1@ #:[$;@ $ D $40 A#DDDAAB01/*@DDDAAAC+@# DDLAAAC+@+@+@+ @@"@ JTUK 4 B(A#DD DAAB06/*@DD DAAAC+ @# DD LAAAC+"@+$@+&@+(@=*@JTUK4)0A#DDD AAB10/*@DDD AAAC+ @#  DDLAAAC+"@+$@+&@+(@  2*@ #:/$;`@! D $408A #DDDAAB02/*$@DDDAAAC+&@+(@+*@+,@+.@@0@  JTUK 4 B@A #DD DAAB07/*,@DD DAAAC+.@+0@+1@+2@+3@=4@ JTUK4)HA#DDD AAB11/*,@DDD AAAC+.@+0@+1@+2@+3@  24@  #:0$;@$ D $4 0PA#DDD AAB03/ *1@ DDDAAAC +2@  +3@  +4@  +5@  +6@  @7@  JTUK 4 BXA #DD D AAB08/ *5@ DD DAAAC +6@  +7@  +8@  +9@  +:@  =;@  JTUK4 )`A#DDD AAB12/ *5@ DDD AAAC +6@  +7@  +8@  +9@  +:@  2;@  #:.$ $;@$#$B4 0hA#DDD AAB04b *8@ LDD$ AAAAC  DDD AAACB *9@  V  LDD,AAAAC  DDLAAACB *:@   *;@   *<@   *=@   ?>@   HRSI P BpA :D  %#DD D AA"B09b *<@ LDD $ AAAAC  DD D AAACB *xA  V  LDD ,AAAAC  DD LAAACB *|A   *A   *A   *A   <A   HRSI4 )A #DDD AAB13b *<@ LDD$ AAAAC  DDD AAACB *=@  V  LDD,AAAAC  DDLAAACB *>@   *?@   *A   *A   1A   #:1 $;@$ D $P 0A :D  %#DDD AA"B05b *?@ LDD$ AAAAC  DDD AAACB *A   *A   *A   *A   *A   ?A   HRSI P BA $:D  %#DD D AA"Bb *A LDD $ AAAAC  DD D AAACB *A   *A   *A   *A   *A   <A   HRSIP )A :D  %#DDD AA"Bb *A LDD$ AAAAC  DDD AAACB *A   *A   *A   *A   *A   1B   #:2$ $; @$DAA c dddddddDNOE d ddddddgDNOE d ddddddh #:9$ $; @$DAA~ 3@ ,,,,,,,DNOE ~ ,@ ,,,,,,-DNOE~ ,@ ,,,,,,X #:;$ 4 . . . . . .! ." FPQG  . . . . . . .! /"FPQG . . . . . . .!  Y" #::$;@ $ D $'40B#DD DAAB13* BsiDD AABFL@ @DD AABFL@ L"B*B*B*B*?*@?@ HRSI 4 BB#DD DAAB17*$BsiDD AABFL@ @DD AABFL@ L"B*(B*,B*0B*4B*8B<? HRSI4)@?B HRSI 4 BB #DD DAAB21b*7@LDD $AAAAC  DD DAAACB*8@V LDD ,AAAAC  DD LAAACB*9@*:@*;@*<@<=@HRSI4)B#DD DAAB26b*;@LDD $ AAAAC  DD D AAACB*<@V LDD ,AAAAC  DD LAAACB*=@*>@*B*B  1B #:4$$;@$D AAP0B:D %#DD DAA"Bb*BLDD $AAAAC  DD DAAACB*B*B*B*B*B?B HRSI P BB :D %#DD DAA"B22b*>@LDD $AAAAC  DD DAAACB*?@*B*B*B*B<B HRSIP)B:D %#DD DAA"Bb*BLDD $ AAAAC  DD D AAACB*C*C*C* C*C  1C cdddddddDNOE  dddddddgDNOE dddddddh $%~ 3@,,,,,,,DNOE ~  , @,,,,,,-DNOE~ ,"@,,,,,,X $% 4 . . . . . .! ." FPQG  . . . . . . .! /"FPQG . . . . . . .!  Y" #Z#$%40C#DDDAAB26* CsiDDAABFL@ @DDAABFL@ L"B*$C*(C*,C*?*@?@ HRSI 4 B0C#DD DAAB31*?siDD AABFL@ @DD AABFL@ L"B*@*@*@*@*@<@ HRSI4)8C#DDD AAB35*@Cs iDDAABFL@ @DDAABFL@ L"B*DC*HC*?*@*@  1@ #[$40LC#DDDAAB27/*@DDDAAAC+@#DDLAAAC+@+@+ @+"@@$@ JTUK 4 BTC#DD DAAB32/* @DD DAAAC+"@#DD LAAAC+$@+&@+(@+*@=,@ JTUK4)\C#DDD AAB36/*@DDD AAAC+@# DDLAAAC+@+ @+"@+$@  2&@ #$40dC#DDDAAB28/*&@DDDAAAC+(@+*@+,@+.@+0@@1@ JTUK 4 BlC#DD DAAB33/*.@DD DAAAC+0@+1@+2@+3@+4@=5@ JTUK4)tC#DDD AAB37/*(@DDD AAAC+*@+,@+.@+0@+1@  22@ #($40|C#DDDAAB29/*2@DDDAAAC+3@+4@+5@+6@+7@@8@ JTUK 4 BC#DD DAAB34/*6@DD DAAAC+7@+8@+9@+:@+;@=<@ JTUK4)C#DDD AAB38/*3@DDD AAAC+4@+5@+6@+7@+8@  29@ #($40C#DDDAAB30b*9@LDD$AAAAC  DDDAAACB*:@V LDD,AAAAC  DDLAAACB*;@*<@*=@*>@??@ HRSI 4 BC#DD DAAB35b*=@ LDD $AAAAC  DD DAAACB*>@V LDD ,AAAAC  DD LAAACB*?@*C*C*C<CHRSI4)C#DDDAAB39b*:@LDD$ AAAAC  DDD AAACB*;@V LDD,AAAAC  DDLAAACB*<@*=@*>@*C  1C #$P0C:D %#DDDAA"Bb*CLDD$AAAAC  DDDAAACB*C*C*C*C*C?C HRSI P BC:D %#DD DAA"Bb*C LDD $AAAAC  DD DAAACB*C*C*C*C*C<DHRSIP)D:D %#DDDAA"Bb*DLDD$ AAAAC  DDD AAACB* D*D*D*D*D  1 D #$ cdddddddDNOE  d ddddddgDNOE dddddddh #$~ 3$@,,,,,,,DNOE ~  ,&@,,,,,,-DNOE~ ,(@,,,,,,X #$D8^lVTT1c &@!&@"&@#&@$&@%&@&&@ '&;(&,)&,*&, 4 . . . . . .! ." FPQG . . . . . . .! /" FPQG . . . . . . .! Y" #$4!0$D"#DDD!AAB39!*,D!!s!!iDDAABFL@ @DDAABFL@ L"B!*0D!!!*4D!!!*8D!!!*@&%% HRSI 4% BD$ #DD D%AAB48b%*<@%LDD $$AAAAC  DD D$AAACB%*=@%%V%& LDD ,AAAAC  DD LAAACB%*>@%%%*D%%%*D%%%*D%%%<D&%%HRSI4%)D$#DDD%AAB52b%*:@%LDD$$ AAAAC  DDD$ AAACB%*;@%%V%& LDD,AAAAC  DDLAAACB%*<@%%%*=@%%%*>@%%%*?@% %% 1D&% %#$P&5D%:D& %#DDD&AA"B44b&6?@&LDD$%AAAAC  DDD%AAACB&6D&%&6D&%&6D&%&6D&%&6D&%&AD&%& LVWM P& CD% :D& %#DD D&AA"Bb&6D&LDD $%AAAAC  DD D%AAACB&6D&%&6E&%&6E&%&6E&%&6 E&%&>E& %&LVWMP&7E%:D& %#DDD&AA"Bb&6E&LDD$% AAAAC  DDD% AAACB&6E&%&6 E&%&6$E&%&6(E&%&6,E& %& 80E&% &#$ ' '#$ '%J () *61c*    (  X  S @ ]B`$SE 0l  X$>@92r       #$    7  7?       #$  DDLAADDLAA%&$$Bf   7?       #$  DD LAADD LAA%&$$Bf     7?       #$  DDLAADDLAA%&$$Bf 7?      #$  DD LAADD LAA%&$$Bf 7?      #$  DD LAADD LAA%&$$Bf   7?      #$  DD LAADD LAA%&$$Bf 7?      #$  DDLAADDLAA%&$$Bf 7?      #$  DD LAADD LAA%&$$Bf !&!&7?!&      #$  DDLAADDLAA%&$$Bf !&!&7?!&      #$  DD LAADD LAA%&$$Bf !& !& 7?!&      #$  DDLAADDLAA%&$$Bf   7?      #$  DDLAADDLAA%&$$Bf Ark5 u'ɀ FK  dMbP?_*+%&R&6&"Arial,Normal"C:\Documents and Settings\Nikolai\Skrivebord\ProbabilityOf.com\excel\&F - &A (&P/&N)&L&6&"Arial,Normal"Created by Nikolai Sandved on 2003-04-03 19:04 Last Saved by Nikolai on 2006-01-22 00:26&~?'~?(~?)~?MCanon i560߁ 4dXA4BJDM Rt,T`Op,T`OpRt,T`Op,T`OpXXKLADDEksempel 1' d Rt RtH / RtCanon i560߁ 4dA47-" dXX `? `?U } } } mn} } $ Column CX      J #* !+ !, !W  ! $-! !^ !<  !]  !  ! $> !  !K != !I \a $?! &@ 'B &C &F &E &D &G &e &A &H" ]b J>0>@$7yK -http://www.ortelius.de/kalender/east_en.htmlyK Zhttp://www.ortelius.de/kalender/east_en.htmlpyK WEaster date FAQ - http://www.cs.rutgers.edu/pub/soc.religion.christian/faq/easter-dateyK http://www.cs.rutgers.edu/pub/soc.religion.christian/faq/easter-date,yK MEaster date formula (US Navy) - http://aa.usno.navy.mil/faq/docs/easter.htmlyK Zhttp://aa.usno.navy.mil/faq/docs/easter.htmlyK nEaster date formula (Calendar FAQ)- http://www.tondering.dk/claus/cal/node3.html#SECTION003120000000000000000yK Zhttp://www.tondering.dk/claus/cal/node3.htmlSECTION003120000000000000000yK EEaster date Formula () - http://astro.nmsu.edu/~lhuber/leaphist.htmlyK Xhttp://astro.nmsu.edu/~lhuber/leaphist.html yK ?Advent Calculation - http://www.smart.net/~mmontes/ec-cal.htmlyK Thttp://www.smart.net/~mmontes/ec-cal.htmlRyK LISO Week - http://serendipity.magnet.ch/hermetic/cal_stud/palmen/lweek1.htmyK http://serendipity.magnet.ch/hermetic/cal_stud/palmen/lweek1.htmzyK VISO 8601 - http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/yK http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/ZyK PLeap Year Rule - http://www.computerbooksonline.com/program/1032chap.htm#E29E11yK phttp://www.computerbooksonline.com/program/1032chap.htmE29E11yK @ISO 8601 - Convert - http://www.probabilityof.com/ISO8601.shtmlyK Vhttp://www.probabilityof.com/ISO8601.shtmlyK 2http://www.ozgrid.com/Excel/ExcelDateandTimes.htmyK dhttp://www.ozgrid.com/Excel/ExcelDateandTimes.htm Sheet2 u'ɀ ac  dMbP?_*+%&R&6&"Arial,Normal"C:\Documents and Settings\Nikolai\Skrivebord\ProbabilityOf.com\excel\&F - &A (&P/&N)&L&6&"Arial,Normal"Created by Nikolai Sandved on 2003-04-03 19:04 Last Saved by Nikolai on 2006-01-22 00:26MCanon i560߁ 4dXA4BJDM Rt,T`Op,T`OpRt,T`Op,T`OpXXKLADDEksempel 1' d Rt RtH / RtCanon i560߁ 4dA47-" dXX??U } }  } m} $ } IH} } $  J & ' ( ) J~ `@ $ % `~ @ $ % c~ @ $ % d~ `@ $ f gdT8888>@dA @7zyK  nsaa@pvv.orgyK (mailto:nsaa@pvv.orgzyK  nsaa@pvv.orgyK (mailto:nsaa@pvv.orgzyK  nsaa@pvv.orgyK (mailto:nsaa@pvv.orgyK GAlso appearing on my excel page at http://www.pvv.org/~nsaa/excel.htmlyK Hhttp://www.pvv.org/~nsaa/excel.htmlyK HFirst public version appearing on http://www.pvv.org/~nsaa/ISO8601.htmlyK Lhttp://www.pvv.org/~nsaa/ISO8601.htmlyK nsaa@probabilityof.comyK <mailto:nsaa@probabilityof.comyK 7File moved to http://www.probabilityof.com/excel.shtmlyK Rhttp://www.probabilityof.com/excel.shtml Sheet1 ThisWorkbook1__SRP_4( __SRP_5 -Ark5  1  !"#$%&'()*+,./023456789:;<=>?@ABCEFGIKLMNOPQRSTUVWXYZ[\^_`bdefghijklmnopqrstuwxy{}~      > -0 @ H P "X ` h p "  x    " T    N( x T > ( H X ` p x  4 T 0 P TX   " "   H hx R ,D 8%H` h 4x      ( Force explicit declaration of variablesN******************************************************************************em Macro Workbook_BeforeSave()D Macro final released on 2004-09-02 by Nikolai Sandved(nsaa@pvv.org)M Description: This macro set some footer information, adjust the fontsize and+ type and increase the margins Input Output- Date Name DescriptionN------------------------------------------------------------------------------* 2004-09-02 Nikolai Sandved ReleasedN******************************************************************************** Define variables]!, This variable contains the fontsize used in! the header and footer]!( Here you define the font and font style]!# String printed out on Right Footer]!" String printed out on Left Footer]! Counter]! Max Length on Path written out]! Max Length on Left Footer](! The Active Sheet** Set some variables ,!'*,Set new Footer on each sheet in the WorkBook'$ $ .!0!2b Choose if visible sheet $ .%0!4 $ .%0! .%0B@H &MsgBox (ActiveWorkbook.Sheets(i).Name)  ** Declare variables ,!6!8 :d'&n'(d('&n'(k' '"&6'&"Arial,Normal"'.' Ex: Courier New,Halvfet; Arial,Normal; .!>\&F - &A (&P/&N)$<'   &    ...  &$@$<' d   $<' k")7C Created by Author .%B!D$< on  Creation Date .%Byyyy-mm-dd HH:MM$ $< $FLast Saved by  Last Author .%B!D$< on Last Save Time .%Byyyy-mm-dd HH:MM$ $<$<'" " (    ... " ($@$<'"d8   "$<'"k > & Chr(13) & "Printed by " & Environ("USERNAME") & " on &D &T"  ** Do the PageSetup Changes ,!6!H " " ,!6(Hkp ,!6!J   ,!6(Jk@k8 Incremets $ '$8 Back to the active sheet before start on this prosedure *$0B@Ho@ANoANopN****************************************************************************** Macro ResizeWindow()H Description: This macro Zooms the printarea according to the sheet size UseN Call this function from one of the methods. Ex. each time window is resized:8 Private Sub Workbook_WindowResize(ByVal Wn As Window) Call ResizeWindow End Sub Input('I##<gIO^tFA#/LxA#/LgIO^tMED @[LSS8T X \>"LPPLL,Here you deFaFHyl!d RightFcO ' $printout ^ǢNLefWi}I g i$' Cour PathL`ength!zx  written JEMAAktipvArk'!Ae Ac`e Shee`nLS%~ȥ!I =$.arAnewD(3each s_ `BHAkCi 1CDhiXi < .s>..c0ho i isiA3"GIf (i).VDThe` C'  a#)t.S c$-a'MsgBox ({ ' @w@vPage up.Orientaq= xlL1HA[P&g..." f_ & b,=) # e  MX$""_2Pg &?ok.Builti@nDocumP8Properties("Author"PHalue)} "QS`$?!OFR ")N, "y-mm-dd HH@:MM")) @ Chr(13 Last²d p_0_W2"ӟ` Time )+'7#7$71P*8?@776 7W66 @t 6>[[7='&pd&& Environ("USERNAME"3&D &To"vq Changeȅ Cztw <>P7tpybooter = strLeftF End If L 4If ActiveSheet.PageSetup.Righ <> "Then uIH C'Inc@remets)iAi + 1 Loop' Back to the a s before|@art onis prosedures(AkArk).Select  XSub ' Private Workbook_O pen()'Call ResizeWindow  (ByVal Wn As . %'*?HC Macro ;@ Description: Th]m ZoomsiprintarealcordingEpnPDUsj' Wt1Afunytfromve ofhods. Ex. each @time wb %!rfd:A) s_c"D#IZ 0Inpu O4utDFNa߀H( -?&!2004-02-06 Nikolai SanPdvedAC3ted`@G?'b  REfine variable~Dim wbmo_ke'|wwosCH'Ar" s  @clW `=@B5 =. ' Checks ni#YdVs so,\Yadj|us4gA@ For E_wsP"F ws`P@ ƠbntAas9""xRange(A/#i.! TruĮF "A1" hpNext@#beRrde@p#n0elig er`arkfanw- `'Clean?C2@No@~xI{I>~* EW#MESheet1|__SRP_6__SRP_7 BCommonTasks'(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` %r %`h8@<<0o?C$*\Rffff*2G453d5cb64 xpAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit rU HIq4`rU @nrU (`a ? $`$`$*#13*\R0*#1a*\R0*#19*\R0*#10*\R0*#14B HB P T`   D ( D0 "x  H $ . H &h R R :@ 0  .   0 8 .@ p x J :   J( :x > ( ( $H p x "  T  6 >( h Rp .    8,X    2P8  @  4P        |'(U(y'؁vxME0h 8 Bi@re s+ `  :i8acro+Bx ` ( Fi8x`F`H$+ ` ^i8H`FX `L+Dh ` H  xi8 N ` !!iP****+h@ `   ijome `Radju+l`` iP I` O`n- D`p `r`t----`v----`x----`z< 2+| ` ""MiP San` Bun`~` `erOn+` ` oi4tSiz`+x` yii  i  ins th` `d fo+@`  id oui  !" Si  `` Pat+X`  YYii'&i  '"i  "'`4ew,H`;` (&P+`@"LkZZiP H `4n'`l `jG `hd by`fB`d`b%B``MM$ `^+` ??PiPB`$ ``Prin`USER``eSet`,!`rgin`mete P` ((`rMar`ntim`+0 `  BBiion.i1.R`tion`(1)`is a`$tion+!` p!33ieet.iR.C`rFon`& Ac`$Cent+p"`p#0k8"00,i4 er`ris a N#` #55\ Vd% Z= ""% ^& Ac%+H$` P$BB)px****%i****i M Vt()% ^-23 % T%`ro s@ mati+%` %..)% V O%  %`ript+&` H&//ih) San%i   ` ****`$****+P'` ('0)HB t%+p(` (AALiont ` *``&"Ar`' E` et; `" *`hang`$+&)`  ) i9`(9@ 0XhPH x pH@P  `x ph 0 `@t %`x@!@ F@`X ? Hpp!!0h"!("0@HH ! M@x8 et_o@( H D@ ro c@ the @ ut@ merg@ @ @P @8 @h @ @ x @ h @ X @ H @ 8 @!( @@! @(! @X! @ @ @! @! @ !q@! @ @ @ P #`0xH"X#"@#"`t#"0#`Pp#@L 8X$`$$$H$($`t8$$ @x$` @$P @@ @0 8**p@o?C*\R1*#1b0$*\Rffff*2E453d5c51*\R0*#12*\R0*#f*\R0*#5*\R0      !"#$%&'()*+,-./123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ >   (  8 @  H P X  >`   "  4  ( 0 8 @ H P X p    (       00 ` h " p Tx   T 2X     4 T BX L R JH  T  :  `620.  P  p    F (@h6x @< D  "h  8 8 : :P 8 8  P TP X V  BX & X(08 @" H TP   2  T 2h      4 T Dh  T  P86  F  "8 `p  PPp  B &D h.  "   T 8 (@ h Np &      4 TX B  T! X! `!h!p!x!!!!!!! " !!! " !!! B  " T" `" h" " N" " # # (# @# 2P# # 4# T# B $ h$ Tp$$$$$ $% %  %(%  0% @% P% `%h%p% (x%% % %% % % & & &(& .0&`& & && & & & &&& ' ' " ' T(' ' "' ' 2' ' ' (  ( 4(( T`( B( ) T) `)h)) B  ) T) ) @) :0* Dp* * * &* * +  + T(+++ B  + T+ , @, :P, D, , , &, -  - @- TH--- - -B- T- P. BX. . :. J. :8/ Rx/ / / / 2/ (0 F@0 D0 N0 L 1 @p1 F1 >1 >82 x2 L2 2 N2 $03 JX3 F3 .3 4 <@4 "4 "4 24 5 5 V5 p5 05 V5 T6 Th6 P6 7 F(7 Lp7 7 7 67 &8 &@8 8h8 &8 &8 &8 9 "09 8X9 69 69 8: 88: 6p: :: 8: 8 ; &X; >; ; ; ; T; H<`< h<0<0<$<=  0= 4P= 4= 8==  0>&>  4> ? $ ?";H? )p? $?:G? %? @@  @0@8@  X@ x@@@ @@  &@ @@ @Z@(A &(0AXA `ApA .?xAA  AA AA @ZAB  B (B &0BbXB B BB B TB @C @HC C 2C JC :D RXD D D JD VE NpE E E ,E F NF 0`F NF :F > G <`G RG FG F@H TH HH @(I FhI FI DI R@J FJ >J  K (K T0K KK KKKK0L*HL0xL.L4L M M  @M$`M M.M  (MHM 8N @N 6PNN&NN  (NNNOOO PO hObOOOPP  PD0P <xP(PQQ 0QR D(RpR BR"R R S$ SHHSS<S$S<T.XTBT.TBU,HUBxU.UBU.8VBhV,VBV.(WBXW,WBW,XBHX,XBX Y6(YN`YY(YZZ  ZF[ H[ P[ &X[b[ [ [ B [ T\ h\ @p\ \ 2\ J\ :@] R] ] ] J] 2@^ ,x^ ^ ^ P^ P_ `_ Th_ __ _``0`*P`,`,`  `$a (a.8a  &haa"aaa "a8b"8b`bhb "pb8b&bbc $c0c&@chcpc xcc cc  cccd d0dHdPdhd pd xd &dbd e e  eB  (e T0e @e e Fe T0fLff f f f" f Tg Bhg Bg g h Bh Xh 6hh 8h 4h 6i Hi 8Pi &i (i &i *j *0j P`j Dj (j kk Txl  &ll  $m0m  (@mhm  (xmm m B  m Tm Bn &`n n Bn n <n T0o6oo B  o To B(p &pp p Bp p :q T@q qqq qqq  r8r HrXr`rrr B  r Tr Br *8s hs Bxs s >s Tt httt  ttt  tt.u8u&@uhu pu B  xu Tu Bu ( v Hv BXv v <v Tv:Hww B  w Bw <w 0 x 0Px Bx x lx RPy y ,y yz (z"Hzpz2zzXz 4@{x{{({0{&| (| B  0| 08| h|4p|n| } B  } 6(} R`} } D} D~ DP~ D~ D~ D( Dp    D D Dh D D D@ D DЁ D ` p x D DȂ D DX D D D0 Dx D D DP D D D( p     ؆ @  @HPX`hpx   &   $Ї  (H  `   6 8 N hp  &$ Љ  6 (P$x  Њ      60 <h:    (  ,0 0`* .&  6 4P* ؍    L 4` *؎   0P`p  :x ؏   & 0 &@hx  ȐА B  ؐ   n   ȑ    *( X`  xȒ В B  ؒ H &( HP 4nP B X Tp BȔ 2 H X p > <   : TXȖ" B T8 B ,ؗ   0 >@ <  Ș Fؘ T x" B Tș B @h  BȚ H X ` p *  >ț < H P F` T "@"X     2 : * 4P " 2 : (8HPX p 0"   0 P h $ Ƞ$ؠ * @ *`   ȡ   2(8 `(x  6   (8 @ HPhp  B  T B .P   P   T X (` P إ :  2( P`   4Ц  L p Bx L , >@  6 Ш 6ب , @ TH  ة"2 X p2 Ȫ  "@ h  x  H D N8 H BЬ 4 :P > NЭ H  h x @ Fخ F Fh D$@ H hP)xR&ȰF$ h  p"ȱ  B  T BH   P   T Th P L .`   2 2  (H`hpx   " $ > N`  (H:``2 Xx" иظ & " T(  , 6  P (H 2p 6 T 8 @ LX N "  T(  .м    (0X <p& ؽ  ( B 0 T@  B  P (` 2 6 T P X :p  , * ( 0 J@ $  4 T 0P  T    ( HX ` 0: .:( h   4  0@ H Xh p x B T  6 H PP ( 2 6 T8   :  , *8 h p J 0  4 T@ 0  T ( 0PX`  h "(   &0X ` h B p Tx   6 ( P0 ( 2 6 T p x 6     0 H 4P T 0  T p x.   P P8 N P N( Px 0&8  *@ ` h " p Tx    N P X Th >   0 48 p x    4 T 08 h Tp  ""8  `  R 0 P`x 4   B  T p "x  L $  ( 08 h 2p  L H H P ` 4h T 0 ( T0  ""   8HX `hx   0 8 HPp     B  T H JP  L   $ 8 @ LP  T    "@*h(    (     &b@   B T @ RH  L   0 &@ @h   T  T x   0  (  <8x 48 Bp Z   ( &0X B  T ` Nh  R  ( 0 @ ` h Fx  T  8  @ P X &`( B  0 T8   D  T .`   T  < X x   > H HPX `px    @H  X h,x   B((p  B  T   D0 x N 8   T0  "  ( 0 @H P `:force explicit declaration of all variables in that moduleN****************************************************************************** Function GoldenRatio()nt> Function created 2004-07-24 by Nikolai Sandved (nsaa@pvv.org)M D> Description: This function returns the Golden Ratio for A, if A/B = B/(A+B)A Golden ratio is defined as A is to B as B is to A+B -> A/B = B/(A+B)' This can be rearranged as A(A+B) =B^2 A^2 + BA - B^2 = 0L This is a Quadratic Equation, and can be solved according to AK (see ex. http://colbycc.edu/www/math/algebra/polynomials.htm)3 A = ( -B +- Sqr(B^2-4*1*-B^2) ) / 2*1* A = ( -B +- Sqr(5*B^2) ) / 2( A = (B * (Sqr(5) - 1)) / 2 or* B = ( +A +- Sqr(5*A^2) ) / 2( B = (A * (Sqr(5) + 1)) / 2 Ex.C Setting B = 1, and choose the positive number, we get3 A = (Sqr(5) - 1) / 2 = 0,618033989...C Setting  A = 1, and choose the positive number, we get3 B = (Sqr(5) + 1) / 2 = 1,618033989...7 (NB 1/1,618033989... = 0,618033989...!!!)!Using A = ( -B + sqr(5*B^2) ) / 2! (B * (sqr(5) - 1) ) / 2 x$z 'vihN******************************************************************************/ Function AllCursorsInAllSheetsOnSamePosition()8 Function created 2004 by Nikolai Sandved (nsaa@pvv.org)K Description: This function places the curson in the same position on every' Sheet in a given workbook ** Define variables]! Counter]! The Active Sheet]! Number of sheets in workbook] ,!'* .!0!2'~,Set new Footer on each sheet in the WorkBookHvilken celle (f.eks. A1) Angi celle  %$''$ $ ~b. Choose if visible sheet and set the variables $ .%0!4 $$0B@H $fB@H $ '$d( 8 if this is not the last sheet increment and choose this $ ~ $ '$dxkk8 Back to the active sheet before start on this prosedure *$0B@HoH ConvertToNumberDown Macro- Macro recorded 2003-02-05 by Nikolai Sandved]H]`]x]]  %' $' $' '  $b  $  $$fB@H !D' X (  ' Activate the statpoint  $  $$fB@boN****************************************************************************** Macro FooterOnPrintout()M Description: This macro set some footer information, adjust the fontsize and+ type and increase the margins Input Output- Date Name DescriptionN------------------------------------------------------------------------------< 2003-01-22 Nikolai Sandved Updated -Added descriptionE 2003-01-23 Nikolai Sandved Renamed from BunntekstUtskrift() toK FooterOnPrintout(). Reorganized Printout.C Added strFontSize and strFontTypeN****************************************************************************** ** Define variables]!, This variable contains the fontsize used in! the header and footer]!( Here you define the font and font style]0!# String printed out on Right Footer]H!" String printed out on Left Footer]`! Max Length on Path written out]x! The Active Sheet ,!'* ** Declare variables ,!6!8 :n'&d8('&k(' '"&6'&"Arial,Normal"'&' Ex: Courier New,Halvfet; Arial,Normal; .!>\&F - &A (&P/&N)$<'   &   ...  &$@$<' dH   $<' k  # &-;G   Created by Author .%B!D$< on  Creation Date .%Byyyy-mm-dd HH:MM$ $< $FLast Saved by  Last Author .%B!D$< on Last Save Time .%Byyyy-mm-dd HH:MM$ $<$<'"> & Chr(13) & "Printed by " & Environ("USERNAME") & " on &D &T" ** Do the PageSetup Changes ,!61.TopMargin = Application.CentimetersToPoints(0.8)2.BottomMargin = Application.CentimetersToPoints(1)4.HeaderMargin = Application.CentimetersToPoints(0.3)4.FooterMargin = Application.CentimetersToPoints(0.6)2.LeftMargin = Application.CentimetersToPoints(1.5)1.RightMargin = Application.CentimetersToPoints(1)I The FontSize is adjusted, the information is kept the same in the headerN.LeftHeader = "" 'strFontSize & strFontType & ActiveSheet.PageSetup.LeftHeaderR.CenterHeader = "" 'strFontSize & strFontType & ActiveSheet.PageSetup.CenterHeaderP.RightHeader = "" 'strFontSize & strFontType & ActiveSheet.PageSetup.RightHeader; The FontSize is adjusted, the prior information is ereased and new information is printed "9HR.CenterFooter = "" 'strFontSize & strFontType & ActiveSheet.PageSetup.CenterFooter 9JqoN****************************************************************************** Macro HeaderOnPrintout(), Macro created 2003-01-23 by Nikolai SandvedM Description: This macro set some header information, adjust the fontsize and+ type and increase the margins Input Output- Date Name DescriptionN------------------------------------------------------------------------------= 2003-01-23 Nikolai Sandved Based on FooterOnPrintout()N****************************************************************************** ** Define variables]B this variable contains the fontsize used in the header and footer]( Here you define the font and font style ** Declare variables&7'&"Arial,Normal"'&' Ex: Courier New,Halvfet; Arial,Normal; ** Do the PageSetup Changes ,!6? %9 %9333333? %9333333? %9? %9 %9I The FontSize is adjusted, the information is kept the same in the header   ,!6!H9H   ,!6!9   ,!6!J9J; The FontSize is adjusted, the prior information is ereased and new information is printed   Printed by USERNAME$ on &D &T9   ,!6!9   .!>\&F - &A (&P/&N)9q@o8N******************************************************************************! Macro Midstill_i_merket_omrde()H Description: This macro center the text over the selected cells without merging the cells Input Output- Date Name DescriptionN------------------------------------------------------------------------------< 2003-01-22 Nikolai Sandved Updated -Added descriptionN******************************************************************************  9 999899qXoP@dd/mm/yy (o( yyyy-mm-dd (oN****************************************************************************** Macro BunntekstUtskrift()G Description: This macro finds the Cubic root of a given number X up to 6 decimals Input! X - A number Output, RootOfX - The cubic root of X- Date Name DescriptionN------------------------------------------------------------------------------< 2003-01-22 Nikolai Sandved Updated -Added descriptionN******************************************************************************] ]8]P]h   ' ^yk    ' 'yk    '  y0k(    '   'yk @B@B@B    '  yhk`   @B '    'yk    'iN****************************************************************************** Macro SwapDisplayFormulas()+ Description: This Macro Displays formulaes Keyboard Shortcut: Ctrl+j- Date Name DescriptionN------------------------------------------------------------------------------< 2003-01-22 Nikolai Sandved Updated -Added descriptionN****************************************************************************** h! h(oxN******************************************************************************: Macro created 2000-01-22 by Nikolai Sandved (nsaa@pvv.org4 http://members.aol.com/Accustiver/wxworld_calc.html= Description: This Function return the temperature in Celsius Input: Fahrenheit - Temperature in Keyboard Shortcut:N******************************************************************************   'iX`N******************************************************************************: Macro created 2000-01-22 by Nikolai Sandved (nsaa@pvv.org4 http://members.aol.com/Accustiver/wxworld_calc.html= Description: This Function return the temperature in Celsius Input: Fahrenheit - Temperature in Keyboard Shortcut:N******************************************************************************   'i8 N******************************************************************************; Macro created 2003-03-18 by Nikolai Sandved (nsaa@pvv.org)3 Description: This Function return the ISO8601 weekD This code appears on the site http://www.pvv.org/~nsaa/ISO8601.html3 The week calculations follow the ISO 8601 standardK http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/ Input:+ datDate - Microsoft Excel date Optional? bytShortLongFormat 0 - Long format(default) : YYYY-Www-D= 1 - Short format : YYYYWwwDH bytTruncFormat 0 - Year, week and day(default) : YYYY-Www-D/YYYYWwwDE 1 - Year and week : YYYY-Www/YYYYWww9 2 - Year : YYYY? 3 - Week and day : Www-D/WwwD8 4 - Week : Www7 5 - Only Week : ww Output:F DateToWeek - A string following the pattern "YYYY-Www-D" (Default)H Same calculations in Excel can be done like this (in US change ; to ,): Cell(A1) =date in date formatC Cell(B1) =RIGHT("0" & 1+INT((A1-DATE(YEAR(A1+4-WEEKDAY(A1+6));1;5)@ + WEEKDAY(DATE(YEAR(A1+4-WEEKDAY(A1+6));1;3)))/7);2)( Cell(C1) =IF(AND(MONTH(A1)=12;B1="01"); YEAR(A1)+1;6 IF(AND(MONTH(A1)=1;OR(B1="52";B1="53")); YEAR(A1)-1; YEAR(A1)))+ &"-W" & B1 & "-" & WEEKDAY(A1;2)PThe following two rules applies when converting a gregorian date to the ISO weekand vice versa)Rule 1 January 4th. is always in week 01ORule 2 Always 52 or 53(leap week) ISO week in a given year: "A year has a leapM week if and only if the corresponding Gregorian year begins on a Thursday orM is a leap year begining on a Wednesday or a Thursday. By definition, its newJ year varies just 6 days against the Gregorian Calendar (3 days early to 3 days late)."@Rule 3 A ISO week start at a Monday(1) and ends at a Sunday (7)EFrom http://serendipity.magnet.ch/hermetic/cal_stud/palmen/lweek1.htmExample rule 10 January 4th. 1993 is on a Monday(1993-01-04) 1993-01-03 -> 1992-W53-7 1993-01-04 -> 1993-W01-11 January 4th. 1998 is on a Sunday (1998-01-04) 1997-12-28 -> 1997-W52-7 1997-12-29 -> 1998-W01-1 1998-01-04 -> 1998-W01-7Example rule 2 Year start at a Thursday1 1998-01-01 -> 1998-W01-4 (i.e a Thursday)/ 1998-12-31 -> 1998-W53-4 (->Leap week!)0 Year start at a Wednesday and is a Leap year2 1992-01-01 -> 1992-W01-3 (i.e a Wednesday)2 1992-02-29 -> 1992-W09-6 (and a Leap Year)/ 1992-12-31 -> 1992-W53-4 (->Leap week!)4 Year start at a Wednesday and is NOT a Leap year2 1975-01-01 -> 1975-W01-3 (i.e a Wednesday)2 1975-02-29 -> ERROR, No date, No Leap year 1975-12-28 -> 1975-W52-77 1975-12-29 -> 1976-W01-1 (No Leap week in 1975) Keyboard Shortcut:N******************************************************************************** Error Control ** Define variables]p%!The weeknumber (Between 1 and 53)]%"The weeknumber (Between 01 and 53)]%The weeknumberyear ()]%If long then "-"Calculates the weeknumber.From http://www.cpearson.com/excel/weeknum.htm.=1+INT((A1-DATE(YEAR(A1+4-WEEKDAY(A1+6)),1,5)+2 WEEKDAY(DATE(YEAR(A1+4-WEEKDAY(A1+6)),1,3)))/7)'    $ $$   $ $$$  '*Adds leading 0 to weeknumbers less than 100 $ @'-Calculates the correct week year if necesarry  If weekyear is one year ahead $  01 $ 'If weekyear is one year after  $ 52 53e $ '? Same yeard? $'k?k bytTruncFormat < 3 If long format add "-" 'dh?-'kP? Selects correct truncated format KT  X W    $'KT  X W 'KT X 'KTW    $'KTW 'KT 'S(>  X W    $'n=z==** Set the return error objects Error code: X  $F $FFurther Description:  A@ i8=N******************************************************************************: Macro created 2001-01-18 by Nikolai Sandved (nsaa@pvv.org+ Description: This Function return the dateD This code appears on the site http://www.pvv.org/~nsaa/ISO8601.html3 The week calculations follow the ISO 8601 standardK http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/ Input:D strWeek - Week given in either "YYYY-Www-D"/"YYYYWwwD" formatP or YYYY-Www/YYYYWww format (reqires that intWhatDay is present)G intWhatDay - If strWeek is a string with less than 9 characters and Output& WeekToDate - A date in date formatH Same calculations in Excel can be done like this (in US change ; to ,):) Cell(A1) =Week in Excel (ex.:1992-W09-6)G Cell(B1) =IF(MOD(VALUE(LEFT(A1;4));400);IF(MOD(VALUE(LEFT(A1;4));100);4 IF(MOD(VALUE(LEFT(A1;4));4);0;1);0);1)7 Cell(C1) =(VALUE(MID(A1;7;2))-1)*7+VALUE(MID(A1;10;1))5 -WEEKDAY(DATE(VALUE(LEFT(A1;4));1;4);2)K Cell(D1) =IF(E1="june";IF(C1<(178+B1);DATE(VALUE(LEFT(A1;4));6;C1-147-B1);? IF(C1<(209+B1);DATE(VALUE(LEFT(A1;4));7;C1-177-B1);@ IF(C1<(240+B1);DATE(VALUE(LEFT(A1;4));8;C1-208-B1);N IF(C1<(270+B1);DATE(VALUE(LEFT(A1;4));9;C1-239-B1);"oct"))));E1)A Cell(E1) =IF(C1<28;DATE(VALUE(LEFT(A1;4));1;C1+4);IF(C1<(56+B1);: DATE(VALUE(LEFT(A1;4));2;C1-27);IF(C1<(87+B1);? DATE(VALUE(LEFT(A1;4));3;C1-55-B1);IF(C1<(117+B1);@ DATE(VALUE(LEFT(A1;4));4;C1-86-B1);IF(C1<(148+B1);> DATE(VALUE(LEFT(A1;4));5;C1-116-B1);"june")))))K Cell(F1) =IF(D1="oct";IF(C1<(301+B1);DATE(VALUE(LEFT(A1;4));10;C1-269-B1);@ IF(C1<(331+B1);DATE(VALUE(LEFT(A1;4));11;C1-300-B1);7 DATE(VALUE(LEFT(A1;4));12;C1-330-B1)));D1)N******************************************************************************** Error ControlX4** Define Variables]X& Year part]p& Week part]& Weekday part]&!1 if intYYYY is Leap Year, else 0]&The date YYYY-01-04 as date]&"The Weekday pf the date YYYY-01-04]' YYYY-Www-D days since YYYY-01-04]&%The convertet date from YYYY-Www-D to& YYYY-MM-DD]&Max Weeks in year Set some variables $X'% Year part Week part  W ( $X'!If the format is YYYY-Www/YYYYWww    - ( 'Stop0(implicit) Else if format is YYYY-Www-D/YYYYWwwDdp1 $@X') Weekday partk@1!Checks if the year is a Leap Year $*'d0'k0JIf Weekday eq. Thuesday or Year is leapyear and first day is wednesday/Thuthen there is 53 weeks $ $  $ $5'&d04'&k/Not a correct weekdate    l     & 6WeekToDate = DateSerial(1901, 1, 1) 'Lager feilmelding    Wrong input date: 3 - Must be on the format YYYY-Www-D / YYYYWwwD and  $F $FYear greater than 1900, Week(ww) between 1 and  & for year  ) and Day(D) between 1 and 7 (mon=1,sun=7)A@ z(.k .*Sets the date YYYY-01-04: January 4, YYYY. $'= Calculates the Weekday(1=mon, 7=sun) for the date YYYY-01-04  $' ;C11= Calculates the number of days from the date YYYY-01-04     '" "Max tree days differenceLT Dec last year  X -12-0 " X $@'$LT January X -01-0 " X $@'$8  LT! February X -02-0 " X $@'$8   W  LT4 March X -03-0 "7  X $@'$W   u  LT5 April X -04-0 "V  X $@'$u     LT6 May X -05-0 "t  X $@'$     LT6 June X -06-0 "  X $@'$     LT6 July X -07-0 "  X $@'$     LT6 Aug X -08-0 "  X $@'$     LT6 Sept X -09-0 "  X $@'$   -  LT6 Oct X -10-0 "   X $@'$-   K  LT6 Nov X -11-0 ",  X $@'$K   i  LT6 Dec X -12-0 "J  X $@'$Max tree days differencei   m  LT6 Jan next year  X -01-0 "m   X $@'$SH&    Wrong input date: 3 - Must be on the format YYYY-Www-D / YYYYWwwD and  $F $FYear greater than 1900, Week(ww) between 1 and  & for year  ) and Day(D) between 1 and 7 (mon=1,sun=7)A@ z(%n %Set the return value  $$X $$X $$@X$'z$$** Set the return error objects Error code: X  $F $FFurther Description:  A@ i$0N******************************************************************************: Macro created 2001-06-30 by Nikolai Sandved (nsaa@pvv.org+ Description: This Function return the dateD This code appears on the site http://www.pvv.org/~nsaa/ISO8601.html3 The week calculations follow the ISO 8601 standardK http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/ Input:D strWeek - Week given in either "YYYY-Www-D"/"YYYYWwwD" format+ or YYYY-Www/YYYYWww format% lngDays - Number of days ahead OutputJ WeekNext - The week corresponding to the given week plus the number ofI days given (returned in the same format as the input week)N******************************************************************************** Error Control ** Define Variables]& Year part]& Week part]& Weekday part] &Given week converted to date] &Format control, see DateToWeek]0 &Format control, see DateToWeek Set some variables $X'% Year part Week part  W ( $X'If the format is approx YYYYWww 'Sets default monday'0'2If format is approx YYYY-Www   - (e'Sets default monday'0'2if format is approx YYYYWwwD   - (e $@X') Weekday part'0'2if format is approx YYYY-Www-D  e $@X') Weekday part'0'2Not a legal date formatd`'kHCa legal week given    $'  . 'Set the return value  0 2$',d Error in week',kz** Set the return error objects Error code: X  $F $FFurther Description:  A@ iH N******************************************************************************: Macro created 2003-03-18 by Nikolai Sandved (nsaa@pvv.org See Leap Year rule at? http://www.computerbooksonline.com/program/1032chap.htm#E29E11N******************************************************************************  4  4d  4 '*i  N******************************************************************************; Macro created 2003-03-19 by Nikolai Sandved (nsaa@pvv.org); Macro Finds the given area first and last cell coordinates Input:< strAdrRC - Address given in the ReferenceStyle xlR1C1 Output:/ lngAdrFirstRow - First Row in area strAdrRC2 intAdrFirstCol - First Column in area strAdrRC- lngAdrLastRow - Last Row in area strAdrRC0 intAdrLastCol - Last Column in area strAdrRC1 Ex.: Returns Pivotable1 Area in the active sheet Dim strPivotAdrRC As String! Dim lngPivotAdrFirstR As Long Dim lngPivotAdrLastR As Long$ Dim intPivotAdrFirstC As Integer# Dim intPivotAdrLastC As IntegerI ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel= strPivotAdrRC = Selection.Address(ReferenceStyle:=xlR1C1)! 'Returnerer omrdekoordinaterw Call AdrCoordinat(strPivotAdrRC, lngPivotAdrFirstR, intPivotAdrFirstC' , lngPivotAdrLastR, intPivotAdrLastC)k MsgBox ("CR:" & CStr(strPivotAdrRC) & " - R:" & CStr(lngPivotAdrFirstR)' & " C:" & CStr(intPivotAdrFirstC) & " - R:" & CStr(lngPivotAdrLastR)' & " C:" & CStr(intPivotAdrLastC))N******************************************************************************Find first Row in Area strAdrRC 8$':Find last Row in Area strAdrRC 8$B'>"Find first Column in Area strAdrRC 8$'<!Find last Column in Area strAdrRC 8$D'@oH N******************************************************************************; Macro created 2003-03-19 by Nikolai Sandved (nsaa@pvv.org) Find first Row in Area strAdrRC Input:< strAdrRC - Address given in the ReferenceStyle xlR1C1 Output:5 AdrCoordinatFirstRow - First Row in area strAdrRCN******************************************************************************  8 8C ( $X 'i8 N******************************************************************************; Macro created 2003-03-19 by Nikolai Sandved (nsaa@pvv.org) Find last Row in Area strAdrRC Input:< strAdrRC - Address given in the ReferenceStyle xlR1C1 Output:3 AdrCoordinatLastRow - Last Row in area strAdrRCN******************************************************************************Define local variables]H ]`  Calculate 8:R ( 'F 8C ($J'HOnly one cell marked F...d 8 F H F $X 'Bkx ip x N******************************************************************************; Macro created 2003-03-19 by Nikolai Sandved (nsaa@pvv.org)# Find first Column in Area strAdrRC Input:< strAdrRC - Address given in the ReferenceStyle xlR1C1 Output:8 AdrCoordinatFirstCol - First Column in area strAdrRCN******************************************************************************Define local variables] ]  Calculate 8C ( 'F 8:R ('L If only one Cell L 8 F 8 F $X'd  8 F L F $X'k i  N******************************************************************************; Macro created 2003-03-19 by Nikolai Sandved (nsaa@pvv.org)" Find last Column in Area strAdrRC Input:< strAdrRC - Address given in the ReferenceStyle xlR1C1 Output:6 AdrCoordinatLastCol - Last Column in area strAdrRCN******************************************************************************  8 8 8C ($J $@X'Diph <http://www.faqs.org/faqs/astronomy/faq/part3/section-11.html5http://www.oremus.org/liturgy/etc/ktf/app/easter.html)http://www.ely.anglican.org/etc/easter2.c*http://www.cpearson.com/excel/holidays.htm<http://www.keysolutions.com/NotesFAQ/allfaqs.html#NT00000E32 Forklaring:fhttp://www.nmm.ac.uk/server.php?request=setTemplate:singlecontent&contentTypeA=conWebDoc&contentId=350N "This formula returns the date of Easter day for the year of a given date D"; "Is valid until year 4000";' "Contributed from billingt@online.no";D:=[30.07.97];Year:=@Year(D);c:=@Integer(Year/100);n:=Year-19*@Integer(Year/19);k:=@Integer((c-17)/25);.i:=c-@Integer(c/4)- @Integer((c-k)/3)+19*n+15;ii:=i-30*@Integer(i/30);Tiii:=ii-@Integer(ii/28)*(1-@Integer(ii/28)*@Integer(29/(ii+1))*@Integer((21-n)/11));/j:=Year+@Integer(Year/4)+iii+2-c+@Integer(c/4);jj:=j-7*@Integer(j/7); l:=iii-jj;#EasterMonth:=3+@Integer((l+40)/44);+EasterDay:=l+28-31*@Integer(EasterMonth/4);"@Date(Year;EasterMonth;EasterDay);i *http://www.cpearson.com/excel/holidays.htm]( j     'R j$ R R0   j j R R0     'hi@ / From http://www.ely.anglican.org/etc/easter2.cK Based on this http://quasar.as.utexas.edu/BillInfo/ReligiousCalendars.html>/* Simple EASTER date programme *> * ============================ *> * Read the year from the command line (no error checking!) *> * and write the date of Easter, according to the Gregorian *> * calendar (for years after 1752) or the Julian Calendar *> * (for years before 1753), to standard output *> * Simon Kershaw: 29.Jan, 1996, 2.Feb.1996. * *//*> * Copyright (c) Simon Kershaw 1996. All rights reserved. *> * ================================= ==================== *> * This code may be reproduced and used, without fee, *> * in part or in full provided the copyright notice and *> * these conditions are distributed with it. No fee, *> * other than recovery of reasonable costs, may be *> * charged without explicit permission from the *> * author, Simon Kershaw, . *> * All rights reserved. * *//*> * The date of Easter Day was defined by the Council of *> * Nicaea in AD325 as the Sunday after the first full moon *> * which falls on or after the Spring Equinox. The *> * Equinox is assumed to always fall on 21st March, so the *> * calculation reduces to determining the date of the full *> * moon and the date of the following Sunday. The algorithm *> * used here was introduced around the year 532 by Dionysius *> * Exiguus. Under the Julian Calendar a simple 19-year *> * cycle is used to track the phases of the Moon. Under the *> * Gregorian Calendar (devised by Clavius and Lilius, and *> * introduced by Pope Gregory XIII in October 1582, and into *> * Britain and its then colonies in September 1752) two *> * correction factors are added to make the cycle more *> * accurate. * */#include main (argc, argv) int argc; char *argv[];{: int year, golden, solar, lunar, pfm, dom, tmp, easter;Define local variables] ] ] ] ]]]0]H/* get the year from argv[1] */ if (argc < 2) exit();sscanf(argv[1], "%d", &year); PX'/* the Golden number */golden = (year % 19) + 1;   'nif ( year <= 1752 ){/* JULIAN CALENDAR *///* the "Dominical number" - finding a Sunday */1for other countries than Britain, check this pageHhttp://www.tondering.dk/claus/cal/node3.html#SECTION00324000000000000000  dom = (year + (year/4) + 5) % 7;     'vif (dom < 0) dom += 7; v  v 'vku//* uncorrected date of the Paschal full moon */!pfm = (3 - (11*golden) - 7) % 30; n   'tif (pfm < 0) pfm += 30; t  t 'tku}Elsedt{/* GREGORIAN CALENDAR *///* the "Dominical number" - finding a Sunday */6dom = (year + (year/4) - (year/100) + (year/400)) % 7;   d   'vif (dom < 0) dom += 7; v  v 'vks%/* the solar and lunar corrections */*solar = (year-1600)/100 - (year-1600)/400; @ d @  'p'lunar = (((year-1400) / 100) * 8) / 25; x d'r//* uncorrected date of the Paschal full moon */-pfm = (3 - (11*golden) + solar - lunar) % 30; n p r  'tif (pfm < 0) pfm += 30; t  t 'tkr}kqE/* corrected date of the Paschal full moon - days after 21st March */.if ((pfm == 29) || (pfm == 28 && golden > 11)) pfm--; t t n  t 'tkqtmp = (4-pfm-dom) % 7; t v  'xif (tmp < 0) tmp += 7; x  x 'xkp3/* Easter as the number of days after 21st March */easter = pfm + tmp + 1; t x  'zif (easter < 11) printf("%i March\n", easter+21);Else printf("%i April\n", easter-10); z   z $'ld`o  z $'lk8o}i(o` Valid from 1900 to 2099 Algorithm from:g http://www.nmm.ac.uk/server.php?request=setTemplate:singlecontent&contentTypeA=conWebDoc&contentId=350] PX']   '~ ~2 bloop. ~ '~n ~0 ~ '~km]   ~   '] ~  '   $'|dXm   $'|k0mi(m A http://www.erlandsendata.no/norsk/functions/date/helligdager.htm Only year between 1900 and 2078B Returnerer datoen for 1. Pskedag, trenger ikke Excel for virke] 4     ' 4$  0   4 4  0     'ikN******************************************************************************; Macro created 2003-03-24 by Nikolai Sandved (nsaa@pvv.org), Returnerer beskrivelse hvis norsk helligdag Input: datDate - Dato optional7 bolInclSaturdays - Hvis true(1) s taes lrdager med5 bolInclSundays - Hvis true(1) s taes sndager med Output:3 NorskHelligdagDesc - Beskrivelse hvis helligdagN******************************************************************************]H  Dummy]` Description     $' 'ihxN******************************************************************************; Macro created 2003-03-24 by Nikolai Sandved (nsaa@pvv.org)% Returnerer TRUE hvis norsk helligdag Input: datDate - Dato optional7 bolInclSaturdays - Hvis true(1) s taes lrdager med5 bolInclSundays - Hvis true(1) s taes sndager med Output:@ NorskHelligdagDesc - Returnerer TRUE(1) hvis norsk helligdagN******************************************************************************](     $'iPf @N******************************************************************************; Macro created 2003-03-24 by Nikolai Sandved (nsaa@pvv.org): Returnerer TRUE hvis norsk helligdag. Benytter funksjonen EasterDateCalendarFAQ< Dette er en modifisert utgave av en funksjon p denne sidenA http://www.erlandsendata.no/norsk/functions/date/helligdager.htm Input: datDate - Dato$ strDescr - returnerer Beskrivelse optional7 bolInclSaturdays - Hvis true(1) s taes lrdager med5 bolInclSundays - Hvis true(1) s taes sndager med Output:@ NorskHelligdagDesc - Returnerer TRUE(1) hvis norsk helligdagN******************************************************************************Define variables] Inputyear as integer]( Easter Day]@ True if "Helligdag"?  Z'kXb,http://www.ortelius.de/kalender/east_en.html3Shrove tuesday is celebrated 47 days before Easter,#Ash Wednesday 46 days before, while-Ascension Day is 39 days after Easter Sunday.Whitmundy is 50 days after,+Corpus Christi 60 days after Easter Sunday,4except in the US, where it is observed 3 days later. $'4 4X $''  4$KT 1. nyttrsdag')Case datEasterDate - 4 ' Onsdag fr pske  KT Skjrtorsdag Skjrtorsdag'  KT Langfredag Langfredag' KT 1. Pskedag 1. pskedag'  KT 2. Pskedag 2. pskedag' 4$KT' 1. mai1. mai' 4$KT( 17. mai17. mai' ' KT  Kristi HimmelfartsdagKristi himmelfartsdag'$Case datEasterDate + 48 ' Pinseaften 1 KT 1. Pinsedag 1. pinsedag' 2 KT 2. Pinsedag 2. pinsedag'+Case DateSerial(intYear, 12, 24) ' Julaften 4 $KT) 1. Juledag 1. juledag' 4 $KT) 2. Juledag 2. juledag'/Case DateSerial(intYear, 12, 31) ' NyttrsaftenS]'   $'lrdag'k\k\   $'sndag'kx\kp\nh\ 'iX\XN******************************************************************************; Macro created 2003-03-24 by Nikolai Sandved (nsaa@pvv.org)( Returns the Easter Day for a given year Input:J strYear - Year (It should be correct Beetween 532 and year 4000 approx) Output:M EasterDateCalendarFAQ - Returns the Easter Day for the given year strYear!Based on the Calendar FAQ formulaIhttp://www.tondering.dk/claus/cal/node3.html#SECTION0031200000000000000003The formulas presented here gives the same ansvers:,http://aa.usno.navy.mil/faq/docs/easter.htmlINB: "...Easter can never occur before March 22 or later than April 25..."A good reference:- http://www.ortelius.de/kalender/east_en.htmlEaster date FAQ:E http://www.cs.rutgers.edu/pub/soc.religion.christian/faq/easter-date<If you don't want to use VB Code in Excel, use this formula:FThe Excel formula below gives the correct ansver between 1900 and 2078%On 2079 it fails with 7 days to early7Next miss is on 2204 when it fails with 7 days to earlyYear in cell A1/=FLOOR(DATE(A1;5;DAY(MINUTE(A1/38)/2+56));7)-34or/=FLOOR(DATE(A1,5,DAY(MINUTE(A1/38)/2+56)),7)-34%depending on your system using , or ;N******************************************************************************Define local variables]$Year]$Golden Number - 1]$23-Epact (modulo 30)]%#Number of days from march 21 to the$Paschal full moon]$0=sunday, 1=monday]0$$Sunday before or on Paschal Fullmoon$(Between -6 and 28)]H$ Easter Month]`$ Easter Day]x$Century of intYearConvert inputyear to integer PX'4The Golden number minus 1 4 'AGregorian dates of Easter are computed for the years from 1583 on=(first Easter sunday after the introduction of the calendar),GJulian dates of Easter from 532 CE on (beginning of Dionysius Exiguus'sBEaster tables). There are countries in which Easter was celebrated<on different days. These differences are not considered here-http://www.ortelius.de/kalender/forme_en.html4Norway/Denmark changed to Gregorian Calendar on 17008for other countries than Denmark/Norway, check this pageHhttp://www.tondering.dk/claus/cal/node3.html#SECTION00324000000000000000BDenmark (including Norway): 18 Feb 1700 was followed by 1 Mar 1700 4//* JULIAN CALENDAR */9The Julian calendar, introduced by Juliius Caesar in -45,?was a solar calendar with months of fixed lengths. Every fourth?year an intercalary day was added to maintain synchrony between@the calendar year and the tropical year. It served as a standard>for European civilization until the Gregorian Reform of +1582.   ' 4 4   'dO/* GREGORIAN CALENDAR */ 4d'          '         ' 4 4      'kN   ' ( ( '    ' 4  $'iNN******************************************************************************; Macro created 2003-03-24 by Nikolai Sandved (nsaa@pvv.org) Input:I strYear - Year (It should be correct Beetween year 0600 and year 4000) Output:M EasterDateCalendarFAQ - Returns the Easter Day for the given year strYearN******************************************************************************IIt is valid for any Gregorian year, Y. All variables are integers and theFremainders of all divisions are dropped. The final date is given by M,'the month, and D, the day of the month.Based on the formula+http://astro.nmsu.edu/~lhuber/leaphist.html,http://aa.usno.navy.mil/faq/docs/easter.htmlDefine local variables]Year]] ]8]P]h]]Month]DayConvert inputyear to integer PX'only valid for gregorian dates8for other countries than Denmark/Norway, check this pageHhttp://www.tondering.dk/claus/cal/node3.html#SECTION00324000000000000000 /* JULIAN CALENDAR */''dI/* GREGORIAN CALENDAR */ d'   '  '         '   '          '       '   '   ' ( , '    'k(G   $'iGhttp://www.assa.org.au/edm.htmlN******************************************************************************% Macro SlettNavnMedUgyldigReferanse()0 Macro created by Nikolai Sandved (nsaa@pvv.org)I The Macro is written according to these Standards (Not all elements yet)" * Reddick VBA (RVBA) Conventions, http://www.xoc.net/standards/default.asp0 * ISO 8601 - Representation of dates and timesM http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601 Description:E This macro removes all Names in a workbook with not any referenceG (usefull to use after you have deleted sheet(s) with name(s) in... ?Bug in Excel 2000...?)N******************************************************************************Define variables] A Counter]  A counter]8Number of names in the workbookDeclare variables' !2'!Run through all names in workbook  5If the name is without a legal reference it's removed $!$ =#REF $! .%B@dB  'kA oA PN****************************************************************************** Macro intNumberOf0229inkl; Macro created 2004-01-14 by Nikolai Sandved (nsaa@pvv.org)I The Macro is written according to these Standards (Not all elements yet)" * Reddick VBA (RVBA) Conventions, http://www.xoc.net/standards/default.asp0 * ISO 8601 - Representation of dates and timesM http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601 Description:4 Returns the number of february 29 in a date span Input& datStartDate - An excel start date$ datEndDate - An excel end date OutputD intNumberOf0229inkl - The number of february 29 in the date span datStartDate to datEndDate- Date Name DescriptionN------------------------------------------------------------------------------) 2004-01-14 Nikolai Sandved CreatedN****************************************************************************** ** Define variables]]]] ** Declare variables'' $ $  ')If first year span a possible february 29 $ $ $ '(If last year span a possible february 29 $ $ $  $ $ 'dp; $ $  'kH;d@; $ $  'k; $ $   $    $$*  'k: $Return 'i: 0N****************************************************************************** Macro intNumberOf0229inkl0 Macro created by Nikolai Sandved (nsaa@pvv.org)I The Macro is written according to these Standards (Not all elements yet)" * Reddick VBA (RVBA) Conventions, http://www.xoc.net/standards/default.asp0 * ISO 8601 - Representation of dates and timesM http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601 Description:4 Returns the number of february 29 in a year span Input& datStartDate - An excel start date$ datEndDate - An excel end date OutputD intNumberOf0229inkl - The number of february 29 in the year span* Year(datStartDate) to Year(datEndDate)- Date Name DescriptionN------------------------------------------------------------------------------) 2004-01-14 Nikolai Sandved CreatedN****************************************************************************** ** Define variables]]] ** Declare variables $ $ 'Check if year is a leap year $ $ $   $$*  'k4 $ Returns the number of leap years 'i4N****************************************************************************** Macro DateAdvent0 Macro created by Nikolai Sandved (nsaa@pvv.org)I The Macro is written according to these Standards (Not all elements yet)" * Reddick VBA (RVBA) Conventions, http://www.xoc.net/standards/default.asp0 * ISO 8601 - Representation of dates and timesM http://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601 Description:/ Returns the 1. advent (sunday - as an date) Input intYear - A year Output) DateAdvent - The 1. advent in intYear- Date Name DescriptionN------------------------------------------------------------------------------) 2004-02-03 Nikolai Sandved CreatedN****************************************************************************** ** Define variables]X Days to sunday after yyyy-11-27 ** Declare variablesISundays in Advent are determined in the following straightforward method.JFirst, the feast of Christ the King is the Sunday on or after 20 November;Hthe First Sunday of Advent is the Sunday on or after 27 Nov.; the SecondISunday of Advent is on or after 4 Dec.; the 3rd Sunday of Advent is on orGafter 11 Dec.; finally, the 4th Sunday of Advent is on or after 18 Dec.JThe day of the week that Christmas falls on can then be easily determined.)http://www.smart.net/~mmontes/ec-cal.html 4 $ $ 'Returns the 1. advent date 4 $  'i-pN****************************************************************************** Macro ResizeWindow()H Description: This macro Zooms the printarea according to the sheet size UseN Call this function from one of the methods. Ex. each time window is resized:8 Private Sub Workbook_WindowResize(ByVal Wn As Window) Call ResizeWindow End Sub- Remeber to mark all sheets with a printarea Input Output- Date Name DescriptionN------------------------------------------------------------------------------) 2004-02-06 Nikolai Sandved CreatedN******************************************************************************** Define variables] The active workbook] All worksheets] The active worksheet** Declare variables ..V V!,.^K Checks if the printarea is set. If so, the window is adjusted to this size Z ` ZB@b Z!6!d Z!6!d Z%fB@H h(jA1 Z%fB@Hk( Z-Aktiverer det opprinnelige aktiverte arkfanen ^B@bCleans.Z.^.Vo' N****************************************************************************** Public Function colorCountF Description: The macro returns the number of a given background color in a given range Input) rngArea - A range (ex. Range("A1:B2")), lngCol - A integer between 0(Black) and 56E strType - "Border" returns number of borders colored in given colorA "Font" Returns number of fonts colored in given color Output- Date Name DescriptionN------------------------------------------------------------------------------) 2004-02-26 Nikolai Sandved CreatedN******************************************************************************** Define variables] The active workbook] The active worksheet]]]0** Declare variables ..V V!,.^' BordersKT T ! ^%f T!!   'k8# TFontKT T ! ^%f T!!   'k" TS" T ! ^%f T!!   'k`" TnH" Returns value ''i"HN******************************************************************************D Macro NoteShow created 2004-06-21 by Nikolai Sandved (nsaa@pvv.org)F Description: This Function returns the Note in the input Cell rngCell Input: rngCell - A cell Range OutputE ShowNote - Returns the Note as text from the Cell reference givenN******************************************************************************** Error Control** Define variables]#The active workbook]#The worksheet with the Note]#The Workbook with the Note** Declare variables %7  % %[  %]$J %[  $' $.V !\! V%0. ! %f! !%'Cleans..Vz** Set the return error objects Error code: X  $F $FFurther Description:  A@ Cleans..Vi0 N******************************************************************************K Macro RankStatistical created 2004-08-09 by Nikolai Sandved (nsaa@pvv.org)F Description: This Function returns the Note in the input Cell rngCell Input:) dblCell - A value in rngCellRow rngCellRow - A cell Range9 bolSortOrder - Ascending(0)/Descending(1). Default 1 OutputM RankStatistical - Gives the correct rank according to test Spearman's rhoN******************************************************************************** Error Controlh]*Counts the number of occurences of dblCell'  $ !2 $$!D   ' k $5=RANK(A2;A2:A141;1)+0,5*(COUNTIF(A2:A141;"=" & A2)-1)RankStatistical = Application.WorksheetFunction.Rank(dblCell, rngCellRow, bolSortOrder) + (1 / 2) * (Application.WorksheetFunction.CountIf(rngCellRow, "=" & dblCell) - 1).countif didn't return the correct values in VB    !%   'S Look here http://support.microsoft.com/default.aspx?kbid=828678&product=xl2003 andz** Set the return error objects Error code: X  $F $FFurther Description:   $F"In Custom function RankStatisticalA@ iN******************************************************************************G Macro ShowFormula created 2004-08-13 by Nikolai Sandved (nsaa@pvv.org)L Description: This Function returns the Formula in the input Cell rngCell as text Input: rngCell - A cell Output@ RankStatistical - Formula in the input Cell rngCell as textN******************************************************************************** Error Control !'z** Set the return error objects Error code: X  $F $FFurther Description:   $F"In Custom function RankStatisticalA@ iPN****************************************************************************** Function ControlDigit> Function created 2004-08-17 by Nikolai Sandved (nsaa@pvv.org)M Description: This function returns the Control Digit according to Modulus 10' "2-1-2" with weights 2 1 2 1 2 1 2 ... A Norwegian explanationN http://www.bbs.no/avtalegiro/bedrift/Brukerhandb/avtg_systemhandbok030601.pdf6 Add one last digit as control digit on a number in A1 =A1*10+ControlDigit(A1) or if its a string =A1 & ControlDigit(A1)8 Add two last digits as control digits on a number in A1B =(A1*10+ControlDigit(A1))*10+ControlDigit(A1*10+ControlDigit(A1))]]]]D ]](]@]X $@XD'   $ ' '$''"' $b  '   '+Changes from 2 1 2 1 2 1 2 etc.  '  X '  " $XD $@XD '"dP "  '"k8 '$  $@XD' $ $ $ 'k<Returns 0 if 10 - siffersum = 10, else return 10 - siffersum "$@XD X $@XD'iXpN****************************************************************************** Function ControlNumber> Function created 2004-08-17 by Nikolai Sandved (nsaa@pvv.org)H Description: This function controls if the Number is coded according to2 Modulus 10 "2-1-2" with weights 2 1 2 1 2 1 2 ... A Norwegian explanationN http://www.bbs.no/avtalegiro/bedrift/Brukerhandb/avtg_systemhandbok030601.pdf]Calculates the ControlDigit   $$'(If it is the same - Ok ( $@'&d '&k Stopi Attribute VB_Name = "CommonTasks" Option Explicit 'force e 1ca n be @Frr8ang+* =B^2^2 + BA - 50K@1a Quad5c EquRa, ] D!solA`according 9A(se. http://colbycc.edu/www/math/algebra/polynomials.htmA[KAA,( -B +- Sqr(1-4*1*-) ) / 2*1 M 5* A B * (52)@K1)Q orC( +A)5p*A^2QA+ Ex..Setta0! 14 hoose"]positive n}, we ge>t%h)D,618033989..a 7! 1kB(N0B 1/!!!I A'UsA%bI s@IBc(AAcM cÈ= (H EndƜ `)BSub AllCursorsIn`Sheets(OnSPB8on(b_?'#'?'i placthe c!ne sAYon @ever>y G5!'aa g^n work0bookB!' p** D9Dim iAIntege' C  |Els 5q'p | no3 lastf;ments}cis (i )-, i[ a˟ RxDoQ~I@BRLoopS' Backч!(a6c) be`PCtart%Btpr`qdurh3ZY5, ?n GtTboc:DowP1HCo Macr >'ђ`3-02-05SdbJ簼$FVe@>1t1LntTelm lngC4olS"`LongsRowPk@D1:ReferenceStyle:=xlR1C1:C drCoa@tFirst ({ t PA=1iC s(,) <> "0ܱ1s;?8), >-.u>cfFormulaaPCDblA" 5"Pstatpo@)"[] s(OK))).81199iOnPr@ outϐ8$<m9acro set some footer information, adjust thxntsize and ' typ0z@creasedmarginsZ` InputOuBtDateMNa \ Descrip?-J( 2003-01-22;Niko lai Stve"d UpdQd -AdddG"3Renjd from BunntekstUtskrift() toCFOnPrintou. ReorHgand .&estrFontSDv Tt@=*?H9' **vfine variablec@Dim!%APs St& "\&F - &A (&P/&N)".).C(K) >taDG+-#"+& ..." _cG&cb,K)8?-+ g>C*;CE`t|by & b1BuiltinDocumZProperties("Author").Value)& FF|t$m=R ` z"),"y-mm-dd HH:MM"))9& Chr(13b LapSau_y_k. "b. PTime ){E'*'y& Environ("USERNAME"&D &vT@OojM0angrWi[bVSvW3'.TopMPApplic9Q.C$ PsToPo@Ns(0.8t.r .Bott$omonts(1Hbu3so6A91.5RRh"pMc0ôed,x kepssL2c1 S1`G6KsD!.' er}Iy& o }8(`o!Л̑..newFБB)p `H 2e@|0{B~ߏC.)dEjB Subҷp *A`pyV3 b\:{ p3mK센O5fOOOOOTeO<-- O B.!rC#Orintout() ' *J ' ** Define variables  4Dim strFontSize As Stg ' this / c"ainsQe f s/u@sed inheader anBdoterbTyp bHere you dNth-"ntNyle Weclaec= "&7"@ > ""Al,Normal"""uEx:@ Couri`New,Halvfet; ;'Do|PageSetup ChangWith ActiveShpeet.!h.TopMargP= Application.Ce ntimeQsToPos(0.8@ Bottomf1Hkh3IFowh6ILeft1.5Righ(\8' TƼ@adjusted,sXinfa keptsameO q5E =&E&.h a@es- LH (  '+prior), a!new-}n`5''Z$"P!@by "Environ("USERNAMHE")" ?&D &T$m1 r~1) Workbook& "\&F - &A (&P/&N)Eఉ! !Sub  Midstill_i_merket_omrde?/' Macro^Ascripo:upmcAĀtext ov selecB cells w`߀6gg"y"AInputdOutDateN!De&-? 2003-01-22Nikolai4 S`1v ,0Upd0 d -Addd"% Sj,HorizlAlignm@)09xl3A ss .Verto\nWrapT= Fals1.O{ntaR[= 0HShP?kToFit}MergeC#J3P3Faer!o3& .Numb!W"dd/mm/yyP9v8C8yYMMDDy-mm-dd PubЃ Fun LR@z OfX(XQDoe)c_!U>Bun0ZkstUtskrlif&= =ЩdåCubic r of a gmn nr X Ptoa76 ci𜀭 e=k- A$v?$Uc XoBLoBV>oBoBoBV 7nB1&Long82)(3_Mc p3 0> To `s=^ 3#qIf a350AnExAW!:If>># l@- 1 Q yNMsS2 1 / 100 o 999Step #(P @+ n2) O= ` -2nQ @ / AoqCb3h  m@3O!X# O`'" n1 @A&/ 10 s = (n1 + n23) ^ 3 Exi t For*End IfNext RootOC$?Dhu?D?D ?D?D?DrK?D?*?#DU`D:* 9`C5)32-Db-ToWeerkDatBA"P=,t _cOsF3GbytTryxaLs Byw= 0RdLong_JS|nA?DqJ`c3-18 J0JssGe ISO8601 `ksvcode app@ears o#JsiDPwww.Q4/~R/dfOTh&e"on{ll,owO sto@{dmozaW/Science/RefecSs/Individual_HhSO_Q/# Su"o2- Mipsoft Excei`$5$ pt!0 - "at(def ault): Y-Www-Da<1R$_\,Y ,Ó` dayG/o " / !2 rs3=O2 5u: -D/_ 4|Q5Only |: wwOutx$HA sAQ.D@ patte`~" " (D"0}aSF2P(can` done` like3(US change ; to ,):Ul(A1) =qфrQŠa'l(BRIGHT("0" & 1+INT(-DATE (YEAR+4-WEEKDAY6));1;5sF+ 53)))/7);2 " CIF(AND(MONTH)=12;B1="01");A  )+1;OR="52"253"` N]u-)&H"-WB1`"~-7 1Qfo!wo rul!applipwhona gregori 2@SZ1?vice 0sa0R 1 January 4th. "always =01`A52 or 53(leap"E)aE&`n y G: "A ha]p !f"2-W53-7* 43-W#]<8<18<7@-12-28+7<2<98J_'/I24Y_AnE;14 (i.eS Q:833 Q ->LeapŒ!E !Wednema  &2Qjb3&L& YP 9-6 (a$ f3 3NOTM4754@4EERR@OR, Noxte6 M! 5MAD%76M ( b "ind75%3Keyboard Shortcut:@*? & ]'** Error Co ntrolOnGoToCH;Ple  DeBablesCDim byteWNumber AsteY`'Tn(8Bet U53G!A strS tring  01/ int! "eInteg@2 "(1LongForm`d'If l n "-໡ %cusvɸwww.cpson.com/excel/d%A '=1+INT((A1-DAT@E(YEAR+4-WEEKDAY6)),1,x5)+$ 3p)))/̡ 9= 1 + '((datD@ - Sel('&`+ 4 _A -b a0day 1, 5)   a /  Adds leadQ$0yp*fsa|10 (= Right$( "0" &l., 2$#correct" Åifcesarry3$Trunct&<`3nQ&A R*2yeahp w%(zth) 12 A`Zm "01")PexY3=R+ {A1CO E fterG Else r ( 52"$OrA= "53")YO O G -J Samc Sh@IfE >'u pC' `bEfGaddE=I9"O"JPL3 !S'Sel,s u-tQ+@d  cSse2-|Ca71@TVo=`CV(x)g7 @"W"&"xJ1&J, vb) 0ϑ & tRDɿDo9  A^pr~4'  /D5V# QO&/'/#@0 '835 Exit Fc󚠣 aSetreturn eRobj1<MsgBox ("code:an0Q7Chr(13h3Fur`r Descrdip! : A2$T3@ 0Q9 "Public 7To!(ByValU<ė, O0u1/hy՞R) As Date 8 '*J Macro cred 2001-18 by Nikolai Sandved (nsaa@pvv.org?Description: This Func return the d code appears o site http://ww$w.d/~r/ISO8601.h(tmlZT)week calcula7s folXlow7  st]ard/dmoz`/Science/Re(ferSs/Individual_ SO_*/&(Input: 4rWI - given in eir "Y-Ww`w-D"/D"[rmat#Qor Y / D (reqires;attWhatDay @`pent) in- If F*@ aing Bw( lesn 9 charaxcteh@P@O B IF(MOD(VALUE (LEFT;4));400);=V1A;d);0;1)@  FC MIDA7;2))-1)*7+$1m-WEEKDAY(DATE1@ &DDE1=" june"!C1@<(178+!;6;C1-147-a G !20997"72)F40Y8A208 f7z9b39b"oct"b);E1B` "=28;+C1+4D56,#t2b787 355D/,113U4A86J4?,<5a11cI!)(FDMD1=,%M301 ]@M26#4)33[1a300-233 e C?'  g` ErrControOnGoTjoCHlDefiVariabYDim^` IntegLerA5'Yu par e1cB'TDDt dfN I LY@1 if p^Leap , else 0'Pd0104Rf`' eq14 as2hn1 2upfgc(0vSi`' }0ys sR straMMStrw B convertet fromC -Dp5c MM-DDGрpsInMdax 'Qs9 y$S' SP so|vk)P!a = C )(L0eft(, p4)) ])='a w"wMidInP(1,, "W", vbTe xtCom0(e) + u ЎfoA ` n%) < 8@) Or (k=a_3AAn@ "- <> 0`+n!=1'Stop'(implicit) E!35 -DբtRigh10 = EIf5s'Check"3s"!a v=sbIsA'tQ0 True0e( !D= 1 $C ''?eq.ueswQGlG pW 0firs6ҳwedn/Thu@$rre53 s((qJTSe[le,a)1b)*Mon@q4% %OObG3%1>= 53S >2'Not a correctXp,> 7!4q< 151900i7{p>"1 KK4DT=  A!GLaarfeilm8eld0W QA'C11= AnHumbofxys from>Since@:Www - 1)@ * 7 +vDDO+AZSelect#se Q 'treAC'differeCa-7 To -4 ' Dec lastGBstrMM%@@Strg-!-12-ЯRight("0"C 31748,), 2z&3&27&D$)A7#XFd+L"28A"(56.ILY)&Febrh&#J1- 27$ H:(8$I,March_Y@ya:03:gAaj(- 55XL*11April486s(48$7F.y511 7June?&6?747\.c'209K.Jul.b$7?7N7<(40.A\ug/_W 8 & W9208/W(2 7 pSept 9ϟ 5f 39 3 30g"Oc nQ10 p~[6 n( bs Nov11 y3003 6@ r}O.ntan 3 (3 y 5 0 nexϓϓ v.__,36v`4]Els\MsgBox ("WrongУput:K"Mub0e onrmat@-D / Dʯ&hr(1*3C"1 greO8ѝ O O OQbԿ#q OO 5 O A㹃.S2return valuD! ToXCInt(Left(()D, 2Mid+6P $*2))0 rroDrHle:t *,* pݩ eA objsS6%Ecode:V0G!p0Furr DescripQ)2$;0 @g'3Public 1N8(By0Val  A4s pi`/, O0lng0 sToAddToEL2= 7) '*e"* ' Macro created 2001-06-30 by Nikolai Sandvt(nsaa@p@vv.org~Description: This Func return th8e d code appears o site http:/ /www.d/~r/ISO860@1.htmlFe week ca lculans followo0" 1 stard5/dmoz`/Science@/ReferSs/Indiv@idual_ S4O_*/&(Input: 4LrWI- given in eir "Y-Www-D"/D"[rmat#or :Y/ln gDays- Number of ahea{q,OutU'N`ext -lRo@rrespo=npg toBQ0Zplusn+{C (~?sHame. aCi{AOq)˧}  ''** ErrRContLroOnDG(oToHle Define VariablesCDim@utd As InteNg]A'Y par@uD o L 'BN DDT C day@Dρ D$'GbRcgonver~=tabytTrxForm! BysD at c)@, see To$ShortLongO ' ' Set( so`Hvk1in0= C0(Le ft(st"q, 4)) M1 -2MidInS0tr(1 "W@", vbTgCom5e) + 9 2)`X$dIf=ff`(%@rox"z@n@) = 7)rna @@= 1 ' s defa ult muay-6* 1'2aElseC8) _G APnd (0&-/&<> 0 3The_|$0'ife0DCA B=xBURighhU1 "qz$ ;/$;u-\Lei(10/(t"( , # As'Not a legal0eG*1-1P(Ifs'CbOjQ-> -1=T=|ToNArH?+ yToAddQ , "CvbTextComp)2)@-_IG=JQ!(J _"?"(4JJ؉IssI1I$rRC$'Defi@ne loc@v8ariInP47A$Rev'ycul{c^M#=?(0(:RO(+ 2AH.",-P-k,S'Only oPce@markedIf ( 2) Thenq'...ElsewI8{?8Cb -r66If3\o7\ff7\ -7\\}\ pB/ #\C!\ \\q 7]%?8?8"?8+_(ı8s8*`) + K__<@d 6o=u8Cp8# 8@ = 0-8olАCp-n5 io, Len&CB 8>tǟ!>__1 ?p ??o?r֥F2v _?.'3_?_?_?Z?wO?O?O?O?eO?a $d }/?r"* AdrCoordinatLastCol = CInt(Right(strRC, Len4) _~- InStrRevZ"C", -1, vbTexmpare))) End Function Publ$ic EerDateLNFAQ(ByVal Year As" lingI'http://www.faqs.o(rg//BroPnomy/zt3/ser-11.html  oremu liturgy/etc/ktf/app/eIely.ang`an?#2.c1cp`son.com/excel/holidays, keysolusNotesa/allvb#NT0E32Forklar: &nmm.ac.ukrver.php?request=set Templ\:slecontent&TypeA=WebDocId=350ApRem "This formu la rePns@ the d lofuy yAta given D";  Is vaH until B 4;C*ributed from bill0t@one.no (D:=[30.0`7.97]:D=@(D) c@egerB(/100An:=-19*@9k (c-@17)/25i:=c-F c/4)- @ k)/3)+@n+15@ i i-30Gi/3B iiii/28)*(129/(i i+1))(21-n)/1"j#+4)++2-c@"j j-7' j/"7Al:=@-jj`wM@3h:=3G(l+40)/44|y:=l+28-31g `& @B2;hdDay CA Cq(Yd:)akgv Dim d$ d(((255 -@ 11 * a Mod 19))`021) ; + 21B`@Serial,P 3, + + (d > 48*)6 ( + \ 4`d$7%%BDAAk' F!oH~ Bas vonDquasar.as.yxedu/BzInfo/ReligiousCalendarb5/*dSie EASTERCprogrammeF*4G='Read‘ma@ (no error check@!) writedʦ , accg toGrego@CncD# (¥s after 1752) !Julian O xbe0e3),!st ard outp|utPKershaw: @29.Jan@+996, 2.Feb.1./ / C opyri (c) 496. All sPgserved˿ ==& mcode ma0y bep%duc0,1u,, with fee,Q in g!fu vid#"Enotice QU!@Hse xdi q di0o $itNo orP#`r} y!yronablsts,A:charg Uexp0it permissxOQ8aur,+, i rl%T_Pd was deHfinpby26C>o0 NicaeaqAD325 qSuIy$7first2 mo1&wh ich fs /p9s:Rp Equinox@ /A Sassum `Aalw'ra21March, sCC}Bc$,,КoBminIUH + *jopllow ablJthm-a3 hereint4ro45rPT532 D0&ysiusExigu@ Und@NMa s`19-Dcyc/ CaUrackrph jfM` g'XT(devim Clav QLil`\`0XPope 3y XIII& Octob!\58V2@o5BbaS@E!itnBl oniesSe0ptem2`tw>o"@eAb faMr c adIoAkhmpiurjo39_#inclu Vm (EGcrgv'SOgc'aI *v[A'{Q, gol,de@haHlunapfm, do@tmp, #  'DR@ loP2 @v Rs#$Qᑮ @ pp p p wteger  P'/* get the year from argv[1] */'if ((c < 2)& exit();sscanfLv, "%d"8, &Fa= CInt(str>YpM?Golden num(berg= (D% 19) + 1} Mod ]ccs<= 1752 f{BJULIAN CALENDARAP"DominicalR" - finding a Sundayfor olr countriesan Britain, check is pageDhttp://www.tonder/.dk/claus/>/node3.html#SECTION00p3240 'IrP?) ThenCA'dZ+\/4[5) 8% 7] P /v a7_A < 0) +=J'G& End If juncorrected da te ofXe Paschnfull moonjA'pfm >3t(11*)@7>30> @ >30 ? ??A?O?= A+ ?/0}C'Els'D^b%GREGOR2_Es__"6I-K10AǦLLr \aL$iaO)"b?Q| (5n1#+?Q! #b +!'solaUlun SionsKP$&-16/!Raw$|hQj #_` (-1)x** 8ya25  B\ G\ 25c ( O !rrr+ - b_tyuuA>au#'uxC&c-`ys aft21st MarchKB"(2 = 2s|| 8 && @ > 11)Uq yF--I3Or 28 A`-e- 1 }KDtmpX4- - 6@ -rP@om) x>bQr;Pj ;=a= Q=Easa1|eUe@Oec[ŋoDJd<dp@tf("%i\n s+21U_'Al-|10CD-@uCqSalAC, 3, + P g4"0( a3FEt0T PubPlic E wNMM5 As Sqng) Ń'@ Validc1900 to 2099 Algophm":eȚnmm.ac.uk/server.php?request=set Templ:slecontent&tTypeA=WebDoceId=35DimS ϢrIADD* A25 5110(2!5eDo @While > 50 'loop.=R@-L$> 4v8$P=1>AwE~E. qp2 +ϡ0AWQQ^ g?EE < 32_/?"$/r/QQ*Vj(\, /@1.  M.-e#(int!՘-Long ' 8*erl pseta.norsk/f4s//hellhigd rQ1Only'betweB2P278!ReturnerphPo 1. Pske, tren ikke Excel 1 virk}'0 ?+B25+P+aGa32gXp o9Hd11D&rA,A60#_c (+ pr0)`RЭrpQ 7ncL No H%Desc(ByI̱ ardp, OpsbolInclSadֵays As Boolean = False _ , Optional ByVbolIn@clSund)String  '*JP Macro created 2003-24 by Nikolai Sandv(nsaa@pvv.org)=Returnerer beskrivevhvis norsk helligda^ Input: datD9 - o oa1- H+true(1) s taes lr/@med4sgOuRtP N`H_DescVB s pM၌Dim B!' DummyÖ str)r /riX+ =L:(f, ,A ©cG/\@O=F End Func  #t(EB* DD|)aPrrrTRUE ?q?q??q?q(x?q1qhAA4?'mc+_!Xl/{lh⮓g,Refqjuj_46jj. BenyttefunksjonenEas@!!KCale@grFAQDe en modifisert utgave av p p denne siphttp://w@ww.erl0zsta.no/w&/Us/Se/jer.htm0aOyeIy'"- r~xpA {a&XC{ '`c`i rC {k{CQ$mq'Defivar@iablesDi ntYear{InLtea 'yas Pg`%1, vbMon@)6 Tru&EIl!g[ End!656u'474s!47Select=NorskHellig]v Functio P@ublic  BE~CalerFAQ(ByVa l /i As String)Aa< '*?& Macro cre`d 2003-@24 by Nikolai Sandved (nsaa@pvv.org) ReUns the Day for a given y`@@Input:! - (It should b@e corr, @Beetwe532  4000 approx OutG + - @ @Bd onm6 6m@`http://www.tp ng.dk/claus/cal/node3.html#SECTION`-1.H` @~ s present0here*#.same"sve,rs*AM'$aa.usno.navy.mil/faq/docs/eO" NB: "...CR can ne ocXcur1`9eDr@ch 22 ;l Er`! April 25@' A good ref@nce=#ortelius .de/kb_erq"_enED e,Mcs.rutg`.edu/pub/soc.r g n.chri`stianB- @you don't want to uVB C`4 in Excel,thisE1!!3c@$low2Wan3CX19Q+PS2078pOn679 it fails with< 7P`_ `3lypNext miss @(2204 w`ac5C l A1=FLOOR(DATE(A1;5;DAY(MINU/38)/2+56));7)-$34orn,5,oc,edep`MKa3r sym A,q$; J!0!j'Define Dlo7 vables DimwPRUI5$m 'Gold`H0Y'Numxber0F`$E@pact23_'23- (modulo 30LaPFmo/ 'of"from ma:1,L ?'Pasch@gfull 7Z#W9 '0L=s|@=mNao*adS"'y4bebED EF@7W '(Ba-6a28 cD@`5Z'F _ll% CpYury: '@CS'Con@Vt`(pk!rqe(#T`C0'(d$T H(n(minus D( = e$ MY19{Gr(ego 2n%te,s @ 4agcom@ g0p_eRx@Qaa'15830>(`first#" qbe17r.1p*g),4p['B.aCE (@beginnFfd Dp_ys`e[i`guus'>utra?).A S un Rwhim!4was 0Sebr1d p*difRmrt ysQTc#qnotnsidpd !{$opskpmewpB.0w@ay/Den>k :ngP^7&a0 1700o rthP{/,@eckepagDuy24 p(clud): 18 Feb yvl u`01c { [<= ')'/* JULIAN CALENDAR *~/Ba3d&a,)c$Caesar -45$*2A"a sD#|Pth24fixlenngths. Every fou@rth 'year an intercaladay was added `to ma< synchrony betweeBnthe e,I2 BE"Funcq Public E USNO(ByVal`|rZAs Str`ing) @a x '*?& Macro cred 2003-@24 by Nikolai Sa(nsaa@pvv.org'InputJ:! f- B(Ahould` correct BeB 060 0d4000q Out' h%3- Rens) a@AgivBst+1(((B `is valid@y !, Y. All#IblereAIegerE`i@)red@a@d sCd@ped. T@finFd7 Y7M, A mAi,b,D,$ A9Bas ula`http://rro.nmsu.edu/~lhuber/leaphist .htmla.usnavy.mil/faq/docs/e{#o'Dee dlova$$Dim$Y!aI%l 'ALC NKI#J-LM '{rM D+Y'Con t01,_pLq#YJC(.p4'only)gA#sD53or:ri )th0Denmark/Norway, checFkp$&pag{'T"www.ton+K.dk/claus/0/node3r#SECTIONF2?@?&If <=x 170A.JXULIo% "MKD~bN- rbP|19@ 2 Kp%Ch17l25wAIC 4% KAAqkrNr1OI30oI3Uq!2`u" VI[ NA J YkY +2{ PCJU`7$ J7L# J ҄L`!4J!"M}K|삲MRD=C'S3assau.au/edmTRSub SlettNavnMedUgyldigPeranse(ml dO? (?'bl@Ewritt@{acd`DaՀI ses (Not qelemUst !Reddi0JVBA (RP) T4onN'A0Kxo@c.net/s/default0.asp0IS O 860Repres@ar֐tCrTvtimedmoz1/Sci`ence/S!s/In~dual_HSO_1 QDescripAm"0ov!ЂNaP5 a workb@ook winQ refer!q(usefuGpe af0 you hav(e d`tshq(s)`in..1a?BugExcel0?4%o8_t@TellerYv 'A!@nerT eller2 As Integer 'A cou!`r Dim intAntNavn Numbbof namesL the workbook~ 'Declare variables.T= 1m= N9Y.C'Runlrough0 all }Forc b To`Ls'If^d is without a legal reference it'smovedLeft$(X(k).RsToR1C1, 5)C"=#REF" Then!CActive:W.&)).@Delete Els'+ End IfNextGL  Sub APublic Fun@)on ÀOf0229(ByVJdatStart0Date, @) _G '*?H` Macr}+inklcre+d 2004-01-14 by Nikolai Sand{ (nsaa@pvv.org)@@qEritten according toAse @Endards 8(Nopments yet * Reddick VBA (R@) Conv ion'lhttp://www.xoc.n`et/st)/default.asp'ISO 8601 -pres@at w@3w tixB $ dmoBz/Sci_/Y"/Individual_8SO_a A Descrip:Returnsofebruary 29 L pP spa@e'!InputD` M- An excel !rtNb&O e_`A Out f F@=n a5gAD b!ba{h'-?&^^@Cc`@k_>b @ ' ** Definda?DՂHPossiYearsr DQ`C8= - = V0y(B)JdCA2`# firstarbKbp (f"@(Monthl >@ 2 Or r=EA0Day_8))j  "D la? > j VN ,  o -F t_e!! v"x "0(O& +!{o )-j!bIsLeap5(i!B@ C9=uه8%/a" yX "2E t\??x?`?OOw '??teddP! ""!`Range().S0c0s6.Bq0Tru?"xA1"17Ƣw 0 'AktivEr1a op6nelige atrkfanRήwqC`nA# дh@|#c  )=@xtA`colorBGrngP&, s@lngCol1+Lo_ , OrcTypeqStVg!p4?59' _ ! arca g`}ackgrd ߰ 7@rQ&3g- P" (ea3)$:B2")1]!iq᠅t0n 0(Bl) P 56B - "BeXr" 5 bsC 7` color ' "Font" Returns number of f\s ed in gi8ven OutputDatbeNam.Descripti4on2-JP 2004-02-26nNikolai SandvCreQd*J) '** Define variables Dim wbm As WorkbookP'The act wsA sheet  c5RangentCol LongfirstAddresA)@/clar 0S0= #E1 E)=9.S*c= 0  lect Case strTyp("Borders" For Each @c In w.A5(rngA@s./)B If c .. "I#Z%=X*&t(-1) ^pqts) 'Ce0gfrІ[8etc`8dY + If> 9 Thenc p( 1 A= +4! ElsW?%>4 pIA q l0c Pu(c(U b>)!,p*h))O1! p1)'RRs 0IT10,s>s10, e ]`[  IN ±)dNojgSOvs >Cvoolea'Wr '~v3 ߗv1߭߭'[ҭmvcsbf codвvw vvvvvvvvvq($c$` CalctJ 5Et!3w9|2C20H@;0!samOk wp/c)x>=p Tru0HHFaBJe:'Sto:?W1__SRP_2__SRP_3_VBA_PROJECTdirq`$!`$I`$q`$`(` +$ ` ( `! (9 `I 0a ` i , ` ,`(`A<`Yy(&(&()`Y(Q`Y(y`Y(`Y(`( `1 &(1` 0(Y` 0(`A&0` iAq  0` iAq  8`iAq  0(!` (I` $q`, ` ,,!` ,("`A $#`89$` )AY ,a%`q= 8&`  = ,'`q= ((`()`nhXH8(0 tA MergeCellsک (FormaterDato NumberFormatR(FormaterDatoYYYYMMDD$T(RootOfXCXon1L^n2M^n3N^sj(SwapDisplayFormulasDisplayFormulasl(Celsius dblFahrenheitB (Fahrenheit dblCelsiusB (DateToWeekB!datDaterbytTruncFormatbytShortLongFormat ErrorHandle_byteWeekNumber strWeekNumberb intWeekYearystrShortLongFormatq DateSerialUyear6nWeekdayMonthvbMondayMsgBoxRErro (WeekToDatestrWeek intWhatDayintYYYYX\intWwwintDD  intYYYYILYH datYYYY0104ZaintYYYY0104WeekdaymintYYYY0104DaySince strYYYYMMDD9intWeeksInYearMaxh4 vbTextCompare Q (bIsLeapYear(WeekNextlngDaysToAddToWeek bytTruncFormoAbytShortLongFormintYear (AdrCoordinatystrAdrRCElngAdrFirstRow!intAdrFirstCol lngAdrLastRow intAdrLastCol(AdrCoordinarU~| **q y  9 Y q  Y 90   0 h  0   0   0   0   0 @  0   0   0   0   0 `  4Ko (o H8 8 o o  xhhX XUH (o U H8 8((v6H8hXH8(&v#*# 1p2$; MX@H H(( ]/8lp0'6H) MX@H H((8Upn6H8"D MX@H H((]/8lp0lp0'6H% MX@H H((8Upn5H" MX@H HUpn5H? ChI Ch Zkn#lh*# *#lp*#lh*F8 MX@H H`1x268H (kn#lh*# *#lp*1x2  kn1x d? lp*#lh*F8 MX@H H`1x/68H   lp*1x lpCxZkn#lh*# *#lp*#lh*F8 MX@H H`1x268H'X'h'x   l#*F8 H H  :X' F /68HxhX0xhphH8xhXH8(0   0 0  0 H   0   0   0   0 x   0    0 h   0   0 @   0 `  0   0   0 x  0 @  `(l Cp lppn knpl kn/Sklphknknkhpf kndp^)k^k^k^ klpj&kjkjkjkl ph$knknkhk^k^pf khkfpdkd((pbkdkbp`k`kbknL LOtt5L0((pL0   0   0 P  0 0  h8 k ` (@`P P0Upr6`P* k ` `krD@POtt6`PcLh$ `P00 p  0   0 H  0   0   0 P  0 p        !"#$%&'()tLastRowh(AdrCoordinatLastColflngInstr'& lngInstrRevނInStrRevĈ lngInstr_R(EasterDateLNFAQstrYearpd[cZnekbii]iii}jajj]lc EasterMonth: EasterDay(EasterDateCpearson) Yrp_ (EasterDateCBhgoldenghsolarblunar pfmdomtmpeaster (EasterDateNMMzDD\EE]QQ^(EasterDateSundayintD\(NorskHelligdagDesc&bolInclSaturdaysbolInclSundays bolHelligZAstrDescrp(NorskHelligdag6(NorskHelligdagSantZ datEasterDate#8bolOK](EasterDateCalendarFAQ  intGolden intEpact238 intPFmoonTintPFmoonWeekday5intPFmoonSundayintEasterMonth  intEasterDay# intCentury(EasterDateUSNOintY\intC\intN\intK\intI\intJ\intL\intM\(SlettNavnMedUgyldigReferanse intTellerF intTeller2( intAntNavnFHNamesο RefersToR1C1cDeletex(intNumberOf0229 datStartDate datEndDateZint02294  int0229CounttintPossibleYearsBDay(intNumberOf0229inkln (DateAdvent. intYear1127F (colorCountrngArea:lngColgstrTypeAhcntColF firstAddressdBordersC" ColorIndexFontUInterior;(NoteShowrngCell> wsWithNote#strWorkbookName_ WorkbooksBWorksheetFunction&CleanNoteText(RankStatisticalƼdblCellH rngCellRow bolSortOrdertelles=Rank  (ShowFormulaԩFormulaqY (ControlDigit strNumber— bytSiffer strNumberLeftbytMultbytProdOWstrProdYA intSifferSuma strNumberOld (ControlNumberbytControlDigitQ* _B_str_Right#(Number- _B_var_Chr\; _B_str_ErrorR BeforeSave WindowResize_Defaultj _B_var_TrimmT _B_var_Right9 _B_str_Format"    as *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\FELLES~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.4#0#C:\Programfiler\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#C:\Program Files\Microsoft Office\Office\MSO9.DLL#Microsoft Office 9.0 Object Library  o?CThisWorkbook2F453d5c51ThisWorkbookI#'Ark52I453d5cb8mArk5fArk42H453d5cb6oArk4'0 Sheet22J453d5cbaq Sheet2P]H Sheet12G453d5cb6s Sheet1`CommonTasks2E453d5c51tCommonTasksvx#yx0H`xNW7l'4GNn@yٮOu Lϔ!jB.|F$^YdN`Q:9b#ީaBMhP Excel+ VBAWin16~Win32MacVBA6# VBAProjectstdole`Officeu ThisWorkbook| _EvaluateWorkbook_BeforeSave lSaveAsUICancel strFontSize strFontTypeLstrRightFooter" strLeftFooteri` intPathLengthv intLeftFooter,0 strAktivArkI  ActiveSheet%NActiveWorkbookSheets Count0vVisible PageSetup Orientationw xlLandscape&Trim@Path2Right BuiltinDocumentProperties_ValueKChrK~ LeftFooter RightFooter|S Workbook_Open (ResizeWindowWorkbook_WindowResizerWn_Window6wbmWorkbookkws_ WorksheetwsActive WorksheetsActivate| PrintAreaPRange  ActiveWindow+Zoom Ark5}C Ark4|C Sheet2 Sheet1 CommonTasks1 (GoldenRatiotu dblNumberS3Sqr(#(AllCursorsInAllSheetsOnSamePosition8 intAntArk>cellref|InputBox  ActiveCellAddressxlA1(ConvertToNumberDown(]strVerdihstrCellAddressintTel†lngColCellStart@lngRowCellStartgReferenceStyle9xlR1C1p(AdrCoordinatFirstCol(AdrCoordinatFirstRowCCells FormulaR1C1S(FooterOnPrintout(HeaderOnPrintout;D TopMargini Application*CentimetersToPoints BottomMarginu HeaderMargin8 FooterMargin LeftMargin] RightMargin[ CenterFooter LeftHeaderEnviron, CenterHeaderD RightHeader(Midstill_i_merket_omrdee SelectionZHorizontalAlignmentS@xlCenterAcrossSelectionbVerticalAlignmentʡxlBottom?WrapText} ShrinkToFimoqsu l@RD/PLHQm0* pHd VBAProject4@j = r o?C J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\STDOLE2.TLB# Automat8ion^DOf(ficDO>ficDD2DF8D04C-5BFA-101B-BDE5DAAB42Dgram Files\Micr@osoft 6\MSO9.DLL#  9.0 Ob LibrXaryCDThisWorkb@ookGTDhcsWrPkbo2 HB1t'B,!I#"B +BBArk5HG@AA 542f4444'Sheet2GMS@Uet2@G2NP]11117 3CommonTasksG@EmmnTasmFs2#DyFv! FbrU~~~~w    dblNumberX4Swaps between calculating formulaes and showing themj 14 dblFahrenheit dblCelsiusdatDatebytTruncFormatbytShortLongFormatstrWeek intWhatDaylngDaysToAddToWeek__SRP_0+__SRP_1PROJECTwmPROJECTcooter q  qk  q (* EW# FI{I>~DF WorksheetXBGayc`Ω:G:D]HHD"wYpE3H &3hLM9D(:fi )Q! I y ! Q y ! I y intYearstrAdrRClngAdrFirstRowintAdrFirstCol lngAdrLastRow intAdrLastColstrYearYrbolInclSaturdaysbolInclSundaysstrDescr datStartDate datEndDate 9 rngArealngColstrTyperngCelldblCell rngCellRow bolSortOrder strNumber 9ISaveAsUICancel 9A(Wn 98J!@0ThisWorkbookThisWorkbookArk4Ark4Ark5Ark5Sheet1Sheet1Sheet2Sheet2CommonTasksCommonTasksles\Microsoft Office\Office\MSO9.DLLID="{8808CAA4-CA2E-47F2-A074-82856E15E2F7}" Document=ThisWorkbook/&H00000000 Document=Ark4/&H00000000 Document=Ark5/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Module=CommonTasks Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="6062834187418741874187" DPB="C0C223A424A424A4" GC="2022C304C404C4FB" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=264, 0, 987, 581, Ark4=0, 0, 0, 0, C Ark5=0, 0, 0, 0, C Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C CommonTasks=88, 88, 1220, 637, Z EasterDateC EasterDateOh+'0HPhx SummaryInformation(DocumentSummaryInformation8 CompObjeNikolai SandvedNikolaiMicrosoft Excel@C}H@П @D2 q՜.+,D՜.+,4 PXh px ICA ABO  Calendar (English)Kalender (Norsk) User GuideVersion'Kalender (Norsk)'!February'Kalender (Norsk)'!January%'Calendar (English)'!UtskrK*srU~~~~~~~~~~~~~~~~~~~~~~~~ TiC41Dxu a i  a ia i)a iAa iYa  p*!Q!9i )Q! I y ! Q y ! I y ) Q q q19!) VBAProject ThisWorkbookArk5Ark4Sheet2Sheet1 CommonTasksF /C:\PROGRA~1\FELLES~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  !0F 3C:\Programfiler\Microsoft Office\Office10\EXCEL.EXEExcel !@0F C:\WINNT\System32\STDOLE2.TLBstdole  PL-[DR 1C:\Program Files\Microsoft Office\Office\MSO9.DLLOffice y` GoldenRatio #AllCursorsInAllSheetsOnSamePositionConvertToNumberDownFooterOnPrintoutHeaderOnPrintoutMidstill_i_merket_omrde FormaterDatoFormaterDatoYYYYMMDDRootOfXSwapDisplayFormulasCelsius Fahrenheit DateToWeek WeekToDateWeekNext bIsLeapYear AdrCoordinatAdrCoordinatFirstRowAdrCoordinatLastRowAdrCoordinatFirstColAdrCoordinatLastColEasterDateLNFAQEasterDateCpearson EasterDateC EasterDateNMMEasterDateSundayNorskHelligdagDescNorskHelligdagSantNorskHelligdagEasterDateCalendarFAQEasterDateUSNOSlettNavnMedUgyldigReferanseintNumberOf0229intNumberOf0229inkl DateAdvent ResizeWindow colorCountFFNoteShowRankStatistical ShowFormula ControlDigit ControlNumber  0 01 52 53  - W Error code:fĤIx8< *Further Description: VBE6.DLL q( q) q h^F%`p qj q!  q ( q` H q h qS FgIO^tFA#/LDFWorkbookWorkbook_BeforeSave Workbook_OpenWorkbook_WindowResizeF @FFF A1NameFVisible SelectPageSetupOrientation &6 &"Arial,Normal" \&F - &A (&P/&N) ... Created by  Author Value  on  Creation Date yyyy-mm-dd HH:MM Last Saved by  Last Author Last Save TimeLeftFooterRightF     iftsomrde#'Kalender (Norsk)'!Utskriftsomrde'User Guide'!UtskriftsomrdeVersion!Utskriftsomrde  RegnearkNavngitte omrderh  8@ _PID_HLINKSA lZH 2http://www.ozgrid.com/Excel/ExcelDateandTimes.htmk. +http://www.probabilityof.com/ISO8601.shtml 8http://www.computerbooksonline.com/program/1032chap.htmE29E11'!Khttp://dmoz.org/Science/Reference/Standards/Individual_Standards/ISO_8601/sAhttp://serendipity.magnet.ch/hermetic/cal_stud/palmen/lweek1.htm] *http://www.smart.net/~mmontes/ec-cal.htmldw,http://astro.nmsu.edu/~lhuber/leaphist.htmlV-http://www.tondering.dk/claus/cal/node3.htmlSECTION003120000000000000000-http://aa.usno.navy.mil/faq/docs/easter.html[Ehttp://www.cs.rutgers.edu/pub/soc.religion.christian/faq/easter-date&-http://www.ortelius.de/kalender/east_en.html E)http://www.probabilityof.com/excel.shtmlZimailto:nsaa@probabilityof.comTM&http://www.pvv.org/~nsaa/ISO8601.html2&$http://www.pvv.org/~nsaa/excel.html1mailto:nsaa@pvv.org1mailto:nsaa@pvv.org1mailto:nsaa@pvv.org FMicrosoft Excel-regnearkBiff8Excel.Sheet.89q