Mark Frater wrote:
>
> I'm missing something..
>
> use Date::Manip;
> $paidto ="Mon May 19 23:00:00 2003 NZST";
> $newpaid = &DateCalc($paidto,"+3 month",\$err);
> print "paidto =$paidto\n";
> print "newpaid = $newpaid\n";
>
> output
> paidto =Mon May 19 23:00:00 2003 NZST
> newpaid =
I switched the position of "NZST" in $paidto:
$paidto ="Mon May 19 23:00:00 NZST 2003";
^^^^
Now I get what you wanted:
paidto =Mon May 19 23:00:00 NZST 2003
newpaid = 2003081912:00:00
Greetings,
Andrea
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
