使用日期：：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天是第一天后69天，因此使用70-1。