आर

Question

में वास्तविक/365 सम्मेलन का उपयोग करके वर्ष के अंश क्या कोई समारोह/पैकेज है जो अलग-अलग दिन-गणना सम्मेलन के साथ वर्ष अंश (दो तिथियों के बीच अंतर) की गणना कर सकता है, जैसे सालफ्रैक() मैटलैब में? मुझे वास्तविक/365 सम्मेलन का उपयोग करने की आवश्यकता है।

Answer 1

rollYourOwn <- function(D, origin=as.Date("1970-01-01")) { 
    if (!inherits(D, "Date")) 
    D <- as.Date(D, origin=origin) 
    as.numeric(D - as.Date(format(D, "%Y-01-01"), origin=origin) + 1)/365 
} 

rollYourOwn("2014-01-01") 
# [1] 0.00273973 

rollYourOwn(Sys.Date()) 
# [1] 0.742466 

rollYourOwn("2014-12-31") 
# [1] 1