Beregningsformler

Denne side er stadig under opbygning. Jeg udvider den løbende. Hvis du leder efter en formel, så send mig en besked. Og hvis du har originale formler, må du meget gerne dele dem. De kan være nyttige for andre.

Index Formel
CG_JJ Konvertering af en gregoriansk kalenderdato til en juliansk dag

J = dag
M = måned
A = år
JJ = 367 * A - ENT(1,75 * (ENT((M + 9) / 12) + A )) + ENT(275 * M / 9) - ENT(0,75 * (1 + ENT(0,01 * (ENT((M - 9) / 7) + A)))) + J + 1721028,5
CG_NBJ Antal dage mellem to datoer i den gregorianske kalender

Beregn værdien Resultat for hver af de to datoer, og træk den ene fra den anden.

J = dag
M = måned
A = år
b = 365 * A
c = 31 * (M - 1)
hvis M = 1 eller M = 2 så
d = 0
e = ENT ((A - 1)/4)
h = ENT (0,75 * (ENT ((A - 1) / 100) + 1 ))
hvis M hverken er 1 eller 2 så
d = ENT(0,4 * M + 2,3)
e= ENT (A/4)
h = ENT (0,75 * (ENT (A/100) + 1 ))
Resultat = J + b + c - d + e - h
CJ_JJ Konvertering af en juliansk kalenderdato til en juliansk dag

J = dag
M = måned
A = år
hvis måned hvis A så JJ = ENT(365,25 * A - 0,75) + ENT(30,6001 * (M + 1)) + J + 1720994,5
hvis A>= 0 => JJ = ENT(365,25 * A) + ENT(30,6001 * (M + 1)) + J + 1720994,5
CR Regler for opbygning af romertal. De bogstaver, der bruges til romertal (og datoer), er (altid med store bogstaver): I = 1; V = 5; X = 10; L = 50; C = 100; M = 1 000. Et bogstav med en streg over får sin værdi ganget med 1.000. Dermed har <img src="/m/kalender-saga/tematiske-studier/beregningsformlerne/vii_815_1.png„srcset=“/m/kalender-saga/tematiske-studier/beregningsformlerne/vii_815_1.png 1x,

/m/kalender-saga/tematiske-studier/beregningsformlerne/vii_815_3.png 1x„alt=“„class=“o-pic__img o-pic__img--ld o-pic__img--natural o-pic__img--inline"/> værdien 7.000

Tallene læses fra venstre mod højre i faldende værdier: MCLII = 1000 + 100 + 50 + 2 Bogstaver kan gentages, undtagen V, L og D Hvis et bogstav ellers skulle gentages mere end fire gange, bruges i stedet næste „højere“ bogstav: fx IV (én trukket fra 5) i stedet for IIII (selv om IIII findes i antik romersk notation) For tusinder gentages bogstavet M så mange gange som nødvendigt. Eksempel: MMMMM = 5000. Kun multipla og submultipla af ti kan bruges som „subtrahenter“: I, X, C osv. VL for 45 er forkert. IX for 9 er korrekt. „Subtrahenten“ må ikke fordobles. VIII for 8 er korrekt; IIX for 8 er forkert, fordi I er fordoblet. Et bogstav kan ikke trækkes fra et andet bogstav, hvis værdien er mere end ti gange større. Med andre ord kan et bogstav kun trækkes fra det næste i rækken: I fra V, V fra X, X fra L ... MIM for 1999 er derfor forkert
CS Solcyklus. Står også i postkalenderen

A = år
S = ((A + 8) MOD 28) + 1
EG Gregoriansk epakt. Står også i postkalenderen

A = år
C = årets første to cifre
Eg = (11 * (A mod 19) + 8 - C + ENT(C / 4) + ENT((8 * C + 13) / 25)) MOD 30
Hvis Eg = 25 og N>11, så Eg = 25 (med fed)
EJ Juliansk epakt

Ej = (N + 10(N-1)) MOD 30 ; N = gyldental (se NO)
FETES P = PÅSKEDATO
KRISTI HIMMELFART = P + 39 dage
PINSE = P + 49 dage
JJ_CG Konvertering af en juliansk dag til en gregoriansk kalenderdato

