Re: DateTime from Rata Die?

[Dave Rolsky]

On Sat, 11 Oct 2003, Daisuke Maki wrote:

> Bah, answering my question...
>
>    my $rata_die = DateTime->new(year => 1, month => 1, day => 1);
>    my $from_rd  = $rata_die + DateTime::Duration->new(days => $rd_days);

That works, as does:

 { package DateTime::RataDie;
   sub utc_rd_values { @{$_[0]} }
 }

 my $dt = DateTime->from_object( object => bless [ $rd_days, 0, 0 ], 
'DateTime::RataDie' );

This is admittedly a bit sneaky ;)


-dave

/*=======================
House Absolute Consulting
www.houseabsolute.com
=======================*/