R/ymd2dn.R

ymd2dn = function(yr,m,d) {

                                        #----  Days before start of each month (non-leap year)  -----
    idays = c(0,31,59,90,120,151,181,212,243,273,304,334,366)

                                        #----  Correct for leap year if month ge 3  -------------
    lpyr = (((yr %% 4) == 0) & ((yr %% 100) != 0))  | ((yr %% 400) == 0) & (m >= 3)

    dy = d + idays[m] + lpyr
    return(dy)

}

Try the astrolibR package in your browser

Any scripts or data that you put into this service are public.

astrolibR documentation built on May 2, 2019, 3:26 a.m.