File Coverage

blib/lib/Time/Tradedates.pm

Criterion	Covered	Total	%
statement	59	63	93.6
branch	15	20	75.0
condition	9	9	100.0
subroutine	5	5	100.0
pod	0	3	0.0
total	88	100	88.0

package Time::Tradedates;

use strict;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

our @EXPORT = qw( getNumDays lastTradeDay firstTradeDay );
our $VERSION = '0.1.2';


# Preloaded methods go here.

use Time::Local;


sub getNumDays
{
    my $etime = shift;

    my @months = ( "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" );
    my @wkdays = ( "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" );
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $etime );

    my $py = $year+1900;

    my $days = 0;

    if ( $mon <= 5 ) {
        if ( ($mon % 2) == 0 ) {
	    $days = 31;
        } elsif ( $mon == 1 ) {
	    if ( (($year+1900)%4) == 0 ) {
	        $days = 29;
	    } else {
	        $days = 28;
	    }
        } else {
	    $days = 30;
        }
    } elsif ( ($mon % 2) == 1 ) {
        $days = 31;
    } else {
        $days = 30;
    }

    return( $days );
}

sub lastTradeDay
{
    my $mon = shift;
    my $py = shift;
    my $minus = shift;

    my $days = &getNumDays( timelocal( 0,0,0,1,$mon,$py ) );

    my $lday=timelocal( 0,0,0,$days,$mon,$py);
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $lday );

    my $done = 0;

    while ( $done == 0 ) {
        if ( ($wday > 0) && ($wday < 6) ) {
        	$done = 1;
        } else {
            $days = $days-1;
            $lday=timelocal( 0,0,0,$days,$mon,$py);
            ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $lday );
    	}
    }
    if ( $minus != 0 ) {
	$minus = $minus * -1;
	if ( $minus > 1 ) {
	    return( 0 );
	}
	$mday=$mday - $minus;
	$lday = timelocal( 0,0,0,$mday,$mon,$py );
        ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $lday );

        my $done = 0;

        while ( $done == 0 ) {
            if ( ($wday > 0) && ($wday < 6) ) {
                $done = 1;
            } else {
                $days = $days-1;
                $lday=timelocal( 0,0,0,$days,$mon,$py);
                ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $lday );
            }
        }
    }

    return( $mday );
} # End sub lastBusDay

sub firstTradeDay
{
    my $mon = shift;
    my $py = shift;

    my $day = 1;
    my $fday=timelocal( 0,0,0,$day,$mon,$py);
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $fday );

    my $done = 0;

    while ( $done == 0 ) {
        if ( ($wday > 0) && ($wday < 6) ) {
                $done = 1;
        } else {
            $day = $day+1;
            $fday=timelocal( 0,0,0,$day,$mon,$py);
            ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( $fday );
        }
    }

    return( $mday );
}


1;
__END__