Reply To: does anyone have a tps to calcuate age

January 17, 2006 at 3:02 pm #58184

Participant

Nancy,

Assuming we have 365 days a year, this should give you the age. It’s an Xltp.



Code:


proc xltGetAge {} {

    upvar xlateId       xlateId

	  xlateInList   xlateInList

	  xlateInTypes  xlateInTypes

	  xlateInVals   xlateInVals

	  xlateOutList  xlateOutList

	  xlateOutTypes xlateOutTypes

	  xlateOutVals  xlateOutVals
	set dob [lindex $xlateInVals 0]

	set age [expr {([getclock] – [clock scan $dob])/86400/365}]

	set xlateOutVals $age

}

Hope this helps,

Sam 8)