Я сделал это в VBA в моем Excel, он округляет даты до ближайших дат окончания квартала.Есть ли простой способ сделать это в R?
Если нет, то вот мой код VBA, возможно ли перевести это на R?Этот код перебирает каждый элемент на вкладке «Файл» и переводит его дату в дату окончания квартала.
Dim AppDate As Date
Dim MidQuarter As Date
Dim Dte As Date
y = 3
Sheets("File").[B1].Formula = "=Counta(A:A)"
Num_Files = Sheets("File").Range("B1").Value
ReportDate = “12/31/2018”
Do Until y > Num_Files
Dte = Worksheets("File").Cells(y, 27)
'this section turns Dte into the last day of the nearest quarter.
MidQuarter = Int(Application.Average(DateAdd("q", Format(Dte, "q"), "1/1/" &
Year(Dte)), DateAdd("q", Format(Dte, "q") - 1, "1/1/" & Year(Dte))))
AppDate = DateSerial(Year(Dte), 3 * (Format(Dte, "q") + (Dte < MidQuarter)) + 1, 0)
Worksheets("File").Cells(y, 78).Value = AppDate
y = y + 1
Loop
Был задан аналогичный вопрос, но он охватывает только даты квартала.Это не помогает с округлением до ближайшего квартала.
Вот пример того, что я ищу:
- Если дата 15.01.2008, она будет округленадо 31.12.2017.
- Если дата 02/10/2018, она будет округлена до 31.12.2017.
- Если дата 25.02.2008, она будет округлена до 03/31/2018.