ScambioLinks, Foglio calcolo Effemeridi in Excel, VBA for Astronomer, Metatag Meta-Tag Scambio Links Scambiolink Scambiolinks - Astronomy Calculations - VBA module, Astronomia con Excel, Nautical Almanac
Link PopularityReferrer List Popolarità sito SEO SERP SEOCONTEST Posizionamento Google Dance GoogleTools Generatore metatag professionale, GoogleSite AdWord AdSense Risorse Nuke Script Php Scambiolink.supeweb.

ScambioLink Scambio Links ScambioBanner Banner Scambio Pagerank FreePagerank CheckRank Ranking FreeLink Gratis Free Indicizzare Indicizza Metatag Meta-Tag Link Popularity Popolarità sito SEO SERP SEOCONTEST Posizionamento Referrer List Google Dance scambiolink.superweb.ws
Home -  Regolam./ADERISCI -  Ns.Loghi -  Genera Metatag Prof. -  Top100 -  Sitemap -  Facebook chiede documenti (VIOLAZIONE PRIVACY)
Aurora -  Aurora 2 -  Aurora 3 -  Calcolatore Eclissi -  Cronologia Temporale -  Lunar Perigeo-Apogeo - Foglio di Calcolo Effemeridi in excel per Astronomia

[ VBA Code Excel for Astronomer ]


Ecco finalmente le Routine in Codice VBA, utilizzate nel foglio di calcolo per Effemeridi in Excel dalla Vers. 2017.10F. R0
Astroexcel VBA CODE EXCEL, ROUTINE FOR SHEETCALC EPHEMERIS ON EXCEL . (List function.)
 
Project born:
Developed between:
Num° of Published Versions:
Num° Sheet calc, pages part integral project :
Num° Shhet Calc pubblic
Latest Version pubblished:
Named project:
10/1997 -
1997 / 2008-
6
22
4
2017.10F.R0
Foglio Calcolo Effemeridi in excel, Sheet Calculate for Astronomy on Excel
2 Routines a questo momento chiamate : Con queste si possono calcolare i seguenti dati !
Astro-functions Dreaker Rev.2017.10F.R1
" AstroCorrettivi.bas "
" AstroDreaker.bas "
" AstroDreaker2.bas"

Ecco le routine inerenti il Foglio di Calcolo al momento disponibili ... oltre 1200 !

001) DegSIN(xx) SIN(radianti) -------------- Seno - (Radianti)
002) DegCos(xx) COS(radianti) ------------- Coseno - (Radianti)
003) DegTan(xx) TAN(radianti) ------------- Tangente - (Radianti)
004) Sin(x) ------------------------------------ Seno
005) Cos(x) ----------------------------------- Coseno
006) Tan(x) ----------------------------------- Tangente
007) ArcSin (xx) ------------------------------ ArcoSeno
008) DegArcSin(xx) --------------------------- ArcoSeno - (Radianti)
009) Arccos(xx) ------------------------------- ArcoCoseno
010) DegArccos(xx) --------------------------- ArcoCoseno - (Radianti)
011) ArcTanX(xx) ----------------------------- ArcoTangente X
012) DegArcTanX(xx) = ArcTan(xx°) -------- ArcoTangente X - (Radianti)
013) SecantX (xx) ----------------------------- Secante
014) CosecantX(xx) --------------------------- Cosecante
015) CotangentX (xx) ------------------------- Cotangente
016) SecantInvX (xx) ------------------------- Secante Inversa
017) CosecantInvX (xx) ---------------------- Cosecante Inversa
018) CotangentInvX (XX) -------------------- Cotangente Inversa
019) SenIperbX (xx) ------------------------- Seno Iperbolico
020) CosIperbX (xx) ------------------------- Coseno Iperbolico
021) TanIperbX (xx) ------------------------- Tangente Iperbolica
022) SecIperbX (xx) ------------------------- Secante Iperbolica
023) CosecIperbX (xx) ----------------------- Cosecante Iperbolica
024) CotIperbX (xx) ------------------------- Cotangente Iperbolica
025) SenIperbInvX (xx) --------------------- Seno Iperbolico Inverso
026) CoSenIperbInvX (xx) ------------------ Coseno Iperbolico Inverso
027) TanIperbInvX(xx) ---------------------- Tangente Iperbolica Inversa
028) SecantIperbInvX(xx) ------------------- Secante Iperbolica Inversa
029) COSecantIperbInvX(xx) ---------------- Cosecante Iperbolica Inversa
030) COTangIperbInvX(xx) ------------------ Cotangente Iperbolica Inversa
031) Logbn(xx) ------------------------------- Logaritmo in base N
032) Log10(xx) ------------------------------- Logaritmo decimale (LOG10)
033) LogbasY(xx) ---------------------------- Logaritmo a base Y
034) DegAtan2(y;x) -------------------------- ARCoTangente - (RADIANTI)
035) ArcTan2( X, Y) -------------------------- ArcTan2( X, Y)
036) Range2pi(xx°) --------------------------- Return argument range 0 to 2pi or 0 to 360
037) Range360(xxx) = RESTO( x,y + yx;360) --- Funzione RESTO di excel convertita in VBA
038) Range(x) ------------------------------- “ “ altra funzione RESTO
039) Range1440(x) --------------------------- funzione usata per resto min. (1440)
040) Range19(x) ----------------------------- funzione usata per resto min. (19)
041) Range7(x) ------------------------------- funzione per calcolo resto 7 d .
042) Range400(x) ---------------------------- funzione usata per resto min. (400)
043) Range100(x) ---------------------------- funzione usata per resto min. (100)
044) Range24(x) ----------------------------- funzione usata per resto min. (24)
045) degToRad(xx°) -------------------------- Converte Gradi a Radianti
046) radToDeg --------------------------------- Converte Radianti a Gradi
047) SesToRad(xx) --------------------------- Sessagesimali a Radianti
048) RadToSes(xx) --------------------------- Radianti a Sessagesimali
049) DMS(GDecimal) ------------------------- Converte gradi/min/sec in Gradi decimali-(rifatta)
050) INVDMS(Degrees;minutes;seconds) ---- Converte Gradi decimali in gradi/min/sec
051) Convert_DecToSSgs (gradi,decimali) --- Conv. Da Gradi decimali a Sessagesimali (° ‘ “”)
052) CalculateSquareRoot(x) ------------------ Valore Radice quadrata.
053) power( x; y) ------------------------------- Calcolo elevamento a potenza x ( ² )
054) cubicRoot(x) ------------------------------- Funzione Radice cubica x ( ³ )
055) Quad2(x) ---------------------------------- quadrato(x) = x² 056) Quad3(x) --- cubo(x) =x³
057) dec_to_roman(anno) ---------------------- Converte anno in numeri romani
058) frazt(x) ------------------------------------ Calcola frazione di un numero, estrae a parte decimale
059) Trunca(numro; cifre) ---------------------- … frazione di un numero, estrae parte decimale.