JJ = heltalsdelen af den julianske dag
a = JJ + 32045
b= ENT(4 * (a + 36524) / 146097) - 1
c = a - ENT(146097 * b / 4)
d = ENT(4 * (c + 365) / 1461) - 1
e = c - ENT(1461 * d / 4)
m = ENT((5 * (e - 1) + 2) / 153)

Resultater:
dag = e - ENT(((153 * m) + 2) / 5)
måned = m + 3 - 12 * ENT(m / 10)
år = (100 * b) - 4800 + ENT(m / 10) + d
JJ_CJ Konvertering af en juliansk dag til en juliansk kalenderdato

JJ = heltalsdelen af den julianske dag
b = 0
c = JJ + 32083
d = ENT(4 * (c + 365) / 1461) - 1
e = c - ENT(1461 * d / 4)
m = ENT((5 * (e - 1) + 2) / 153)

Resultater:
dag = e - ENT((153 * m) + 2 / 5)
måned = m + 3 - 12 * ENT(m / 10)
år = 100 * b - 4800 + ENT(m / 10) + d
LDG Søndagsbogstav i den gregorianske kalender. Står også i postkalenderen

C = årets første to cifre
U = årets sidste to cifre
Lg = ((2C - U - ENT(U /4) - ENT(C/4)) MOD 7) + 1

resultat: 1=A ; 2=B...
LDJ Søndagsbogstav i den julianske kalender.

S = årets solcyklus (se CS)
Lj = ((6 - S - (ENT(S - 1) / 4)) MOD 7) + 1

resultat: 1=A ; 2=B....
NO Gyldental. Står også i postkalenderen

A = år
N= (A MOD 19) + 1
PQ1 Påskedato ud fra gregoriansk epakt og gregoriansk søndagsbogstav

E = epakt (se EG)
L = søndagsbogstav (se EG)
hvis E = 24 og L = 4 => E = -5
hvis E = 25 og L = 3 => E = -4
hvis E > 23 => E = E - 30
P = 45 - E + ((E + L + 1) MOD 7)
PQ2 Påskedato i den julianske kalender. Man laver successive divisioner og beholder resten og eventuelt kvotienten. A = år
Resultater: n = måned (3 = marts; 4 = april) Dagnummer i måneden for påskedatoen = p + 1
PQ3 Påskedato i den gregorianske kalender (fra 1583). Man laver successive divisioner og beholder resten og eventuelt kvotienten. A = år
Resultater: n = måned (3 = marts; 4 = april) Dagnummer i måneden for påskedatoen = p + 1
HMS1 Konvertering af timer, minutter og sekunder til decimaltimer

H = timer
M = minutter
S = sekunder
a = S / 60
b = (M + a) / 60
HD = H + b
HMS2 Konvertering af decimaltimer til timer, minutter og sekunder

HD = decimaltime
a = (decimeldelen af HD * 60)
minutter = heltalsdelen af a
b = (decimeldelen af a * 60)
sekunder = heltalsdelen af b
timer = heltalsdelen af HD
JSEM1 Find ugedag ud fra en dato

Lad datoen være J/M/SD (S = årets første to cifre, D = de sidste to cifre)
Ugedagsværdien JSEM er = J + 3M - ENT(3M/10) + 5S + ENT(S/4) + D + ENT(D/4) + C
C=3 for januar og februar, hvis året er skudår
C=4 for januar og februar, hvis året ikke er skudår
C=2 for april
C=0 for december
C=1 i alle andre tilfælde
Tag resten af JSEM/7
Resultat: lørdag = 0 ; søndag = 1 ; mandag = 2...

Kilde: ordbog over rekreativ matematik
JSEM2 Find ugedag ud fra en juliansk dag (kl. 00:00 UT)

Læg 1,5 til JJ
Divider med 7
Resultat: lørdag = 0 ; søndag = 1 ; mandag = 2...
OL_J Find det julianske år ud fra olympiaden

Lad n være olympiadens nummer, og p være tillægsindekset (1., 2., 3. eller 4. år i den n’te olympiade)

