Date addition-reg

[neelike]

Hi

Thaks for ur valuable info..........
my code is

my $total_nights="3";
$total_nights = "0".$total_nights if ((!($total_nights =~ 
/^0/)) && ($total_nights < 10));
my $start_date="2008-03-24";
my ($year,$mon,$day) = split/-/,$start_date;
                       $day=($day+$total_nights);
                       my @data =("$year","$mon","$day");
                        my $departure_date= join("-",@data);

but it makes issues on Feb and end of the 
months........Any comments???

Thanks,
Boniface........

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/