Return difference in seconds
Difference between two Date/Times (Julian Day)
YRsecdif(jd1, hr1, mi1, sec1, jd2, hr2, mi2, sec2, yr1 = 0, yr2 = 0) YRsecdifL(T1, T2)
jd1 |
Julian Day |
hr1 |
hour |
mi1 |
minute |
sec1 |
second |
jd2 |
Julian Day |
hr2 |
hour |
mi2 |
minute |
sec2 |
second |
yr1 |
year 1 |
yr2 |
year 2 |
T1 |
list 1 with date time |
T2 |
list 2 with date time |
Returns T2-T1, year is used.
numeric |
seconds |
Jonathan M. Lees<jonathan.lees.edu>
secdifL, secdif
T1 <- list(jd=12, hr=13, mi=23, sec=21, yr=1964 ) T2 <- list(jd=14, hr=23, mi=23, sec=2, yr=1976) YRsecdif(T1$jd, T1$hr, T1$mi, T1$sec, T2$jd, T2$hr, T2$mi, T2$sec, 1964, 1976) #### or YRsecdifL(T1, T2)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.