======================== SEZIONE D . Calc.01 ====================
070) ggSett ( inserito qualcosa per la funzione !!!) --- Calcolo giorno settimana
071) ggnoY(condiz.bisex;giorno;mese) --------------- Calc. –ennesimo giorno di Anno tenendo conto bisestile
072) annocompatto(aa;mm;dd) ------------------------ Calcolo Anno compatto con dati.
073) besselianday(bessdy) --------------------------- Conversione tempo frazione anno in tempo bessel
074) frazint(ora;minuti;secondi;gg°nno) -------------Calc. frazione anno in termine intero.
075) frazggd=(frzg) =frazggSec(ora;min;sec) ------Calc. Frazione del giorno in secondi.
076) ddecTMEC=dtmec =ddecTMEC(hh;mm;ss) ------Calc. Giorno in frazione, TMEC (mean time ECentral)
077) ffggutc=(fgut) =ffggutc(hh;mm;ss) -------------Calc. Frazione giorno in UTC
078) frzdec=(frxd) =frzdec(hh;mm;ss) ---------------Calc Frazione giorno in decimale
079) ddecTMut1(hh;mm;ss) ----------------------------Calc. Giorno in frazione, TMEC (mean time ECentral) corretti UT1
080) hoursidmean=(molt) =hoursidmean(ddTMEC) --Calc. Conversione ora civile a Ora Siderale Media
081) hsolmean = hslm =hsolmean(ddTMEC) -----------Calc.Conversione ora Civile a Ora Solare Media
082) ConvHDEC_ore( ore,decimalizzate) ---------------Calc. Conversione ore dec a ore espressa


======================== SEZIONE C . Calc.01 ====================
100) longtRMkm(gradi; minuti; secondi) ---------Calc. longitudine xRaggio medio in km. Terrestre
101) CorrLong( long.dec.) ------------------------Correzione in longitudine decimale per sez C
102) CorrL2(difLOF;hh;mm;ss) ------------------Calc. Correzione long – DX
103) difLOF(longdec;ZoneLo ) -------------------Calc. differenza long fuso
104) LatGeoc( LatDec) ----------------------------Calc.Latitudine Geocentrica
105) degLATkm(long.dec) -------------------------Calc. 1° lat.on km per longit. data
106) VkmhTerr( Lat.decimale) --------------------Calc. Vel.K/h Terra x lat. + vel. Radianti al sec.
107) gmsloc( lat.dec; h.slm) -----------------------Calc. . g m/s³ x luogo
108) distCentEarth(longdec;h.slm)----------------Calc. Dist.luogo a centro della terra
109) HrzVgrad(hslm; 1 or 2) -------------------° l'orizzonte visibile(1) + Relativo km visibili massimi(2)
110) IndexREF( h.slm.) -------------------------Calc. Indice Rifrazione x citta scelta


======================== SEZIONE I . Calc.01 ====================
115) numdor(anno) Calcolo Numero dOro .ecclesiastico


======================== SEZIONE J . Calc.01 ====================
118) CarringtonRotation(JDTT) Calc. Carringtion rotation

###########################=Librerie Temporali Te/Time e affini.=###########################
##############################= CALC.02 Sez.A parte 1 =################################

