;
>
> Steve
>
>
>
> *From:* Perl Perl [mailto:perl.solut...@gmail.com]
> *Sent:* Wednesday, February 25, 2009 5:52 PM
> *To:* Steve Howard (PFE)
> *Cc:* perl-win32-users@listserv.activestate.com
> *Subject:* Re: Commaring Two dates or month
>
>
>
> Thanks a lot St
ays\n";
Hope this helps.
Steve
From: Perl Perl [mailto:perl.solut...@gmail.com]
Sent: Wednesday, February 25, 2009 5:52 PM
To: Steve Howard (PFE)
Cc: perl-win32-users@listserv.activestate.com
Subject: Re: Commaring Two dates or month
Thanks a lot Steve,
I tried using y to use Date::Calc
Hi.
use Time::Local;
%months = qw/Jan 1 Feb 2 Mar 3/; # etc.
($day, $mon, $yr) = split/-/, "5-Feb-09";
##$time = timelocal($sec,$min,$hour,$mday,$mon,$year); see perldoc Time::Local
$time = timelocal(0,0,0,$day,$months{$mon} - 1, $yr + 100);
$now = time();
$diff = $now - $time;
print "now $now, ti
gt;
>
>
> Steve
>
>
>
> *From:* perl-win32-users-boun...@listserv.activestate.com [mailto:
> perl-win32-users-boun...@listserv.activestate.com] *On Behalf Of *Perl
> Perl
> *Sent:* Tuesday, February 24, 2009 10:08 AM
> *To:* perl-win32-users@listserv
-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Perl
Perl
Sent: Tuesday, February 24, 2009 10:08 AM
To: perl-win32-users@listserv.activestate.com
Subject: Commaring Two dates or month
Dear All,
I have to compare two
Dear All,
I have to compare two dates. And populate the result based on that.
First date I have received from previous script, which in this form
5-Feb-09.
And I have to compare this date with current date, locatime() . With the
localtime() I will get the current Day (24),Month (2) & year