R/julian_date.R
jd.Rd
Convert greg to JD astronomical
jd(year, month, day, hour, min, sec)
year
if (FALSE) { jd1 <- jd(2000, 1, 1, 12, 0, 0) jd1 }