125) ThlLoc(hh;mm;SS.ss) ------------------------------------------ Impostazione Ora civile immessa
126) TutcGMTzul(Ora Civile attuale citta; OffSerHI; hhlegFlag) ---Calcolo Ora UTC/GMT= Ora Zulu
127) TiTAI(Ora UTC/GMT + 0.00972222222222) ----------------Calc. UTC-TAI = + 32,184
128) TTtime(TutcGMTzul)------------------------------------------ Calc. Find Terrestrial Time TT
129) TunivTime(OraCity;OffSerHI;hhlegFlag) --------------------Calc. *Universal Time1*
130) TDTc(TutcGMTzul) --------------------------------------------Calc. TDT calc Tempi Dinamico Terrestre
131) TLMThhinp(Time_of_DR,DLo+>W) --------------------------Calc. LMT (local mean time)
132) TLAThhInp(LMThhInp;EQT) ----------------------------------Calc. LAT Local Appar.Time (Sundial)
133) TtmlcorrInp(Thhloc;Dlong2) -------------------------------Calc. TML+correct. Ora Immessa
134) ThhSidgw(hhloc;longhh) -----------------------------------Calc. hh Sid. Greenwich
135) TMLcity(flag.legale; hlocalr; costanteloc/hh) -------------Calc. TML Tempo medio locale
136) TVLcity(flag.legale; hlocalr; costanteloc/hh) -------------Calc. TVL Tempo vero locale
137) Tlatapp(Thhloc;longhh;Suncb21) -------------------------Calc. LAT (Local apparent time)
138) TS0gmt00(TetInitY) ---------------------------------------Calc. GMST 0h data (TS0gmt00)
139) crrE85(year) -----------------------------------------------Calc dato per correzione E85
140) Dlong2(longdec;jdeTe2k0) --------------------------------Calc Dlong2
141) totdiffann(jdeTe2k0) --------------------------------------Calc. Totale differenza scostamento annuale
142) RhoRivTS(TimeTet) ----------------------------------------Calc. Rho rivoluz.Ts
143) TcrrggDyto (JDTT-(jd00h24-(ggnno-1)))---------------- Calc. gg.da Y=>DD
144) TimeSid0gmt(JdInitYear) --------------------------------Calc. Time Sid.0gmt 00TU for init Year (check2)
145) Tg0tsmg0(TimeSid0gmt;TcrrggDyto) -------------------Calc. 0G0 tsmg0°__(A88)
146) tsmTots(UTCgt) ------------------------------------------Calc. Da TSM a TS(*) TSM (corrz)
147) tsmTots2(GMST0G0, UTCgt, tsmTots) ------------------Calc. Da TSM a TS(*) TSM (corrz) parte 2
148) tslCitycorr(tslcond1) ------------------------------------Calc. - TSL xcitta'.e data messa
149) TSMG0city(TDTjd2k) ------------------------------------Calc. TSMG° x city
150) Tgmst0g(jd00h24;yyear;TunivTime) -------------------Calc. Tgmst0g(jd00h24;yyear;TunivTime)
151) Tgast0g(Tgmst0g + NnutMuhh) -------------------------Calc. Greenwich Apparent Sid. Time (GAST)_
152) Tgstutdm(ggnoAA;ddecTMEC) ---------------------------Calc. GST ut for day,month
153) tsfrom1900 -------------------------------------------Calc. Time Sideral (dd).dal 1900
154) TsmlqG(TimeSid0gmt; Jdtt; jd01initY) -------------Calc. TSML {check} qG
155) Trivh(jd00h24) --------------------------------------Calc. (T.Rivol > h)_
156) Tlmstdata(Thhloc;OffSetHi;TS0gmt00;difLOF) ----LMST (LMean SidTime)x Data
157) toTuaTS(ddecTMEC;OffSetHi) -----------------------Calc. da TU a TS
158) ToTsmgTotsml(toTuaTS,GrivTS0T1,longhh) --------Calc. tsmg>tsml_
159) TtlToTml(Thhloc;longdec;ZoneLo) ------------------Calc. TtlTotml
160) TimeSid0day(JdInitday) ----------------------------Check Mean Sid.Time x date ju00T24


##########################= CALC.02 Sez.B parte 2 =############################

170) thetaGmst(JDTT,Timetet) -------------------------------------theta G Calcolo Angolo Mean Sideral greenwich
171) mSidT00ut(fraggd) -------------------------------------------Calc. Mean Sideral Time at 0h UT
172) TSTgst(hhloc;jdeTe2k0) -------------------------------------Calc. >TST< GST
173) TS0gmst(GMST0h; hoursidmean) ---------------------------Calc. TSq GMST° > hh
174) GASTh(longnodoAscluna;calcLongMeanSun;longMMoon;moblq in rad) ----Calc. GAST > h
175) LMSTdeg(jd02000 day; longdec) ---------------------------Calc. (LMST) Local.MSidTime
176) GHAAtrueY(JDTT; Dt86400, suncalW13) ------------------Calc. [GHAA TRUE° ?]& Aries Appar.GST
177) TSappNut(day2k, timeTET ----------------------------------Calc. TS app + corretto nut_
178) gst(J2000) ---------------------------------------------------Calcola G.Sidereal Time at Longitude zero after J2k
179) TARsunAng(Tet) -------------------------------------------- a retta solare media
180) MSTimeAppGHAaries(JD.i408, J.Epoch J2k I 402) ---------MSTime @ Grmw> AppGHA aries
181) ghaAriescoNut(SuncalU12 ) ---------------------------------Calc. GHA Aries Corr. xNutation
182) TrueGHAaries(MSTime+GHAAries Corr)-------------------- Calc. TrueGHAAr ___Calcoli.14.B385
183) GHAofSUN(TrueGHAaries) ----------------------------------Calc. GHA of the sun ±1"
184) SHAofSUN( GHA of the sun;MSTime )---------------------- Calc. SHA of SUN
185) LHAofAries(TrueGHAAr;longdec) ---------------------------Calc. LHA of Aries
186) LHAofSun(GHAofSun;longdec) ------------------------------Calc. LHA of Sun
187) GHAofMoon(GHAAtrueY;MooncalB47) ---------------------Calc. GHA of the Moon ±10"
188) LunRofSUN(declMoon; declSun; ARMoon; ARSun) ---------Calc. Lunar distance of Sun: ±10
189) EQElowP(longMMoon) -------------------------------------Calc. - EQE Equazione degli equinozi Lowprec
190) EQEhp(OMcalB239; FcalB240; DcalB241; TE2k0) -------Calc. EQE Equazione degli equinozi High prec
191) Tim2018LAST(TSMG0city;hoursidmean)----------------- Calc. TimeScale 2018 - GMST x UT
192) Tim2018GAST(TSMG0city;hoursidmean,EQElp) ----------Calc. TimeScale 2018 - Gast __ req
193) Timb2018UT(Tim2018GAST; longdechh) -----------------Calc. TimeScale 2018 - UT > LASTreq
194) TimLST1 (dd.dedc;longdechh) -----------------------------Calc. Timescale1018 Gast.conv_LST > UT
195) Timgmst1 (TimLST1;EQElp) -------------------------------Calc.Timescale1018 Gmst.
196) TimgmUT1(TimLST1;EQElp) -------------------------------Calc.Timescale1018 Gmst.conv_GMST > MST > UT
197) LHAariespoint(GMSTdeg ;l ongdec) ------------------------Calc.LHA point Aries
198) GrivTS0T1(timeTET) ---------------------------------------Calc.G in Rivol. (TS0) Corretto T1 (TSM) +TSMG1
199) GrivTsq0(timetet) ------------------------------------------Calc.G in Rivol. TSq° Greenw interv.0-24
200) TSgwwTSHP(GrivTS0T1) ----------------------------------Calc.TSaGreenw. {check}
201) ERA00( ggnoAA ; hhloc) -----------------------------------Calc. Earth Rotation Angle (ERA00) (°) 0(TU)
202) ERAhh ERA00 TU da gradi a ore
203) AriesTSnaut(jd00TU24; Te2k0) --------------------------Ariete TS (°) (nautical)
204) GSTdeg(Te2k0) -------------------------------------------GST is in degrees


