This might do the work:

#!/usr/bin/perl -w

use strict;

print CompareDates(
    {
        DATE_1 => "01/10/2006 4:39:11 PM",
        DATE_2 => "02/10/2006 4:39:11 PM",
        LIMIT => 72, # Hours
        PATTERN => '%d/%m/%Y %l:%M:%S %P' # Optional
    }
);

print CompareDates(
    {
        DATE_1 => "01/10/2006 4:39:11 PM",
        DATE_2 => "04/10/2006 4:39:11 PM",
        LIMIT => 72, # Hours
    }
);

print CompareDates(
    {
        DATE_1 => "01/10/2006 4:39:11 PM",
        DATE_2 => "06/10/2006 4:39:11 PM",
        LIMIT => 72, # Hours
    }
);


sub CompareDates {

    my $params = shift;

    use DateTime::Format::Strptime;
    my $parser = DateTime::Format::Strptime->new(
        pattern => $params->{PATTERN} || '%d/%m/%Y %l:%M:%S %P'
    );

    my $dt1 = $parser->parse_datetime($params->{DATE_1});
    my $dt2 = $parser->parse_datetime($params->{DATE_2});
    my $dtchk = $dt2->subtract(hours=>$params->{LIMIT});

    my $pref = "The difference between '$params->{DATE_1}' AND
    '$params->{DATE_2}' is";
    my $suf = "$params->{LIMIT} hours.\n";
    
    return "$pref bigger than $suf" if ($dtchk > $dt1);
    return "$pref equal to $suf" if ($dtchk == $dt1);
    return "$pref smaller than $suf" if ($dtchk < $dt1);

}
[download]

Prints:

The difference between '01/10/2006 4:39:11 PM' AND
        '02/10/2006 4:39:11 PM' is smaller than 72 hours.
The difference between '01/10/2006 4:39:11 PM' AND
        '04/10/2006 4:39:11 PM' is equal to 72 hours.
The difference between '01/10/2006 4:39:11 PM' AND
        '06/10/2006 4:39:11 PM' is bigger than 72 hours.
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.