It's fair enough to use 86,400 sec in a day. But what about adding days or
months?
That is, rolling past 28,29,30 or 31 days in a particular month.
thanks
-rkl
---
> I thought of that right after hitting send...
>
> This may be better if he wants to do a lot of date manipulation down the
> road:
>
> #!/usr/bin/perl -w
>
> use Date::Manip;
>
> my ($day, $mnth, $yr);
> my $date = DateCalc("today","- 1day");
> ($yr, $mnth, $day) = ($date =~ /(\d\d\d\d)(\d\d)(\d\d)/);
> print "Yesterday was $mnth/$day/$yr\n";
>
>
>
>>>> Bob Showalter <[EMAIL PROTECTED]> 10/10/03 12:20PM >>>
> Bill Akins wrote:
>> ...
>> Try this:
>> #!/usr/bin/perl -w
>>
>> my @now = localtime;
>> my $sec = ( $now[0] );
>> my $min = ( $now[1] );
>> my $hr = ( $now[2] );
>> my $day = ( $now[3] );
>> my $mth = ( $now[4] + 1 );
>> my $yr = ( $now[5] + 1900 );
>>
>> $day = ($day -1);
>> print "Yesterday was $mth/$day/$yr\nor if on the other side
>> of the pond, $day/$mth/$yr\n";
>
> What if today is the first of the month?
>
> Better to use something like:
>
> ($d, $m, $y) = (localtime(time - 86_400))[3..5];
> $m++;
> $y += 1900;
>
> IOW, have the system calculate local time for current epoch - 86,400
> seconds (# of seconds in a day).
>
>
>
-----------------------------------------
eMail solutions by
http://www.swanmail.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
