YRsecdif {RSEIS}

Return difference in seconds

Description

Difference between two Date/Times (Julian Day)

Usage

YRsecdif(jd1, hr1, mi1, sec1, jd2, hr2, mi2, sec2, yr1 = 0, yr2 = 0)

YRsecdifL(T1, T2)

Arguments

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

Details

Returns T2-T1, year is used.

Value

numeric

seconds

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

See Also

secdifL, secdif

Examples

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)