Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
tools	[ DIR ]	drwxr-xr-x
EXAMPLES.txt.gz	7.24 KB	-rw-r--r--
TOOLS.txt.gz	1.98 KB	-rw-r--r--
age_in_days_eu.pl.gz	1.42 KB	-rw-r--r--
age_in_days_us.pl.gz	1.42 KB	-rw-r--r--
anniversaries.pl	2.26 KB	-rwxr-xr-x
bug.pl	764 B	-rwxr-xr-x
cal.c	2.71 KB	-rw-r--r--
calendar.pl.gz	5.65 KB	-rw-r--r--
datecalc.pl.gz	2.03 KB	-rw-r--r--
delta.pl	2.54 KB	-rwxr-xr-x
holidays.pl	1.98 KB	-rwxr-xr-x
income.pl	2.86 KB	-rwxr-xr-x
linearcal.pl	1.94 KB	-rwxr-xr-x
nth_weekday.pl	2.24 KB	-rwxr-xr-x
time.pl	1.28 KB	-rwxr-xr-x
vacation.pl	1016 B	-rwxr-xr-x
weiberfastnacht.pl	1.28 KB	-rwxr-xr-x

Code Editor : delta.pl

#!/usr/bin/perl -w

###############################################################################
##                                                                           ##
##    Copyright (c) 2000 - 2009 by Steffen Beyer.                            ##
##    All rights reserved.                                                   ##
##                                                                           ##
##    This program is free software; you can redistribute it                 ##
##    and/or modify it under the same terms as Perl itself.                  ##
##                                                                           ##
###############################################################################

BEGIN { eval { require bytes; }; }
use strict;
use Date::Pcalc qw(:all);

my $self = $0; $self =~ s!^.*/!!;

die "Usage: $self year1 month1 day1 year2 month2 day2\n" unless (@ARGV == 6);

my @date1;
my @date2;

if (Delta_Days(@ARGV) < 0)
{
    @date1 = (@ARGV)[3,4,5];
    @date2 = (@ARGV)[0,1,2];
}
else
{
    @date1 = (@ARGV)[0,1,2];
    @date2 = (@ARGV)[3,4,5];
}

print "\n", Date_to_Text(@date1), "\n", Date_to_Text(@date2), "\n";

$date1[2] = 1;
$date2[2] = 1;

while (Delta_Days(@date1,@date2) >= 0)
{
    print Calendar((@date1)[0,1]);
    @date1 = Add_Delta_YMD(@date1,0,1,0);
}

print "Difference: ", Delta_Business_Days(@ARGV), " Business Days.\n\n";

exit;

sub Delta_Business_Days
{
    my(@date1) = (@_)[0,1,2];
    my(@date2) = (@_)[3,4,5];
    my($minus,$result,$dow1,$dow2,$diff,$temp);

$minus  = 0;
    $result = Delta_Days(@date1,@date2);
    if ($result != 0)
    {
        if ($result < 0)
        {
            $minus = 1;
            $result = -$result;
            $dow1 = Day_of_Week(@date2);
            $dow2 = Day_of_Week(@date1);
        }
        else
        {
            $dow1 = Day_of_Week(@date1);
            $dow2 = Day_of_Week(@date2);
        }
        $diff = $dow2 - $dow1;
        $temp = $result;
        if ($diff != 0)
        {
            if ($diff < 0)
            {
                $diff += 7;
            }
            $temp -= $diff;
            $dow1 += $diff;
            if ($dow1 > 6)
            {
                $result--;
                if ($dow1 > 7)
                {
                    $result--;
                }
            }
        }
        die "Assert failed" unless (($temp % 7) == 0);
        if ($temp != 0)
        {
            $temp /= 7;
            $result -= ($temp << 1);
        }
    }
    if ($minus) { return -$result; }
    else        { return  $result; }
}

__END__

${this.title}

Code Editor : delta.pl