I'm trying to use DateTime::Event::Sunset in my DateTime::Calendar::Hebrew module, but I'm having a problem. Below is my test code. The results from the code are:

2003-09-24T10:42:00
2003-09-24T22:48:00

Sunrise wasn't at 10:42 and the sun will set well before 22:48. Is there something I'm doing wrong?

Steve W.

#!/usr/local/bin/perl
use DateTime;
use DateTime::Event::Sunrise;

my $dt = DateTime->new(
    year   => 2003,
    month  => 9,
    day    => 24,
    time_zone => 'America/New_York',
);

my $sunrise = DateTime::Event::Sunrise->sunrise (
    longitude =>'-73.59',
    latitude =>'40.38',
    altitude => '-0.833',
    iteration => '1'
);

my $sunset = DateTime::Event::Sunrise->sunset (
    longitude =>'-73.59',
    latitude =>'40.38',
    altitude => '-0.833',
    iteration => '1'
);

my $rise = $sunrise->next($dt);
print $rise->datetime, "\n";

my $set = $sunset->next($dt);
print $set->datetime, "\n";



Reply via email to