sub isFullYear{
my$startDay=shift;
my$endDay=shift;
my$sMon=shift;
my$eMon=shift;
my$fullYear;
if ( NumberOfDaysBetween($startDay,$endDay ,$endDay,$eMon) == 365){
	$fullYear=365;
	}
	return $fullYear;
}


##</code><code>##

my$years= ($cy-$y) * isFullYear($d,$cd ,$m,$cm);
$days= $days + NumberOfDaysBetween($d,31,$m,12) + NumberOfDaysBetween(1,$cd,1,$cm) + $years;
	print "$days";