Convert greg to JD astronomical

jd(year, month, day, hour, min, sec)

Arguments

year

year

sec

Examples

if (FALSE) {
jd1 <- jd(2000, 1, 1, 12, 0, 0)
jd1
}