======================== PARTE CENTRALE SEZ-.02 ====================
220) yTropicLaskar(TimeTet) A.Tropicale element-Laskar

=========================UT + TDC/TCG + Predictive moviment section ================
**************** UT + Predictive moviment Section ****************************

230) UT2UT1(yBessel) ---------------------- UT2-UT1"
231) gUUT1(TTmjd) --------------------------gamma UT1
232) UT1UTC(UT2UT1;MJD0h)-------------- UT1-UTC
233) TCGTDT(jdtt) ----------------------------TCG-TDT
234) TCBTCG(JDTT) --------------------------TCB-TCG
235) TCBTDB(Jdtt )---------------------------- TCB-TDB sec."
236) utjdTDB(TE2k0)------------------------- utjdTDB - JD.TDB
237) qGSMT2000(timeTET) ------------------q GMST2000
238) TDBTT(Jdtt)----------------------------- TDB - TT
239) TCBTB(JDTT) ----------------------------TCB-TB
240) JDut1jd(ggno; frzgg)-------------------- JDUT1 juldate


========================CALC.03 ==================================
********* SEZIONE - CALC.03 Sezione JD / JD2000 ******************************

260) JDdayJul(gday;mmm;aaaa;hhour;hmin;hsec) ----------------------Calcolo JD , ßyLucianoB
261) Days2000(ANNO(AX9);MESE(AX9);GIORNO(AX9);hh;mm;ss) --Calc.num day from 2000.
262) JD02k(JD) --------------------------------------------Calc. numero di giorno, since JDE_to_J2000
263) J2000_to_JDE(JD02k)------------------------------ num day from 1/1/2000 to JDE.
264) MJD(yy;mm;dd) MJD modified Julian date
265) JD01y00h(JDdayJul;TcrrggDyto) --------------------JD al 01/01/Anno per data 00h
266) TeTyinit(JD01y00h) ---------------------------------TeT init Year
267) calcJDtu24(anno;mese;giorno) ---------------------jd00h TU24 inizio dd
268) Tjd0Corr(calcJDtu24) jd0+deCor" ----------------- Ovvero Tjd0Corr
269) ZDzone(DayBS;StandardZD) ZDcalcD402 --------- Ovvero utilizzo ZD ZD su TjdtimeZD
270) TjdtimeZD(JDdayJul) --------------------------------jd.Time-ZoneD (usato in Calcoli sez. 14 - I398
271) TjdUT1(gday;mmm;aaa) ----------------------------JD (UT1) // && MJD
272) TmjdUT1(TjdUT1) -----------------------------------JD (UT1) // && >>> MJD
273) TjdTT(gday;mmm;aaa;TimeTT) ---------------------JD <=( 275) TJJdTTime(TjdTT) TjdTT da JD(TT)
276) TjdeDT(JDdayJul;DTcalc) ---------------------------TjdeDT(JDdayJul;DTcalc)
277) Tjctcor(dtcalc) ---------------------------------------Tjct correzione delta T
278) JDTT corretto di delta T (+)
279) TetDut24(calcJDtu24) ------------------------------TET.hh00/24
280) TeTDT(JDdayJul) -----------------------------------TE/ TT/TDT, SecJUL(JD-JD0)
281) TTMJDtai(B8;B9;B10;B11;B12;B13)-------------- [ MJD di JDTT corretto TAI ]
282) TTMjdNNtai(JDdayJul)----------------------------- [ MJD di JDTT no' TAI ]
283) TJDmjd(TTMJDtdt)--------------------------------- JDtai da .[MJD tai]
284) J2000TU12(JDdayJul)---------------------------- J2000(JD0).1/01/2000 12TU
285) JDCDay( JDTT ) --------------------------------JDCDay da Giorno giuliano a Giorno Gregoriano
286) JDCMonth( JDTT )------------------------------ JDCMonth da Mese giuliano a Mese Gregoriano
287) JDCYear(JD)----------------------------------- Calc. Da Anno giuliano a Anno Gregoriano
288) JDCWeek(JD) ----------------------------------Calc. Da Settimana Giuliana a Settimana Gregoriana
289) jdTOj2kTU(gg,mese,yyy,hh,mm, ggpassati2k) ----JD=>J2000.0 00TU
290) jD2kToT(J2000TU12)-------------------------- d (frazione T, tra J2000.day)
291) jdTZDj2k(TjdtimeZD)--------------------------- T da jd.Time-ZoneD
292) jdTZDj2kML(TjdtimeZD)------------------------ T da jd.Time-ZoneD per TMill
293) Te2k0(JDdayJul) ----------------------------jdeTE2k0 gmt JD2k0 - 0,5 > UT
294) TTutc2k(Te2k0)----------------------------- TT - UTC /2000 "
295) TTutj2k(TjdUT1)----------------------------- TUT1 in J2KJD (UT1)
296) TTTj2k(TjdTT) -------------------------------TT in J2KJD ( TT ) T2K Terr
297) TdTJ05(TjdeDT) -------------------------------TDT JD2000,0 J0,5
298) TdTJ05ML(TjdeDT)---------------------------- TDT JD2000,0 J0,5 Millenium
299) t2kJDEMIL(JDdayJul) -----------------------t 2k + JDE MIL_ (Millenium)
300) TDT2K(calcJDtu24)------------------------- Calcola funzione TDT JD2000,0 ·TU24
301) TjMJDtu24(mjgg;mjmm;mjyy)-------------- T.[ MJD ] jd00h. MJD o (GGM)
302) TepheTDT(Te2k0) ---------------------------EphemTime TDT
303) Tmjd1900TU12(JDdayJul)----------------- Jd=> 1900,0(TU12)
304) Tet1900TU12(JDdayJul) -------------------tet1900(TU12)
305) Tet1950TU00(JDdayJul) -------------------Te1950(TU00)
306) TJD3000TU12(JDdayJul)------------------- JD=>J3000,0(TU12)
307) Tet3000TU12(JDdayJul) -------------------TetJ3000(TU12)
308) TjdDNOAA NOAA -----------------------------Calc.JD
309) TJDNOAA(TjdDNOAA)--------------------- noaa TJcentury
310) TjdedtNOAA(JDdayJul;dtcalc) -------------Noaa TJ + jdetu di dt
311) calcSolJD(anno;mese;giorno)------------- JD for SolarCalc Noaa
312) TeTxSolC(calcSolJD) ---------------------TeTxSolC .Time ephem x SolarCalc NOAA


