I have an error popping up in an application that runs monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day of the month is here:
sub GetLastDayOfMonth {
my( $sec, $min, $hours, $mday, $mon, $year ) = localtime( $_[0
The error you have is you didn't use the module that already does this for
you.
use Data::Calc qw(Days_in_Month);
-Original Message-
From: Charlie Farinella [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 5:13 PM
To: Perl Beginners
Subject: Last day of Month
I
on Mon, 30 Sep 2002 21:12:56 GMT, Charlie Farinella wrote:
I have an error popping up in an application that runs monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day of the month is here:
sub GetLastDayOfMonth {
my
er... my bad.. typo
use Date::Calc qw(Days_in_Month);
-Original Message-
From: Nikola Janceski [mailto:[EMAIL PROTECTED]]
Sent: Monday, September 30, 2002 5:17 PM
To: 'Charlie Farinella'; Perl Beginners
Subject: RE: Last day of Month
The error you have is you didn't use
On Mon, 2002-09-30 at 17:18, Felix Geerinckx wrote:
on Mon, 30 Sep 2002 21:12:56 GMT, Charlie Farinella wrote:
I have an error popping up in an application that runs monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day
);
b) what's in the @monthDays array (and where it is defined).
our @monthDays= qw( 31 28 31 30 31 30 31 31 30 31 30 31 );
This code seems OK to me? When are you running the report? On the last day
of the month or the first day of the next month?
--
felix
--
To unsubscribe, e
From: Charlie Farinella
[EMAIL PROTECTED]
I have an error popping up in an application that runs monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day of the month is here:
sub GetLastDayOfMonth {
my
Charlie Farinella wrote:
I have an error popping up in an application that runs monthly reports
and everymonth seems to leave off the last day's entries.
The subroutine that determines the last day of the month is here:
sub GetLastDayOfMonth {
my( $sec, $min, $hours, $mday, $mon, $year
