Hello All Ive been away from this list for a while and am very rusty...
I need to know how to pass now(); or today(); to my date compare
the following works and returns the expected days
##############################################
# use strict ;
-w ;
use Date::Calc qw( Date_to_Days ) ;
my $year1, $year2 , $month1 ,$month2 ,$day1 , $day2 ,$daydiff ;
$year1 = 1990 ;
$month1 = 3 ;
$day1 = 6 ;
$year2 = 2002 ;
$month2 = 12 ;
$day2 = 11 ;
$daydiff = Date_to_Days($year2,$month2,$day2) -
(Date_to_Days($year1,$month1,$day1)) ;
print "$daydiff\n" ;
###############################################
however $year2, $month2, $day2 variables need to be the current date.....
I cant make heads or tails of the doc page
http://www.engelschall.com/~sb/download/Date-Calc/
this must be too obivious of a question... please bear with me
your help is appreciated
thanks
rob
--
Civilization is the process of reducing the infinite to the finite.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
