Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: Checking if a given date falls between 2 other specific dates

by monsterzero (Monk)
on Apr 20, 2006 at 23:43 UTC ( #544740=note: print w/replies, xml ) Need Help??

in reply to Checking if a given date falls between 2 other specific dates

You did not specify what format your dates are in. But no matter, DateTime can handle most date/time functions.
use strict; use warnings; use DateTime; use DateTime::Span; use Datetime::Format::ISO8601; my $iso8601 = DateTime::Format::ISO8601->new; while (<DATA>) { my ( $first, $last ) = split('\|'); chomp $last; my $dt_set = DateTime::Span->from_datetimes( start => $iso8601->parse_datetime($first), before => $iso8601->parse_datetime($last), ); if ( $dt_set->contains( DateTime->now() ) ) { print "Within date range\n"; } else { print "Not within date range\n"; } } __DATA__ 1998-02-14|1998-03-01 2006-04-10|2006-06-01
I hope this helps.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://544740]
[choroba]: Syntax::Construct version 1.005 released to CPAN. The main change: 5.28 support.

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2018-06-25 00:34 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.