ABAP 字符串转日期函数

DATA: v_date TYPE sy-datum.

PARAMETERS: p_dates TYPE string.

INITIALIZATION.
  p_dates = 'a0080313'.    "Le type DATUM est de type caractere, il accepte tout et donc n'importe quoi


START-OF-SELECTION.
  CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
    EXPORTING
      date_external            = p_dates
    IMPORTING
      date_internal            = v_date
    EXCEPTIONS
      date_external_is_invalid = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    WRITE: / v_date.
  ENDIF.