===========================CALC.04 ===================================
************** SEZIONE - Sideral day and effective Rate ********************************

360) SidFrazdd(Te2k0) ---------------------------Fraz.day x Sideral day lenght
361) MeanSiddd(Te2k0) -------------------------Fraz day for Mean Sideral on TU_
362) RateSidh(SecondiSideral) ------------------Rate/h Sideral
363) RateSolday(SecondiSolar) -----------------Rate/h Sideral.
364) RateMeanD(MeanSideral) ------------------Rate/M Sideral.
365) Lengdhhdec(Te2k0) ------------------------Lenght day time on hour decimal
366) Lengdhhdec2(Te2k0) -----------------------Lenght day time on hour decimal_2
367) RatemSid(Te2k0) ---------------------------Rate r' mSid time UT1
368) ratesec(Te2k0)----------------------------- rate second. Q146
369) ratesec2(Te2k0) ---------------------------rate second. Q147
370) ratesec3(Te2k0) ---------------------------rate second. C147
371) rateday(Te2k0) ---------------------------rate day C147.
372) MovApsidi(Te2k0) ------------------------Movimento degli aspidi rad/cy
373) ySiderOrb(TeTDT) -----------------------Sidereal Orbit year
374) yTropOrb(TeTDT) ------------------------Tropical Orbit year
375) yEclypOrb(TeTDT)------------------------ Eclipse Orbit year
376) yAnomlOrb(TeTDT) -----------------------Anomalistic Orbit year
377) mSidMOONorb(TeTDT) --------------------Sidereal Lunar orbit
378) MoondySYDp(TeTDT) --------------------Lunar Mean Daily Sidereal Motion_
379) MoonSYNp(TeTDT) -----------------------Lunar Synodical Period -----
380) cGenPreclon(TeTDT) ---------------------Centennial General Precession longitude


=========================CALC.05 ============================
********************** SEZIONE - Lenght & date Season UT **************************

410) LenMoonSYN(TeTDT) ------------------Durata Mese Sinodico
411) LenMoonSYN2(Lyear) -----------------Durata Mese Sinodico 2nd value
412) LRootMoo(Lyear) ----------------------Durata Rotaz. Lunare__
413) LenRotMoon2(LRootMoo) --------------Lenght Mean Rotazion Moon
414) gRotEarth(dAngs;TeTDT) --------------Giro rivoluzione terra effettivo in gradi.
415) cyMETsrR(TeTDT) ----------------------Ciclo Metonico e i 3 inerenti
416) cyMETsrR(TeTDT) ----------------------Ciclo di Saros e i 4 inerenti


'#############=Librerie Temporali durata; Traslativi e vari.=##################
====================BREAK … BREAK ================================

460) EarthRT_km(EarthRadii) ----------------------Converte Raggi terrestri in km
461) uaMoncv(UA) ---------------------------------Converte UA in km per Luna .
462) uacoonv(km) ---------------------------------Converte KM in Unita Astronomica
463) ARHDec Long.degree /15 ; x 15 (1;2 opt)--Calc.AR on traslat to Hour, or AR to deg.
464) corrluce(dist.Luna) --------------------------Calcolo: Correzione Tempo luce in sec.
465) L-Time(Rvsop) ------------------------------Calc. Light Time (second) for distance .
466) GeoDist(Lat1, Long1, Lat2, Long2) -------Calcolo distanza tra 2 punti, o città.

