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;
}