1
0

npc_age.qsrc 457 B

12345678910111213141516171819
  1. # npc_age
  2. currnpc_year = mid(npc_dob[$ARGS[0]], 1, 4)
  3. currnpc_month = mid(npc_dob[$ARGS[0]], 5, 2)
  4. currnpc_day = mid(npc_dob[$ARGS[0]], 7, 2)
  5. currnpc_age = year - currnpc_year
  6. if currnpc_month < month:
  7. currnpc_age -= 1
  8. elseif currnpc_month = month and currnpc_day < day:
  9. currnpc_age -= 1
  10. end
  11. RESULT = currnpc_age
  12. killvar 'currnpc_year'
  13. killvar 'currnpc_month'
  14. killvar 'currnpc_day'
  15. killvar 'currnpc_age'
  16. --- npc_age ---------------------------------