Fino a questo momento ce ne sono 283 di Routines in codice VBA Excel per Astronomy, o Astronomy on VBA. Ma altrettante andranno a inserirsi nei prossimi mesi.

ROUTINE >    " AstroCorrettivi.bas "    VBA EXCEL


C001) pertLonMer(Effemeridi!Y47)        ---Mercury – Perturb. in Longitudine - B9
C002) pertLMer10(Effemeridi!Y47)        “ – Perturb. in Longitudine - B10
C003) pertLMer11(meanAnomMerc)      “ – Perturb. in Longitudine - B11
C004) pertLMer12(Effemeridi!Y47)        “ – Perturb. in Longitudine - B12
C005) pertLMerSUM(meanAnomMerc)   “ – Perturb. in Longitudine - B13-E- SUMMATORY
C006) pertRV16(meanAnomMerc)          Perturb. in Raggio Vettore - B16
C007) pertRV17(meanAnomMerc)          Perturb. in Raggio Vettore - B17
C008) pertRV18(meanAnomMerc)          Perturb. in Raggio Vettore - B18
C009) pertRV19(meanAnomMerc)         Perturb. in Raggio Vettore - B19
C010) pertRVSUM(pertRV16;pertRV17;pertRV18;pertRV19)   Perturb. in RVettore- B20 - E- SUMMATORY

=============== CORRETTIVI . . VENERE ============================

C011) pertLMer1(calcAnomalyMSun)     VENUS Perturb. in Longitudine - B31 -
C012) pertLMer2(calcAnomalyMSun)     VENUS- Perturb.in Longitudine - B32 -
C013) pertLMer3(calcAnomalyMSun)     VENUS - Perturb. in Longitudine - B33 -
C014) pertLMer4(calcAnomalyMSun)     VENUS - Perturb.e in Longitudine - B34 -
C015) pertLMer4(calcAnomalyMSun)     VENUS - Perturb. in Longitudine - B35 -
C016) pertLMer4(calcAnomalyMSun)     Perturb. in Longitudine - B36 - E - SUMMATORY
C017) corLoAnMer(timTET)                    Correzione x Longitudine media & Anomalia media
C018) pertRVm01(calcAnomalyMSun)    Perturb.in Raggio vettore - B40
C019) pertRVm02(calcAnomalyMSun)    Perturb. in Raggio vettore - B41
C020) pertRVm03(calcAnomalyMSun)    Perturb. in Raggio vettore - B42
C021) pertRVm04(calcAnomalyMSun)    Perturb. in Raggio vettore - B43
C022) pertRVm05(calcAnomalyMSun)    Perturb. in Raggio vettore - B44
C023) pertRVm06(calcAnomalyMSun)    Perturb. in Raggio vettore - B45
C024) pertRVm07(calcAnomalyMSun)    Perturb. in Raggio vettore - B46
C025) pertRVSMer(b40;b41;b42;b43;b44;b45;b46)  Perturb.in Raggio vettore - B47-E –SUMMATORY

=============== CORRETTIVI . TERRA ============================
C026) corPerEarA(timeTET)       TERRA - Perturbazioni e Correttivi - D9
C027) corPerEarB(timeTET)       Perturbazioni e Correttivi - D10
C028) corPerEarC(timeTET)       Perturbazioni e Correttivi - D11
C029) corPerEarD(timeTET)       Perturbazioni e Correttivi - D12
C030) corPerEarE(timeTET)       Perturbazioni e Correttivi - D13
C031) corPerEarH(timeTET)       Perturbazioni e Correttivi - D14
C032) AradCorr(x double)          Perturb.e Correttivi -- A-Radianti -{ D15 / 16 / 17 / 18 / 19 / 20 }
C033) corLEd22(corPerEarA)     Perturbazione e Correttivi --Correzione in Longitudine - D22
C034) corLEd23(corPerEarB)     Perturbazione e Correttivi --Correzione in Longitudine - D23
C035) corLEd24(corPerEarC)     Perturbazione e Correttivi --Correzione in Longitudine - D24
C036) corLEd25(corPerEarD)     Perturbazione e Correttivi --Correzione in Longitudine - D25
C037) corLEd26(corPerEarE)     Perturbazione e Correttivi --Correzione in Longitudine - D26
C038) corLoSum(summa .............)   Correzione in Longitudine - D27 SUMMATORY
C039) cLaddSig(timeTET)              Correzione in Longitudine - Add + Sigma - D28
C040) crrRVEart31(corPerEarA)   Correzione in Longitudine - D31
C041) crrRVEart32(corPerEarB)   Correzione in Longitudine - D32
C042) crrRVEart33(corPerEarC)   Correzione in Longitudine - D33
C043) crrRVEart34(corPerEarD)   Correzione in Longitudine - D34
C044) crrRVEart35(corPerEarE)   Correzione in Longitudine - D35
C045) corrRVSUMEar(crrRVEart31;crrRVEart32;crrRVEart33;crrRVEart34;crrRVEart35)  Perturbazione e Correttivi --Correzione in Longitudine -- E- SUMMATORY

=============== CORRETTIVI . MARTE ============================