f.Kr.-periode: juliansk år = 776 - ((n - 1) X 4 + (p - 1))
e.Kr.-periode: juliansk år = (n - 1) X 4 + p - 776
J_OL Find olympiaden og tillægsindekset ud fra det julianske år

Lad n være antallet af olympiader, og p tillægsindekset (1., 2., 3. eller 4. år i den n’te olympiade)
A = juliansk år

f.Kr.-periode:
Hvis decimeldelen af (776-A)/4 = 0, p=1, n=(ENT(776 - A)/4)) +1
Hvis decimeldelen af (776-A)/4 = 25, p=2, n=(ENT(776 - A)/4)) +1
Hvis decimeldelen af (776-A)/4 = 50, p=3, n=(ENT(776 - A)/4)) +1
Hvis decimeldelen af (776-A)/4 = 75, p=4, n=(ENT(776 - A)/4)) +1

e.Kr.-periode:
Hvis decimeldelen af (776+A)/4 = 25, p=1, n=(ENT(776 +A)/4)) +1
Hvis decimeldelen af (776+A)/4 = 50, p=2, n=(ENT(776 +A)/4)) +1
Hvis decimeldelen af (776+A)/4 = 75, p=3, n=(ENT(776 +A)/4)) +1
Hvis decimeldelen af (776+A)/4 = 00, p=4, n=(ENT(776 +A)/4) )
EXCEL-FORMLER
EXC_AT Længden af det tropiske år for en given juliansk dag.

Juliansk dag i B1

I B4: =(B1-2451545)/365250

I B3: =365,2421905166-61,5607*(10^-6)*B4-68,4*(10^-9)*(B4^2)+263*(10^-9)*(B4^3)+3,2*(10^-9)*(B4^4) = længde af tropisk år.
EXC_CS Solcyklus i den julianske og gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=MOD(ANNEE+8;28)+1
EXC_EG Epakt i den gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=SI(ET(MOD(11*MOD(ANNEE;19)+ 8-ENT(ANNEE/100)+ENT(ENT(ANNEE/100)/4)+ENT((8*ENT(ANNEE/100)+13)/25);30)=25;MOD(ANNEE;19)+1>11);"XXV"; MOD(11*MOD(ANNEE;19)+ 8-ENT(ANNEE/100)+ENT(ENT(ANNEE/100)/4)+ENT((8*ENT(ANNEE/100)+13)/25);30))
EXC_EJ Epakt i den julianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=MOD(11*MOD(ANNEE;19)+8;30)
EXC_IR Romersk indiktion i den julianske og gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=MOD(ANNEE+2;15)+1
EXC_LDG Søndagsbogstav i den gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=SI(ENT(365,25*(ANNEE))+SI((ANNEE+1)
EXC_LDJ Søndagsbogstav i den julianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=SI(MOD(ANNEE;4)=0;CHOISIR(MOD(ENT(ANNEE/100)+2-(ANNEE-ENT(ANNEE/100)*100)-ENT((ANNEE -ENT(ANNEE/100)*100)/4);7)+1;"B";"C";"D";"E";"F";"G";"A");"")&CHOISIR(MOD(ENT(ANNEE/100)+2-(ANNEE -ENT(ANNEE/100)*100)-ENT((ANNEE-ENT(ANNEE/100)*100)/4);7)+1;"A";"B";"C";"D";"E";"F";"G")
EXC_NO Gyldental i den julianske og gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=MOD(ANNEE;19)+1
EXC_PQ1CTRLG Årskontrol for påskedatoen i den gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=SI(ANNÉE
EXC_PQ1JG Dagen for påskedatoen i den gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=MOD(MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+ MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7)-7 * ENT((MOD(ANNÉE;19)+11*MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7))/451)+114;31)+1
EXC_PQ1JJ Dagen for den solare påskedato i den julianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=MOD(MOD(19*MOD(ANNEE;19)+15;30)+MOD(2*MOD(ANNEE;4)+4*MOD(ANNEE;7) -MOD(19*MOD(ANNEE;19)+15;30)+34;7)+114;31)+1
EXC_PQ1MG Måneden for påskedatoen i den gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=ENT((MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+ MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7)-7 * ENT((MOD(ANNÉE;19)+11*MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2*MOD(ENT(ANNÉE/100);4)+2*ENT(MOD(ANNÉE;100)/4) -MOD(19*MOD(ANNÉE;19)+ENT(ANNÉE/100)-ENT(ENT(ANNÉE/100)/4)-ENT((ENT(ANNÉE/100) -ENT((ENT(ANNÉE/100)+8)/25)+1)/3)+15;30)-MOD(MOD(ANNÉE;100);4);7))/451)+114)/31)
EXC_PQ1MJ Måneden for påskedatoen i den julianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=ENT((MOD(19*MOD(ANNEE;19)+15;30)+MOD(2*MOD(ANNEE;4)+4*MOD(ANNEE;7) -MOD(19*MOD(ANNEE;19)+15;30)+34;7)+114)/31)
EXC_PQ2 Påskedato

