Re^2: Check if Date interval contains Hour X

[alexm]

Another (maybe simpler) way of truncating:

sub hour_in_range {
    my ($dt_s, $dt_e, @hours) = @_;

    for my $hour (@hours) {
        my $dt = $dt_s->clone()
                      ->truncate( to => 'day' )
                      ->add( hours => $hour );

        $dt->add( days => 1 ) if $dt < $dt_s;

        return 1 if $dt <= $dt_e;
    }

    return 0;
}

[ikegami]

That introduced a bug. hour_in_range no longer performs as documented. Test case:

2010-10-10 01:59:59|2010-10-10 01:59:59|blablalblabla

[alexm]

I see. In order to check only the hour (skipping minutes and seconds), $dt_s must be truncated to the hour.