File Coverage

blib/lib/Date/DayOfNthWeek.pm

Criterion	Covered	Total	%
statement	9	67	13.4
branch	0	66	0.0
condition	0	33	0.0
subroutine	3	6	50.0
pod	0	3	0.0
total	12	175	6.8

package Date::DayOfNthWeek;

our $VERSION = '1.0';

use 5.005;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(day_week last_week first_week) ]  );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw();

sub day_week($$) {

	my $day = shift;
	my $week = shift;

	die "your day is out of the range 0 - 6 Sunday==0\n" unless ((0 <= $day) && ( $day <= 6));
	die "Your week of the month is out of range (Range is 1-6)\n" unless ((1 <= $week) && ( $week <= 6));

	my (undef,undef,undef,$mday,undef,undef,$wday,undef,undef) = localtime;

# return unless the days match
	return 0 unless $wday == $day;

	my $date = $mday-1;

	my %hash = ();

	for my $c (0 ..6 ) {
		my $a  = $date+$c;
		my $key = $a%7;
		my $w    = (int($a/7))+1;
		$hash{$key} = $w;
	}

	my $q = $hash{$wday};

	return 0 unless $q == $week;

	return 1;
}

sub last_week($) {

	my $day  = shift;

	die "your day is out of the range 0 - 6   Sunday==0\n" unless ((0 <= $day) && ( $day <= 6));

	my (undef,undef,undef,$mday,$mon,$year,$wday,undef,undef) = localtime;

	return 0 unless $wday == $day; # return unless the days match

	my $max = 0;

	# how many days in the month?
	#  0   1   2   3   4   5   6   7   8   9   10  11
	# Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
    # 31  28  31  30  31  30  31  31  30  31  30  31

	# This is laid out like this because using || was not giving me the correct
    # answer each time.

	if ($mon == 0 ) { $max=31;}     # January
                                 	# if the month is February is it a leap year?
	elsif ($mon == 1 ) {                            # This is to account for leap
		if ( $year % 4 ) { $max = 28; }             # years.  Which works like this:
		else {                                      # if year%4 != 0  it is a
			if  ( $year % 100 ) { $max = 28; }      # non-leap year, so Feb has 28 days.
			else { $max = 29; }                     # If year%4 == 0 it could be a leap
		}                                           # year.  If the year ends in 00,
	}                                               # Feb has 28 days, otherwise it
                                                    # has 29 days and is a leap year.
	elsif ($mon == 2 ) {$max=31; }  # March
	elsif ($mon == 3 ) {$max=30; }  # April
	elsif ($mon == 4 ) {$max=31; }  # May
	elsif ($mon == 5 ) {$max=30; }  # June
	elsif ($mon == 6 ) {$max=31; }  # July
	elsif ($mon == 7 ) {$max=31; }  # August
	elsif ($mon == 8 ) {$max=30; }  # September
	elsif ($mon == 9 ) {$max=31; }  # October
	elsif ($mon == 10 ) {$max=30; } # November
	elsif ($mon == 11 ) {$max=31; } # December
	else  { die "your month is out of the range 0 - 11\n"; }


	return 1 if $mday == $max;   # if it is the last day of the month, it has to be the last week of the month.

    my $diff = $max - $mday;

	return 0 if ($diff > 6);     # date can't be in the last week because
                                 # there is more than 7 days left in the month.

	if (($wday == 6) && ($diff >0)) {
		return 0;
	}
	elsif (($wday == 5) && ($diff >1)) {
		return 0;
	}
	elsif (($wday == 4) && ($diff >2)) {
		return 0;
	}
	elsif (($wday == 3) && ($diff >3)) {
		return 0;
	}
	elsif (($wday == 2) && ($diff >4)) {
		return 0;
	}
	elsif (($wday == 1) && ($diff >5)) {
		return 0;
	}
	elsif (($wday == 0) && ($diff >6)) {
		return 0;
	}
	else {
		return 1;
	}
}

sub first_week($) {

	my $day = shift;

	die "your day is out of the range 0 - 6   Sunday==0\n" unless ((0 <= $day) && ( $day <= 6));

	my (undef,undef,undef,$mday,undef,undef,$wday,undef,undef) = localtime;

	return 0 if $mday > 7;         # can't be the first week of the month if it is after the 7th

	return 0 unless $wday == $day; # return unless the days match

	return 0 if ($mday-$day) > 1; #

	return 1;
}


1;
__END__