Esta página está en sus inicios. La iré completando regularmente. Si buscas una fórmula, envíame un mensaje. Y si tienes fórmulas inéditas, gracias por compartirlas: también pueden ser útiles para otras personas.
- ENT(x): parte entera de x. ex:
ENT(12,4)=12 - x MOD y: resto de la división de x entre y. ex:
17 MOD 3 = 2
| Índice | Fórmula |
|---|---|
| CG_JJ | Conversión de una fecha del calendario gregoriano a día juliano J = día M = meses A = año 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 | Número de días entre dos fechas del calendario gregoriano para cada una de las dos fechas, calcular el valor Resultado y hacer la diferencia entre ambos valores. J= día M = meses A = año b = 365 * A c = 31 * (M - 1) si M = 1 o M = 2 hacer d = 0 e = ENT ((A - 1)/4) h = ENT (0,75 * (ENT ((A - 1) / 100) + 1 )) si M 1 y M 2 hacer d = ENT(0,4 * M + 2,3) e= ENT (A/4) h = ENT (0,75 * (ENT (A/100) + 1 )) Resultado = J + b + c - d + e - h |
| CJ_JJ | Conversión de una fecha del calendario juliano a día juliano J = día M = meses A = año si meses si A JJ = ENT(365,25 * A - 0,75) + ENT(30,6001 * (M + 1)) + J + 1720994,5 si A>= 0 => JJ = ENT(365,25 * A) + ENT(30,6001 * (M + 1)) + J + 1720994,5 |
| CR | Reglas de construcción de los números romanos.
Las letras utilizadas para construir los números (y fechas) romanos son (siempre en mayúsculas):
I = 1; V = 5; X = 10; L = 50; C = 100; M = 1 000.
Una letra con barra superior ve su valor multiplicado por 1 000. Así, <img src="/m/saga-calendarios/estudios-tematicos/las-formulas-de-calculo/vii_955_1.png«srcset=»/m/saga-calendarios/estudios-tematicos/las-formulas-de-calculo/vii_955_1.png 1x,
/m/saga-calendarios/estudios-tematicos/las-formulas-de-calculo/vii_955_3.png 1x«alt=»«class=»o-pic__img o-pic__img--ld o-pic__img--natural o-pic__img--inline"/> vale 7 000. Los números se leen de izquierda a derecha en valores decrecientes: MCLII = 1000 + 100 + 50 + 2
Las letras pueden repetirse salvo V, L y D.
Si una letra tuviera que repetirse más de cuatro veces, conviene usar esa letra seguida de la letra
«superior»: ej. IV (uno restado de 5) en lugar de IIII (aunque en el romano antiguo aparece IIII)
Para los millares, la letra M se repite tantas veces como sea necesario. Ejemplo: MMMMM = 5000.
Solo los múltiplos y submúltiplos de diez pueden servir como «sustractor»: I, X, C, etc. VL para 45 es falso. IX para 9 es
correcto.
El «sustractor» no puede duplicarse. VIII para 8 es correcto; IIX para 8 es falso porque I está duplicada.
No se puede restar una letra de otra letra mayor que la primera en más de una décima parte de su valor.
En otras palabras, una letra solo puede restarse de su «siguiente» en el orden de las letras: I de V, V de X, X de L... MIM
para 1999 es, por tanto, falso
|
| CS | Ciclo solar. También aparece en el Calendario de Correos A = año S = ((A + 8) MOD 28) + 1 |
| EG | Epacta gregoriana. También figura en el Calendario de Correos A = año C = dos primeras cifras del año Eg = (11 * (A mod 19) + 8 - C + ENT(C / 4) + ENT((8 * C + 13) / 25)) MOD 30 Si Eg = 25 y N>11, Eg = 25 (en negrita) |
| EJ | Epacta juliana Ej = (N + 10(N-1)) MOD 30 ; N = Número áureo (ver NO) |
| FETES | P = fecha de Pascua ASCENSIÓN = P + 39 días PENTECOSTÉS = P + 49 días |
| JJ_CG | Conversión del día juliano en fecha del calendario gregoriano JJ = parte entera del día juliano 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) Resultados : día = e - ENT(((153 * m) + 2) / 5) meses = m + 3 - 12 * ENT(m / 10) año = (100 * b) - 4800 + ENT(m / 10) + d |
| JJ_CJ | Conversión del día juliano en fecha del calendario juliano JJ = parte entera del día juliano 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) Resultados : día = e - ENT((153 * m) + 2 / 5) meses = m + 3 - 12 * ENT(m / 10) año = 100 * b - 4800 + ENT(m / 10) + d |
| LDG | Letra dominical en el calendario gregoriano. También figura en el Calendario de Correos C = dos primeras cifras del año U = dos últimas cifras del año Lg = ((2C - U - ENT(U /4) - ENT(C/4)) MOD 7) + 1 resultado : 1=A ; 2=B... |
| LDJ | Letra dominical en el calendario juliano. S = ciclo solar del año (ver CS) Lj = ((6 - S - (ENT(S - 1) / 4)) MOD 7) + 1 resultado : 1=A ; 2 =B.... |
| NO | Número áureo. También figura en el Calendario de Correos A = año N= (A MOD 19) + 1 |
| PQ1 | Fecha de Pascua a partir de la epacta gregoriana y de la letra dominical gregoriana E = epacte (ver EG) L = letra dominical (ver EG) si E = 24 y L = 4 => E = -5 si E = 25 y L = 3 => E = -4 si E > 23 => E = E - 30 P = 45 - E + ((E + L + 1) MOD 7) |
| PQ2 | Fecha de Pascua en el calendario juliano.
Se procede mediante divisiones sucesivas, conservando el resto y, eventualmente, el cociente.
A= año
Resultados: n = mes (3 = marzo; 4 = abril)
Quantième del meses de la Fecha de Pascua = p +1
|
| PQ3 | Fecha de Pascua en el calendario gregoriano (a partir de 1583).
Se procede mediante divisiones sucesivas, conservando el resto y, eventualmente, el cociente.
A= año
Resultados: n = mes (3 = marzo; 4 = abril)
Quantième del meses de la Fecha de Pascua = p +1
|
| HMS1 | Conversión de horas, minutos y segundos en horas decimales H = horas M = minutes S = secondes a = S / 60 b = (M + a) / 60 HD = H + b |
| HMS2 | Conversión de horas decimales en horas, minutos y segundos HD = hora decimal a = (parte decimal de HD * 60) minutos = parte entera de a b = (parte decimal de a * 60) segundos = parte entera de b horas = parte entera de HD |
| JSEM1 | Encontrar el día de la semana a partir de una fecha Sea la fecha J/M/SD (S= dos primeras cifras del año - D dos últimas cifras del año) El día de la semana JSEM será = J + 3M - ENT(3M/10) + 5S + ENT(S/4) + D + ENT(D/4) + C C=3 para enero y febrero si el año es bisiesto C=4 para enero y febrero si el año no es bisiesto C = 2 para abril C=0 para diciembre C=1 en todos los otros casos Tomar el resto de JSEM/7 El resultado es: sábado = 0; domingo = 1; lunes = 2... Fuente: diccionario de matemáticas recreativas |
| JSEM2 | Encontrar el día de la semana a partir de un día juliano (a las 00 h UT) Añadir 1,5 al JJ Dividir entre 7 El resultado es: sábado = 0; domingo = 1; lunes = 2... |
| OL_J | Encontrar el año juliano a partir de la olimpiada Sea n el número de la olimpiada, p la cifra adicional (1.º, 2.º, 3.º, 4.º año de la n-ésima olimpiada) Período a. C.: año juliano = 776 - ((n - 1) X 4 + (p - 1)) Período d. C.: año juliano = (n - 1) X 4 + p - 776 |
| J_OL | Encontrar la olimpiada y la cifra adicional a partir del año juliano Sea n el número de las olimpiadas, p la cifra adicional (1.º, 2.º, 3.º, 4.º año de la n-ésima olimpiada) A=año juliano Período a. C. : Si la parte decimal de (776-A)/4 = 0, p=1, n=(ENT(776 - A)/4)) +1 Si la parte decimal de (776-A)/4 = 25, p=2, n=(ENT(776 - A)/4)) +1 Si la parte decimal de (776-A)/4 = 50, p=3, n=(ENT(776 - A)/4)) +1 Si la parte decimal de (776-A)/4 = 75, p=4, n=(ENT(776 - A)/4)) +1 Período d. C. : Si la parte decimal de (776+A)/4 = 25, p=1, n=(ENT(776 +A)/4)) +1 Si la parte decimal de (776+A)/4 = 50, p=2, n=(ENT(776 +A)/4)) +1 Si la parte decimal de (776+A)/4 = 75, p=3, n=(ENT(776 +A)/4)) +1 Si la parte decimal de (776+A)/4 = 00, p=4, n=(ENT(776 +A)/4) ) |
| FÓRMULAS EXCEL | |
| EXC_AT | duración del año trópico para un día juliano dado. día juliano en B1 En B4 : =(B1-2451545)/365250 En 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) = duración del año trópico. |
| EXC_CS | Ciclo solar en los calendarios juliano y gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =MOD(ANNEE+8;28)+1 |
| EXC_EG | Epacta en el calendario gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =SI(y(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 | Epacta en el calendario juliano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =MOD(11*MOD(ANNEE;19)+8;30) |
| EXC_IR | Indicción romana en los calendarios juliano y gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =MOD(ANNEE+2;15)+1 |
| EXC_LDG | Letra dominical en el calendario gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =SI(ENT(365,25*(ANNEE))+SI((ANNEE+1) |
| EXC_LDJ | Letra dominical en el calendario juliano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =SI(MOD(ANNEE;4)=0;ELEGIR(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");"")&ELEGIR(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 | Número áureo en los calendarios juliano y gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =MOD(ANNEE;19)+1 |
| EXC_PQ1CTRLG | Control del año para la fecha de Pascua en el calendario gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =SI(año |
| EXC_PQ1JG | Día de la fecha de Pascua en el calendario gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =MOD(MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)+ MOD(32+2*MOD(ENT(año/100);4)+2*ENT(MOD(año;100)/4) -MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)-MOD(MOD(año;100);4);7)-7 * ENT((MOD(año;19)+11*MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2*MOD(ENT(año/100);4)+2*ENT(MOD(año;100)/4) -MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)-MOD(MOD(año;100);4);7))/451)+114;31)+1 |
| EXC_PQ1JJ | Día de la fecha de Pascua solar en el calendario juliano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =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 | Mes de la fecha de Pascua en el calendario gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =ENT((MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)+ MOD(32+2*MOD(ENT(año/100);4)+2*ENT(MOD(año;100)/4) -MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)-MOD(MOD(año;100);4);7)-7 * ENT((MOD(año;19)+11*MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)+22* MOD(32+2*MOD(ENT(año/100);4)+2*ENT(MOD(año;100)/4) -MOD(19*MOD(año;19)+ENT(año/100)-ENT(ENT(año/100)/4)-ENT((ENT(año/100) -ENT((ENT(año/100)+8)/25)+1)/3)+15;30)-MOD(MOD(año;100);4);7))/451)+114)/31) |
| EXC_PQ1MJ | Mes de la fecha de Pascua en el calendario juliano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =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 | Fecha de Pascua año en A1 en otra celda (con formato de fecha) : =ARRONDI(fecha(A1;4;MOD(234-11*MOD(A1;19);30))/7;)*7-6 |
| EXC_SJJ | Día de la semana a partir del día juliano. Gracias a Daniel LACROZE-MARTY Nombrar JJ la celda que contiene el día juliano =ELEGIR(MOD(JJ+1,5;7)+1;"domingo";"lunes";"martes";"miércoles";"jueves";"viernes";"sábado") |
| EXC_NBJJ | Número de días del año para el calendario juliano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =SI(MOD(ANNEE ;4)=0 ;366 ;365) |
| EXC_NBJG | Número de días del año para el calendario gregoriano. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año =SI(MOD(ANNEE ;400)=0 ;366 ;SI(MOD(ANNEE ;100)=0 ;365 ;SI(MOD(ANNEE ;4)=0 ;366 ;365))) |
| EXC_DTJJ | Obtener la fecha a partir del día juliano. Gracias a Daniel LACROZE-MARTY Nombrar JJ la celda que contiene el día juliano. Nombrar otras celdas: día, mes, ANNEE, horas, MINUTES y SECONDES. en la celda día: =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)) en la celda mes : =SI(ENT((SI(ENT(JJ+0,5) en la celda ANNEE: =SI(meses>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) en la celda horas : =ENT((JJ+0,5-ENT(JJ+0,5))*24) en la celda MINUTES : =ENT((JJ+0,5-ENT(JJ+0,5))*1440-ENT(horas*60)) en la celda SECONDES : =(JJ+0,5-ENT(JJ+0,5))*86400-horas*3600-MINUTES*60 |
| EXC_SUNJJ | Obtener el día juliano a partir de una posición del Sol. Gracias a Daniel LACROZE-MARTY Nombrar ANNEE la celda que contiene el año y POSITION la que contiene la posición del Sol (en grados decimales de 0 a 360). Nombrar otras celdas: JJ1, T1, M1, JJ2, T2, M2, JJ3, T3, M3, JJ4, T4, M4, JJ5, T5, M5 y JJ. para obtenir Los solstices y équinoxes, POSITION prendre por lo tanto Los valeurs 0, 90,180 o 270 en la celda JJ1 : =(ANNEE+POSITION/360)*365,2422+1721141,3 en la celda T1 : =(JJ1-2415020)/36525 en la celda M1 : =6,256583522+628,301945727*T1-0,000002618*T1*T1-0,000000058*T1*T1*T1 en la celda 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))) en la celda T2 : =(JJ2-2415020)/36525 en la celda M2 : =6,256583522+628,301945727*T2-0,000002618*T2*T2-0,000000058*T2*T2*T2 en la celda 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))) en la celda T3 : =(JJ3-2415020)/36525 en la celda M3 : =6,256583522+628,301945727*T3-0,000002618*T3*T3-0,000000058*T3*T3*T3 en la celda 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))) en la celda T4 : =(JJ4-2415020)/36525 en la celda M4 : =6,256583522+628,301945727*T4-0,000002618*T4*T4-0,000000058*T4*T4*T4 en la celda 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))) en la celda T5 : =(JJ5-2415020)/36525 en la celda M5 : =6,256583522+628,301945727*T5-0,000002618*T5*T5-0,000000058*T5*T5*T5 en la celda JJ (resultado... ¡uf!) : =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 | Cálculo del día juliano a partir de fecha y hora (juliano o gregoriano). Gracias a Daniel LACROZE-MARTY Nombrar día, mes, ANNEE, horas, MINUTES y SECONDES las celdas que recibirán los datos correspondientes. día juliano (0 h) : =ENT(365,25*SI(meses +13;meses+1)))+día+1720994,5+SI(año*10000+meses*100+día 0;2-ENT(SI(meses día juliano (h mn s) : =ENT(365,25*SI(meses +13;meses+1)))+día+horas/24+MINUTES/1440+SECONDES/86400 +1720994,5 +SI(año*10000+meses*100+día |
| XC_NUMJ_JG | Cálculo del número de día del año a partir de una fecha (juliana o gregoriana). Gracias a Nicolas DELONG Nombrar día, mes y ANNEE las celdas que recibirán los datos correspondientes. Número del día =ENT(275*meses/9)-SI(SI(ANNEE0;MOD(ANNEE;400)=0)));1;2)*ENT((meses+9)/12)+día-30 |
| XC_GREC_BIS | Cálculo de los años bisiestos en el
calendario griego moderno
que no sigue las reglas gregorianas. Gracias de nuevo a Daniel LACROZE-MARTY Nombrar día, mes y ANNEE las celdas que recibirán los datos correspondientes. Nombrar ANNEE la celda que contiene el año griego. Poner, en otra celda, la fórmula =SI(o(MOD(ANNEE;900)=200;MOD(ANNEE;900)=600);366;SI(MOD(ANNEE;100)=0;365;SI(MOD(ANNEE;4)=0;366;365))) que dará el número de días de ese año. |
| XC_NL | Otra serie de fórmulas debidas a Daniel LACROZE-MARTY. vale su peso en oro por lo poco frecuente que es. Permite obtener el día juliano de la luna nueva más próxima de una fecha gregoriana dada. Combinada con EXC_DTJJ, convierte ese día juliano en fecha del calendario gregoriano. merece de sobra que nos tomemos la molestia de nombrar algunas celdas. Chapó, Daniel. Nombrar respectivamente día, mes, ANNEE las celdas que contendrán la fecha para la que se quiere conocer la fecha de luna nueva más próxima Nombrar otras celdas: NLJJa, NLk, NLT, NLJJm, NLM, NLM1, NLF y JJ. JJ mostrará el día juliano de la luna nueva más próxima a nuestra fecha inicial. estas distintas celdas nombradas contendrán respectivamente las fórmulas siguientes: Fórmula en la celda llamada NLJJa: =ENT(275*meses/9)-SI(o(y(ANNEE1582;ANNEE/4-ENT(ANNEE/4)=0;ANNEE/400-ENT(ANNEE/400)0));1;2)*ENT((meses+9)/12)+día-30 Fórmula en la celda llamada NLk: =ARRONDI((ANNEE+NLJJa/365,25-1900)*12,3685;0) Fórmula en la celda llamada NLT: =NLk/1236,85 Fórmula en la celda llamada 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) Fórmula en la celda llamada NLM: =6,26964504+0,50798429*NLk-0,0000005812*NLT*NLT -0,0000000606*NLT*NLT*NLT Fórmula en la celda llamada NLM1: =5,34114908+6,73377553*NLk+0,00018728*NLT*NLT+0,0000002157*NLT*NLT*NLT Fórmula en la celda llamada NLF: =0,3716923+6,81848663*NLk-0,000028847*NLT*NLT-0,00000004171*NLT*NLT*NLT Fórmula en la celda llamada 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) para obtener la fecha de la luna llena en lugar de la luna nueva, sumar 0,5 a NLk |
| XC_SUNLC | horas de salida y puesta del sol para un día determinado 1) Comenzar copiando y pegando en un módulo VBA las funciones que se encuentran ici Recordatorio del procedimiento: copiar todas las fórmulas de una vez. En Excel, abre el editor de VB con el atajo Alt+F11 en el menú INSERTAR del editor, hacer clic en MÓDULO Pegar las funciones en ese módulo Volver a la hoja de Excel 2) en tres celdas, introducir el día, el mes y el año (ej.: 10 en A1; 07 en A2; 2005 en A3) en otras dos celdas, introducir la longitud y la latitud del lugar. Las longitudes oeste son negativas; las cifras son valores decimales de grados y minutos. Por ejemplo, para París, poner en B1 el valor 48,87 (latitud 48°52) y en B2 el valor 2,33 (longitud 2°20 E). 3) en otra celda (D1, por ejemplo), llamar a la función personalizada LEVER y apuntar a las celdas correctas de las distintas variables solicitadas. En nuestro ejemplo, dará: =lever(B1;B2;A1;A2;A3) Poner la celda D1 con formato de hora tipo 13:30 4) hacer lo mismo que en 3) para la función COUCHER en otra celda. La fórmula de la celda será, por tanto =coucher(B1;B2;A1;A2;A3) |
