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
|
#!perl
BEGIN { eval { require bytes; }; }
use strict;
no strict "vars";
use Date::Pcalendar;
use Date::Pcalc::Object;
Date::Pcalc->date_format(2);
$cal = Date::Pcalendar->new( {} );
$date = $cal->add_delta_workdays(2002,11,11,-1);
print "\$date = $date\n";
$date = $cal->add_delta_workdays(2002,11,10,-1);
print "\$date = $date\n";
$date = $cal->add_delta_workdays(2002,11,9,-1);
print "\$date = $date\n";
$date = $cal->add_delta_workdays( $cal->add_delta_workdays(2002,11,11,+1), -2 );
print "\$date = $date\n";
$date = $cal->add_delta_workdays( $cal->add_delta_workdays(2002,11,10,+1), -2 );
print "\$date = $date\n";
$date = $cal->add_delta_workdays( $cal->add_delta_workdays(2002,11,9,+1), -2 );
print "\$date = $date\n";
__END__
|
