1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Date::Holidays::DE qw(holidays);
use Date::Business;
# Sample script for integration of Date::Holidays::DE with Date::Business
# Script by Martin Schmitt <mas at scsy dot de>
# Calculate the difference between two dates using three different
# methods from Date::Business
my $startdate = "20100329"; # Monday before Easter 2010
my $enddate = "20100412"; # Monday after Easter monday 2010
my $year = "2010"; # Not particularly elaborate, but okay for now
print "Abstand zwischen $startdate und $enddate...\n";
# 1. Not excluding weekends and holidays (Should be 14 days difference)
#
# Initialize start and ending dates
my $start1 = new Date::Business(DATE => $startdate);
my $end1 = new Date::Business(DATE => $enddate);
my $diff1 = $end1->diff($start1);
print "$diff1 Tage (Wochenenden und Feiertage unberuecksichtigt)\n";
# 2. Excluding weekends (Should be 10 days difference)
#
# Initialize start and ending dates
my $start2 = new Date::Business(DATE => $startdate);
my $end2 = new Date::Business(DATE => $enddate);
my $diff2 = $end2->diffb($start2);
print "$diff2 Tage (Wochenenden beruecksichtigt, Feiertage unberuecksichtigt)\n";
# 3. Excluding weekends and holidays (Should be 8 days difference)
#
# Prepare a subroutine for use by Date::Business
sub business_holiday{
my ($start, $end) = @_;
my $count;
# Get the holiday list from Date::Holidays::DE
my @holidays = @{holidays(YEAR=>$year,
FORMAT => "%Y%m%d", # This is important here
WEEKENDS => 0)};
foreach (@holidays){
# Count holidays between the start and end dates
$count++ if (($start <= $_) and ($_ <= $end));
}
return $count;
}
# Initialize start and ending dates including reference to the above subroutine
my $start3 = new Date::Business(DATE => $startdate,
HOLIDAY => \&business_holiday);
my $end3 = new Date::Business(DATE => $enddate,
HOLIDAY => \&business_holiday);
my $diff3 = $end3->diffb($start3);
print "$diff3 Tage (Wochenenden und Feiertage beruecksichtigt)\n";
exit 0;
|
