You are right Jim, and I change the code to below and it is working.
lassign $xlateInVals pid_7_1 dob
set dob [string range $pid_7_1 0 7]
set date1 [clock scan $dob]
set date2 [clock seconds]
set elapsedDays [expr {($date2 – $date1) / (60 * 60 * 24)}]
echo “birthdate: $pid_7_1; dob: $elapsedDaysn”
set xlateOutVals $elapsedDays
