using terms from application "Address Book"
	on action property
		return "custom date"
	end action property
	
	on action title for p with e
		set theAge to my ageForDate(value of e)
		if label of e is equal to "Anniversary" then
			return "next is " & (theAge + 1 as string) & fancy(theAge + 1) & " anniversary"
		else
			-- set theAge to theAge as string
			return (theAge as string) & " years since then"
		end if
	end action title
	
	on should enable action for p with e
		return false
	end should enable action
	
	on perform action for p with e
		return true
	end perform action
	
end using terms from

on ageForDate(e)
	set d to current date
	set age to (year of d) - (year of e)
	if month of d < month of e then set age to age - 1
	if (month of d = month of e) and (day of d < day of e) then set age to age - 1
	return age
end ageForDate

on fancy(num)
	set idstr to "stndrdth"
	set wnum to (num mod 100)
	if (wnum > 10) and (wnum < 14) then
		set myend to "th"
	else
		set wnum to ((((num mod 10) - 1) * 2) + 1)
		if wnum > 5 then
			set myend to "th"
		else
			set myend to characters wnum thru (wnum + 1) of idstr as string
		end if
	end if
	return myend
end fancy

using terms from application "Address Book"
	on calculateDate(cdate)
		set age to ((year of (current date)) - 1 - (year of cdate))
		if (month of (current date) > (month of cdate)) then
			set age to age + 1
		else if (month of (current date) = (month of cdate)) then
			if (day of (current date) >= (day of cdate)) then
				set age to age + 1
			end if
		end if
		return age
	end calculateDate
	
	on action property
		return "custom date"
	end action property
	
	on action title for aPerson with aDate
		set userDate to calculateDate(value of aDate)
		if userDate <= 0 then
			return "Date Unknown"
		else
			return label of aDate & ":  " & ((userDate as string)) & " years"
		end if
	end action title
	
	on should enable action for aPerson with aDate
		set userDate to calculateDate(value of aDate)
		if userDate <= 0 then
			return false
		else
			return true
		end if
	end should enable action
	
	on perform action for aPerson with aDate
		set userDate to calculateDate(value of aDate)
		if userDate <= 0 then
			display dialog ("Date Unkown")
		else
			display dialog (label of aDate & ":  " & (userDate as string)) ¬
				& " years"
		end if
	end perform action
end using terms from