C046) cLonMarF9(timeTET)        Correttivo Longitudine & Anomalia - F9
C047) cLonMarF10(timeTET)      Correttivo Longitudine & Anomalia - F10
C048) clonSMF11(timeTET)        Correttivo Longitudine & Anomalia - F11 – Summatory
C049) pertLonMarF14(timeTET)  Correttivo Perturbazione in Longitudine - F14
C050) pertLonMarF15(timeTET)  Correttivo Perturbazione in Longitudine - F15
C051) pertLonMarF16(timeTET)  Correttivo Perturbazione in Longitudine - F16
C052) pertLonMarF17(timeTET)  Correttivo Perturbazione in Longitudine - F17
C053) pertLonMarF18(timeTET)  Correttivo Perturbazione in Longitudine - F18
C054) pertLonMarF19(timeTET)  Correttivo Perturbazione in Longitudine - F19
C055) pertLonMarF20(timeTET)  Correttivo Perturbazione in Longitudine - F20
C056) pertLonMarF21(timeTET)  Correttivo Perturbazione in Longitudine - F21
C057) pertLonMarF22(timeTET)  Correttivo Perturbazione in Longitudine - F22
C058) pertLOSUM(F14;F15;F16;F17;F18;F19;F20;F21;F22)   “” “” pert.Longitudine - F23 - E-SUMMATORY
C059) pertRVMF25(timeTET)    Correttivo Perturbazione in Raggio Vettore -F25
C060) pertRVMF26(timeTET)    Correttivo Perturbazione in Raggio Vettore -F26
C061) pertRVMF27(timeTET)    Correttivo Perturbazione in Raggio Vettore -F27
C062) pertRVMF28(timeTET)    Correttivo Perturbazione in Raggio Vettore -F28
C063) pertRVMF28(timeTET)    Correttivo Perturbazione in Raggio Vettore -F29
C064) pertRVMF30(timeTET)    Correttivo Perturbazione in Raggio Vettore -F30
C065) pertRVMF31(timeTET)    Correttivo Perturbazione in Raggio Vettore -F31
C066) pertRVMF32(timeTET)    Correttivo Perturbazione in Raggio Vettore -F32
C067) pertRVMF33(timeTET)    Correttivo Perturbazione in Raggio Vettore -F33
C068) pertRVMF34(timeTET)    Correttivo Perturbazione in Raggio Vettore -F34
C069) pertRVMF35(timeTET)    Correttivo Perturbazione in Raggio Vettore -F35
C070) pertRVMF36(timeTET)    Correttivo Perturbazione in Raggio Vettore -F36
C071) pertRVMF37(timeTET)    Correttivo Perturbazione in Raggio Vettore -F37
C072) pertSUMF38(timeTET As Double)    “ “ “ in RVettore - E – SUMMATORY

=============== CORRETTIVI . GIOVE ============================

