56 lines
1.9 KiB
Perl
Executable File
56 lines
1.9 KiB
Perl
Executable File
use strict;
|
|
|
|
package DDG::Goodie::WorkdaysBetween;
|
|
# ABSTRACT: Give the number of work days between two given dates. Does not
|
|
# consider holidays.
|
|
|
|
use DDG::Goodie;
|
|
with 'DDG::GoodieRole::Dates';
|
|
|
|
use Date::Calendar;
|
|
use Date::Calendar::Profiles qw($Profiles);
|
|
|
|
triggers start => "workdays between", "business days between", "work days between", "working days", "workdays from";
|
|
|
|
zci answer_type => "workdays_between";
|
|
zci is_cached => 0;
|
|
|
|
primary_example_queries 'workdays between 01/31/2000 01/31/2001';
|
|
description 'Calculate the number of workdays between two dates. Does not consider holidays.';
|
|
name 'WorkDaysBetween';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/WorkdaysBetween.pm';
|
|
category 'calculations';
|
|
topics 'everyday';
|
|
attribution github => ['http://github.com/mgarriott', 'Matt Garriott'];
|
|
|
|
my $datestring_regex = datestring_regex();
|
|
|
|
handle remainder => sub {
|
|
my $query = $_;
|
|
|
|
return unless ($query =~ qr/($datestring_regex) (?:(?:and|to) )?($datestring_regex)/i);
|
|
my ($start_date, $end_date) = parse_all_datestrings_to_date($1, $2);
|
|
|
|
return unless ($start_date && $end_date);
|
|
|
|
($start_date, $end_date) = ($end_date, $start_date) if (DateTime->compare($start_date, $end_date) == 1);
|
|
|
|
my $calendar = Date::Calendar->new($Profiles->{US});
|
|
my $workdays = $calendar->delta_workdays($start_date->year(), $start_date->month(), $start_date->day(), $end_date->year(), $end_date->month(), $end_date->day(), 1, 1);
|
|
|
|
my $start_str = date_output_string($start_date);
|
|
my $end_str = date_output_string($end_date);
|
|
|
|
my $verb = $workdays == 1 ? 'is' : 'are';
|
|
my $number = $workdays == 1 ? 'Workday' : 'Workdays';
|
|
|
|
return "There $verb $workdays $number between $start_str and $end_str.",
|
|
structured_answer => {
|
|
input => [$start_str, $end_str],
|
|
operation => "$number between",
|
|
result => $workdays
|
|
};
|
|
};
|
|
|
|
1;
|