Help for this page
Select Code to Download
Select
or
download this
sub hour_in_range { my ($dt_s, $dt_e, @hours) = @_; ... return 0; }