tbohon

This may be old news to some but at the same time may be of value to someone else.

I was recently faced with creating a date stamp for the previous day's date. Using some hints found online, I concocted the following routine which works nicely:



### function to build dstamp (date stamp for previous day's date)

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time - 86400);

$mon = $mon + 1;
$year = $year + 1900;

$dstamp = sprintf "%04d%02d%02d", $year, $mon, $mday;

### end of dstamp function



The nice thing is that the value 86400 in the call to 'localtime' is equivalent to one (1) day ... so, by adjusting this value, you can create the same sort of date stamp (format is YYYYMMDD) for any offset.

Enjoy!

Tom

__________________
My mind is like a steel whatchamacallit ...