date - 获取该日期所在季度前一季度最后一天的日期

Question

给定一个日期，返回该日期所在季度前一个季度的最后一天的日期。例如

2020-04-25 => 2020-03-31
2020-06-25 => 2020-03-31
2020-09-25 => 2020-06-30
2020-10-25 => 2020-09-30

如果给定日期在第一季度，则减去年份1

2020-03-25 => 2019-12-31

标签： daterakuquarter

Answer 1

sub MAIN(Date(Str) $date) {
    say $date.earlier(months => ($date.month - 1) % 3 + 1).last-date-in-month
}

这至少需要 Rakudo 2020.05。