År i A1
I en anden celle (datoformat) : =ARRONDI(DATE(A1;4;MOD(234-11*MOD(A1;19);30))/7;)*7-6
EXC_SJJ Ugedag ud fra en juliansk dag. Tak til Daniel LACROZE-MARTY
Navngiv cellen med den julianske dag som JJ

=CHOISIR(MOD(JJ+1,5;7)+1;"søndag";"mandag";"tirsdag";"onsdag";"torsdag";"fredag";"lørdag")
EXC_NBJJ Antal dage i året for den julianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=SI(MOD(ANNEE ;4)=0 ;366 ;365)
EXC_NBJG Antal dage i året for den gregorianske kalender. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE

=SI(MOD(ANNEE ;400)=0 ;366 ;SI(MOD(ANNEE ;100)=0 ;365 ;SI(MOD(ANNEE ;4)=0 ;366 ;365)))
EXC_DTJJ Hent datoen ud fra en juliansk dag. Tak til Daniel LACROZE-MARTY
Navngiv cellen med den julianske dag som JJ. Navngiv andre celler JOUR, MOIS, ANNEE, HEURES, MINUTES, SECONDES.

I cellen JOUR: =SI(ENT(JJ+0,5) ENT(JJ+0,5)+1+ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5)-1867216,25)/36524,25)/4))+1524 -ENT(365,25*ENT((SI(ENT(JJ+0,5) ENT(JJ+0,5);ENT(JJ+0,5)+1+ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5) -1867216,25)/36524,25)/4))+1524-122,1)/365,25)))/30,6001))

I cellen MOIS: =SI(ENT((SI(ENT(JJ+0,5)

I cellen ANNEE: =SI(MOIS>2,5;ENT((SI(ENT(JJ+0,5) +ENT((ENT(JJ+0,5)-1867216,25)/36524,25)-ENT(ENT((ENT(JJ+0,5)-1867216,25)/36524,25)/4))+1524-122,1) /365,25)-4715)

I cellen HEURES: =ENT((JJ+0,5-ENT(JJ+0,5))*24)

I cellen MINUTES: =ENT((JJ+0,5-ENT(JJ+0,5))*1440-ENT(HEURES*60))

I cellen SECONDES: =(JJ+0,5-ENT(JJ+0,5))*86400-HEURES*3600-MINUTES*60
EXC_SUNJJ Hent en juliansk dag ud fra en solposition. Tak til Daniel LACROZE-MARTY
Navngiv cellen med året som ANNEE og cellen med solpositionen som POSITION (i decimalgrader fra 0 til 360). Navngiv andre celler JJ1, T1, M1, JJ2, T2, M2, JJ3, T3, M3, JJ4, T4, M4, JJ5, T5, M5, JJ.
For at få solhverv og jævndøgn sættes POSITION til 0, 90, 180 eller 270

I cellen JJ1: =(ANNEE+POSITION/360)*365,2422+1721141,3

I cellen T1: =(JJ1-2415020)/36525

I cellen M1: =6,256583522+628,301945727*T1-0,000002618*T1*T1-0,000000058*T1*T1*T1

I cellen JJ2: =JJ1+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T1
+0,00000528*T1*T1+(0,033500897-0,000083584*T1-0,000000244*T1*T1) *SIN(M1)
+(0,000350706-0,000001745*T1)*SIN(2*M1)+0,000005114*SIN(3*M1)-0,0000993092-0,000083601*SIN(4,523544355 -33,7571461*T1)))

I cellen T2: =(JJ2-2415020)/36525

I cellen M2: =6,256583522+628,301945727*T2-0,000002618*T2*T2-0,000000058*T2*T2*T2

I cellen JJ3: =JJ2+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T2
+0,00000528*T2*T2+(0,033500897-0,000083584*T2-0,000000244*T2*T2) *SIN(M2)
+(0,000350706-0,000001745*T2)*SIN(2*M2)+0,000005114*SIN(3*M2)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T2)))

