[ic] (no subject)

[Xavier GILLET]

Hi list,

I need to remove 30 days to this date format :

$today = sprintf "%04d%02d%02d%02d%02d%02d",
(localtime)[5]+1900,(localtime)[4]+1, (localtime)[3],(localtime)[2],
localtime)[1],(localtime)[0];

Thanks a lot for help.