如何提取自定义日历后的周数，周日开始周日日期，月份和年份？
例如
2016财年第1周开始于2015-12-27，并于2016-01-2（周日至周六）结束
2016年第1个财政月度开始于2015-12-27，2016年1月23日结束
2016财年开始于2015-12-27，结束于2016-12-31
我的数据集已经包含了“日期”数据。格式为y-m-d的列。我希望得到一个能够解释所有年份（2016,2017,2018,2019 ..）的一次性代码和未来数据集中的日期范围的日期。
我尝试使用下面的代码，但由于我的数据集中的第一个日期范围是在星期一（2016-04-04）开始的，所以它没有用。因为我是R的初学者，所以会受到任何指导。
require(lubridate)
DropGTRow$FW <- as.numeric(strftime(DropGTRow$Date, format = "%U")) + 1
DropGTRow$FY <- as.numeric(strftime(DropGTRow$Date, format = "%Y"))
DropGTRow$FM <- as.numeric(strftime(DropGTRow$Date, format = "%m"))
DropGTRow$FW_Date <- as.numeric(strftime(DropGTRow$Date, format="%m/%d/%y"))
DropGTRow$Weekday <- weekdays(DropGTRow$Date)
首选输出：
Date FW FW_Date FM FY
4/4/2016 15 4/3/2016 4 2016
4/5/2016 15 4/3/2016 4 2016
4/6/2016 15 4/3/2016 4 2016
4/7/2016 15 4/3/2016 4 2016
4/8/2016 15 4/3/2016 4 2016
4/9/2016 15 4/3/2016 4 2016
4/10/2016 16 4/10/2016 4 2016
4/11/2016 16 4/10/2016 4 2016
4/12/2016 16 4/10/2016 4 2016
4/13/2016 16 4/10/2016 4 2016
4/14/2016 16 4/10/2016 4 2016
4/15/2016 16 4/10/2016 4 2016
4/16/2016 16 4/10/2016 4 2016
4/17/2016 17 4/17/2016 4 2016
4/18/2016 17 4/17/2016 4 2016
4/19/2016 17 4/17/2016 4 2016
4/20/2016 17 4/17/2016 4 2016
4/24/2016 18 4/24/2016 5 2016
12/27/2015 1 12/27/2015 1 2016
12/28/2015 1 12/27/2015 1 2016
12/29/2015 1 12/27/2015 1 2016
12/30/2015 1 12/27/2015 1 2016
12/31/2015 1 12/27/2015 1 2016
1/1/2016 1 12/27/2015 1 2016
1/2/2016 1 12/27/2015 1 2016
1/3/2016 2 1/3/2016 1 2016
1/4/2016 2 1/3/2016 1 2016