多年来连续的一周过渡

Question

我正在尝试使用as.Date计算任何origin或基准日期的周偏差。 E.g：

bd = as.Date("2013-12-29")
ad1 = as.Date("2014-01-01")
ad1w = as.numeric(strftime(ad1, format = "%W"))
ad2 = as.Date("2015-04-20")
ad2w = as.numeric(strftime(ad2, format = "%W"))

给予：ad1w = 0，ad2w = 16。我希望ad1w和ad2w不是0和16，而是一个偏移到bd的数字。可能吗？原产地可以是任何日期。谢谢！

澄清一点。让我们说：

bd = as.Date("2013-12-25")
ad1 = as.Date("2015-01-07")
ad2 = as.Date("2015-01-06")

即。 bd是2013年的第51周，ad1和ad2都是2015年的第1周。两个偏移量应为54周，不进行四舍五入。