I cellen T3: =(JJ3-2415020)/36525

I cellen M3: =6,256583522+628,301945727*T3-0,000002618*T3*T3-0,000000058*T3*T3*T3

I cellen JJ4: =JJ3+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T3
+0,00000528*T3*T3+(0,033500897-0,000083584*T3-0,000000244*T3*T3 )*SIN(M3)
+(0,000350706-0,000001745*T3)*SIN(2*M3)+0,000005114*SIN(3*M3)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T3)))

I cellen T4: =(JJ4-2415020)/36525

I cellen M4: =6,256583522+628,301945727*T4-0,000002618*T4*T4-0,000000058*T4*T4*T4

I cellen JJ5: =JJ4+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904 *T4
+0,00000528*T4*T4+(0,033500897-0,000083584*T4-0,000000244*T4*T4) *SIN(M4)
+(0,000350706-0,000001745*T4)*SIN(2*M4)+0,000005114*SIN(3*M4)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T4)))

I cellen T5: =(JJ5-2415020)/36525

I cellen M5: =6,256583522+628,301945727*T5-0,000002618*T5*T5-0,000000058*T5*T5*T5

I cellen JJ (resultat ... endelig!): =JJ5+58*SIN(POSITION/180*PI()-(4,88162797+628,331950904*T5 +
0,00000528*T5*T5+(0,033500897-0,000083584*T5-0,000000244*T5*T5) *SIN(M5)
+(0,000350706-0,000001745*T5)*SIN(2*M5)+0,000005114*SIN(3*M5)-0,0000993092-0,000083601 *SIN(4,523544355-33,7571461*T5)))
XC_J_JG Beregn en juliansk dag ud fra dato og tid (juliansk eller gregoriansk). Tak til Daniel LACROZE-MARTY
Navngiv cellerne, der skal modtage de tilsvarende data, som JOUR, MOIS, ANNEE, HEURES, MINUTES, SECONDES.