C073) elJUPu(timeTET As Double)       GIOVE - Elementi - u/p/Q/S/V/W theta
C074) elJUP_P(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C075) elJUP_Q(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C076) elJUP_S(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C077) elJUP_V(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C078) elJUP_W(timeTET As Double)    Elementi - u/p/Q/S/V/W theta
C079) elJUP_X(timeTET As Double)     Elementi - u/p/Q/S/V/W theta
C080) pertPerJi18(H9;H13)                 Perturbazione al perielio q(B) - I18
C081) pertPerJi19(H9;H13)                 Perturbazione al perielio q(B) - I19
C082) pertPerJi20(H11)                       Perturbazione al perielio q(B) - I20
C083) pertPerJi21(H11)                       Perturbazione al perielio q(B) - I21
C084) pertPerJi22(H11)                       Perturbazione al perielio q(B) - I22
C085) pertPerJi23(H11)                       Perturbazione al perielio q(B) - I23
C086) pertPerJi24(H11)                       Perturbazione al perielio q(B) - I24
C087) pertPerJi25(H11)                       Perturbazione al perielio q(B) - I25
C088) pertPerJi26(H11)                       Perturbazione al perielio q(B) - I26
C089) pertPerJi27(H11)                       Perturbazione al perielio q(B) - I27
C090) pertPerJi28(H11)                       Perturbazione al perielio q(B) - I28
C091) pertPerJi29(H11)                       Perturbazione al perielio q(B) - I29
C092) pertPerJi30(H11)                       Perturbazione al perielio q(B) - I30
C093) pertPerJi31(H11)                       Perturbazione al perielio q(B) - I31
C094) pertPerJi32(H11)                       Perturbazione al perielio q(B) - I32
C095) pertPerJi33(H11)                       Perturbazione al perielio q(B) - I33
C096) pertPerJi34(H11)                       Perturbazione al perielio q(B) - I34
C097) pertPerJi35(H11)                       Perturbazione al perielio q(B) - I35
C098) pertPERHSum(xn1…..)                Perturbazione al perielio q(B) - I36 - E- SUMMATORY
C099) pertSMI38(elJUP_V As Double) Perturbazione sul Semiasse maggiore (a) - I38
C100) pertSMI39(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I39
C101) pertSMI40(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I40
C102) pertSMI41(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I41
C103) pertSMI42(elJUP_X As Double) Perturbazione sul Semiasse maggiore (a) - I42
C104) pertSMI43(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem.Magg (a) - I43
C105) pertSMI44(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I44
C106) pertSMI45(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I45
C107) pertSMI46(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I46
C108) pertSMI47(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I47
C109) pertSMI48(yRef elJUP_X As Double, elJUP_q As Double)    Pert.su Sem. maggiore (a) - I48
C110) pertSMISUM(xn1…..)                                                               Perturb. sul Semiasse maggiore (a) - I49 - E- SUMMATORY
C111) perEccJuI51(elJUPu;elJUP_V)                                               Perturbation on eccentricity for Jupiter - (e) - I51
C112) perEccJuI52(elJUPu;elJUP_V)                                               Perturbation on eccentricity for Jupiter - (e) - I52
C113) perEccJuI53(elJUP_X ;elJUP_q)                                            Perturbation on eccentricity for Jupiter - (e) - I53
C114) perEccJuI54(elJUP_X ;elJUP_q)                                            Perturbation on eccentricity for Jupiter - (e) - I54
C115) perEccJuI55(elJUP_X ;elJUP_q)                                            Perturbation on eccentricity for Jupiter - (e) - I55
C116) perEccJuI56(elJUP_q)                                                            Perturbation on eccentricity for Jupiter - (e) - I56
C117) perEccJuI57(elJUPu;elJUP_X;elJUP_q)                                Perturbation on eccentricity for Jupiter - (e) - I57
C118) perEccJuI58(elJUP_X;elJUP_q)                                             Perturbation on eccentricity for Jupiter - (e) - I58
C119) perEccJuI59(elJUPu;elJUP_X;elJUP_q)                                Perturbation on eccentricity for Jupiter - (e) - I59
C120) perEccJuI60(elJUP_X;elJUP_q)                                             Perturbation on eccentricity for Jupiter - (e) - I60
C121) perEccJuI61(elJUP_q)                                                            Perturbation on eccentricity for Jupiter - (e) - I61
C122) perEccJuI62(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I62
C123) perEccJuI63(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I63
C124) perEccJuI64(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I64
C125) perEccJuI65(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I65
C126) perEccJuI66(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I66
C127) perEccJuI67(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I67
C128) perEccJuI68(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I68
C129) perEccJuI69(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I69
C130) perEccJuI70(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I70
C131) perEccJuI71(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I71
C132) perEccJuI72(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I72
C133) perEccJuI73(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I73
C134) perEccJuI74(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I74
C135) perEccJuI75(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I75
C136) perEccJuI76(elJUP_q)                              Perturbation on eccentricity for Jupiter - (e) - I76
C137) perEccJuI77(elJUPu;elJUP_X;elJUP_q)  Perturbation on eccentricity for Jupiter - (e) - I77
C138) perEccJuI78(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I78
C139) perEccJuI79(elJUP_X;elJUP_q)               Perturbation on eccentricity for Jupiter - (e) - I79
C140) perTEcSumI80(xN…)                                 Perturb. on Eccentri. for Jupiter - (e) - I79 - E- SUMMATORY
C141) perMLJuI84(elJUPu;elJUP_V)                  Perturbation on mean longitude for Jupiter (L) - I84
C142) perMLJuI85(elJUPu;elJUP_V)                  Perturbation on mean longitude for Jupiter (L) - I85
C143) perMLJuI86(elJUPu;elJUP_V)                  Perturbation on mean longitude for Jupiter (L) - I86
C144) perMLJuI87(elJUP_W)                             Perturbation on mean longitude for Jupiter (L) - I87
C145) perMLJuI88(elJUP_X)                              Perturbation on mean longitude for Jupiter (L) - I88
C146) perMLJuI89(elJUP_X)                              Perturbation on mean longitude for Jupiter (L) - I89
C147) perMLJuI90(elJUP_X)                              Perturbation on mean longitude for Jupiter (L) - I90
C148) erMLJuI91(elJUP_X)                                Perturbation on mean longitude for Jupiter (L) - I91
C149) perMLJuI92(elJUPu;elJUP_X;elJUP_q)  Perturbation on mean longitude for Jupiter (L) - I92
C150) perMLJuI93(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I93
C151) perMLJuI94(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I94
C152) perMLJuI95(elJUPu;elJUP_X;elJUP_q)  Perturbation on mean longitude for Jupiter (L) - I95
C153) perMLJuI96(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I96
C154) perMLJuI97(elJUP_q)                              Perturbation on mean longitude for Jupiter (L) - I97
C155) perMLJuI98(elJUPu;elJUP_X;elJUP_q)  Perturbation on mean longitude for Jupiter (L) - I98
C156) perMLJuI99(elJUP_X;elJUP_q)               Perturbation on mean longitude for Jupiter (L) - I99
C157) perMLJuI100(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I100
C158) perMLJuI101(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I101
C159) perMLJuI102(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I102
C160) perMLJuI103(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I103
C161) perMLJuI104(elJUP_X;elJUP_q)            Perturbation on mean longitude for Jupiter (L) - I104
C162) perMLJuI105(xN….SUM )                        Perturb.on MLongitude for Jupiter (L) - I105 - E- SUMMATORY

=============== CORRETTIVI . SATURNO ============================

C163) range360(elJUP_s - elJUP_q)             SATURNO - Variabile K9 -
C164) pertQSatK11(elJUPu;elJUP_V)            Perturbazione in Perielio q (B) K11
C165) pertQSatL12(elJUPu;elJUP_V)            Perturbazione in Perielio q (B) L12
C166) pertQSatL13(elJUPu;elJUP_V)            Perturbazione in Perielio q (B) L13
C167) pertQSatL14(elJUP_q;elJUP_X)          Perturbazione in Perielio q (B) L14
C168) pertQSatL15(elJUP_q;elJUP_X)          Perturbazione in Perielio q (B) L15
C169) pertQSatL16(elJUP_q;elJUP_X)          Perturbazione in Perielio q (B) L16

Fino a questo momento ci sono ben 420 circa routine di calcolo al 14/10/2017 ---- A Marzo 2018, arriviamo già a oltrte 1150 !

 
PAGE CREATED from (lucianob) for project Dreaker '97
Partner's Link:
Astronomia.96.lt -  AstronomiaExcel -  2012-Oltre