Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^6: Check if Date interval contains Hour X

by ikegami (Pope)
on Jul 23, 2009 at 21:44 UTC ( #782796=note: print w/replies, xml ) Need Help??


in reply to Re^5: Check if Date interval contains Hour X
in thread Check if Date interval contains Hour X

my $hour_span = DateTime::Span->from_datetimes( start => $dt, end => $dt );

should be

my $hour_span = DateTime::Span->from_datetimes( start => $dt, before => $dt->clone()->add( hours => 1 ), );

or the more readable

my $hour_span = DateTime::Span->new( start => $dt, hours => 1, );

Update: No, neither fix help. They were suppose to make the following match:

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

You need

sub hour_in_range { my ($dt_s, $dt_e, @hours) = @_; my $dt_span = DateTime::Span->from_datetimes( start => $dt_s, end => $dt_e ); for my $hour (@hours) { my $dt = $dt_s->clone() ->truncate( to => 'day' ) ->add( hours => $hour ); my $dt_tomorrow = $dt->clone()->add( days => 1 ); my $hour_span = DateTime::Span->new( start => $dt, hours => 1 )->union( DateTime::Span->new( start => $dt_tomorrow, hours => 1 )); return 1 if $dt_span->intersects($hour_span); } return 0; }

And there you go, the four DateTimes per hour I mentioned earlier.

Replies are listed 'Best First'.
Re^7: Check if Date interval contains Hour X
by alexm (Chaplain) on Jul 23, 2009 at 22:47 UTC

    And there you go, the four DateTimes per hour I mentioned earlier.

    Wow! I'm still a beginner with DateTime modules, and today I learnt a few things. Thanks a lot!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://782796]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2017-10-21 00:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (268 votes). Check out past polls.

    Notices?