使用Date :: Calc的日期和日期

Question

如何使用Date::Calc获取年份和年份的日期？

我设法使用DateTime来解决这个问题，但我需要使用Date::Calc。

以下方法有效，但我不知道如何使用Date::Calc使它起作用。

use DateTime;

my $dt = DateTime->from_day_of_year(
    year        => 2018,
    day_of_year => 70,
);

# Prints the correct date of March something.
print($dt->strftime('%Y-%m-%d') . "\n"); 

到目前为止，我是

 use Date::Calc 'Add_Delta_Days';

 my $dt = Add_Delta_Days(2018, 70);

Answer 1

记录的用法是

  

($year,$month,$day) = Add_Delta_Days($year,$month,$day, $Dd);

所以

my ($y,$m,$d) = Add_Delta_Days(2018,1,1,70-1);

请注意，第70天是第1天之后的69天，因此使用70-1。