- my $days = (timegm(0,0,0,$6,$5-1,$4) - timegm(0,0,0,$3,$2-1,$1))/3600/24;
- my @firstday = localtime timelocal(0,0,0,$3,$2-1,$1);
- my $firstday = sprintf("%04d%02d%02d",($firstday[5]+1900),($firstday[4]+1),$firstday[3]);
- open(HOLIDAY, "today --category=holiday --date=$firstday+$days|") or return undef;
+ my $days = Delta_Days($1,$2,$3,$4,$5,$6);
+ my $firstday = Date::Calc->new($1,$2,$3);
+ my $lastday = Date::Calc->new($4,$5,$6);
+ my $year = Date::Calendar::Year->new($1, $Profiles->{'US-TX'});