ABAP: Calcular edad

Para no tener que pensarlo dos veces ...

    DATA begda TYPE begda.
    DATA endda TYPE endda.
    DATA handler TYPE REF TO  if_hrpa_message_handler.
    DATA i_edad TYPE num2.

    begda = e_invpers_iotab-birthdate.
    endda = sy-datum.

    CALL FUNCTION 'HR_ECM_GET_PERIOD_BETW_DATES'
      EXPORTING
        begda           = begda
        endda           = endda
        message_handler = handler
      IMPORTING
        num_years       = i_edad.