Juliansk dag (0 t): =ENT(365,25*SI(MOIS +13;MOIS+1)))+JOUR+1720994,5+SI(ANNÉE*10000+MOIS*100+JOUR 0;2-ENT(SI(MOIS

Juliansk dag (t min s): =ENT(365,25*SI(MOIS +13;MOIS+1)))+JOUR+HEURES/24+MINUTES/1440+SECONDES/86400 +1720994,5
+SI(ANNÉE*10000+MOIS*100+JOUR
XC_NUMJ_JG Beregn dagnummeret i året ud fra en dato (juliansk eller gregoriansk). Tak til Nicolas DELONG
Navngiv cellerne, der skal modtage de tilsvarende data, som JOUR, MOIS, ANNEE.

Dagnummer =ENT(275*MOIS/9)-SI(SI(ANNEE0;MOD(ANNEE;400)=0)));1;2)*ENT((MOIS+9)/12)+JOUR-30
XC_GREC_BIS Skudårsberegning i den moderne græske kalender som ikke følger de gregorianske regler. Endnu en gang tak til Daniel LACROZE-MARTY
Navngiv cellerne, der skal modtage de tilsvarende data, som JOUR, MOIS, ANNEE.

Navngiv cellen med det græske år som ANNEE.

Indtast formlen i en anden celle =SI(OU(MOD(ANNEE;900)=200;MOD(ANNEE;900)=600);366;SI(MOD(ANNEE;100)=0;365;SI(MOD(ANNEE;4)=0;366;365)))
som giver antallet af dage i det pågældende år.
XC_NL Endnu en serie formler fra Daniel LACROZE-MARTY.
Den er guld værd, fordi den er sjælden. Den gør det muligt at få den julianske dag for den nærmeste nymåne for en given gregoriansk dato.
Sammen med EXC_DTJJ konverterer den den julianske dag til en gregoriansk kalenderdato.
Den fortjener, at man gør sig umage med at navngive nogle celler. Hatten af for Daniel.

Navngiv cellerne med datoen som JOUR, MOIS, ANNEE for den dato, hvor du vil kende datoen for den nærmeste nymåne

Navngiv andre celler NLJJa, NLk, NLT, NLJJm, NLM, NLM1, NLF, JJ.
JJ viser den julianske dag for den nymåne, der ligger tættest på vores startdato.

Disse navngivne celler skal hver især indeholde følgende formler:

Formel i cellen med navnet NLJJa: =ENT(275*MOIS/9)-SI(OU(ET(ANNEE1582;ANNEE/4-ENT(ANNEE/4)=0;ANNEE/400-ENT(ANNEE/400)0));1;2)*ENT((MOIS+9)/12)+JOUR-30

Formel i cellen med navnet NLk: =ARRONDI((ANNEE+NLJJa/365,25-1900)*12,3685;0)

Formel i cellen med navnet NLT: =NLk/1236,85

Formel i cellen med navnet NLJJm: =2415020,75933+29,53058868*NLk+0,0001178*NLT*NLT -0,000000155*NLT*NLT*NLT+0,00033*SIN(2,9070204+2,31901898*NLT-0,0001601*NLT*NLT)

Formel i cellen med navnet NLM: =6,26964504+0,50798429*NLk-0,0000005812*NLT*NLT -0,0000000606*NLT*NLT*NLT

Formel i cellen med navnet NLM1: =5,34114908+6,73377553*NLk+0,00018728*NLT*NLT+0,0000002157*NLT*NLT*NLT

Formel i cellen med navnet NLF: =0,3716923+6,81848663*NLk-0,000028847*NLT*NLT-0,00000004171*NLT*NLT*NLT

Formel i cellen med navnet JJ: =NLJJm+0,0021*SIN(2*NLM)-0,0004*SIN(3*NLM1)-0,0004*SIN(2*NLF-NLM) - 0,0006*SIN(2*NLF+NLM1)+(0,1734-0,000393*NLT)*SIN(NLM) -0,4068*SIN(NLM1)+0,0161*SIN(2*NLM1)+0,0104*SIN(NLF*2)- 0,0051*SIN(NLM+NLM1)-0,0074*SIN(NLM -NLM1)+0,0004*SIN(2*NLF+NLM)+0,001*SIN(2*NLF-NLM1)+0,0005*SIN(NLM+2*NLM1)

For at få fuldmånedatoen i stedet for nymånedatoen, læg 0,5 til NLk
XC_SUNLC Tidspunkter for solopgang og solnedgang på en given dag

1) Start med at kopiere funktionerne ind i et VBA-modul fra here

Påmindelse om fremgangsmåden: Kopiér alle formler i én omgang.
Åbn VB-editoren i Excel med tastaturgenvejen Alt+F11
Klik på MODULE i editorens INSERT-menu
Indsæt funktionerne i dette modul
Gå tilbage til Excel-arket

2) Indtast dag, måned og år i tre celler (fx 10 i A1, 07 i A2 og 2005 i A3)
Indtast stedets længde- og breddegrad i to andre celler.
Vestlige længdegrader er negative; værdierne er decimale repræsentationer af grader og minutter.
For eksempel: Sæt 48,87 i B1 for Paris (breddegrad 48°52) og 2,33 i B2 (længdegrad 2°20 Ø)

3) Kald den brugerdefinerede funktion LEVER i en anden celle (fx D1), og peg på de korrekte celler for de nødvendige variabler. I vores eksempel giver det =lever(B1;B2;A1;A2;A3)
Sæt celle D1 til tidsformat, fx 13:30

4) Gør det samme som i punkt 3) for funktionen COUCHER i en anden celle. Formlen bliver så
=coucher(B1;B2;A1;A2;A3)