9

我需要像这样拆分 ABAP 日期

20091101 --> "01", "november", "2009"

“01”和“2009”是微不足道的，但我如何获得月份名称（应该本地化）？

有这样做的功能吗？

如果没有这样的功能，也许是带有月份名称的表？

4

8 回答 8

8

您可以使用模块函数''获取给定语言的月份名称MONTH_NAMES_GET，将语言作为参数传递。日期（例如星期日）也可以使用 ' RH_GET_DATE_DAYNAME'

纪尧姆

于 2009-10-13T11:52:59.293 回答
3

我认为最简单的方法是将转换出口 LDATE 应用于您的日期字段。最简单的是调用函数模块CONVERSION_EXIT_LDATE_OUTPUT。

例如，这将转换

20090101

到

01. January 2009

（除非您实际上需要将日期、月份文本和年份放在单独的字符串中，您似乎已经指出了这一点。无论如何，也许它会对其他人有所帮助）。

于 2011-07-07T18:49:24.247 回答
3

此代码将为您提供长文本格式的日期，例如“2011 年 12 月 2 日”。您可以相应地更改代码以打印具有长 MONTH 名称的日期。

DATA: LONG_DATE(20).
PERFORM GET_LONG_DATE USING LONG_DATE.
WRITE: LONG_DATE.

FORM GET_LONG_DATE USING DATE.

DATA: T_MONTH_NAMES LIKE TABLE OF T247 WITH HEADER LINE.

CALL FUNCTION 'MONTH_NAMES_GET'
 EXPORTING
   LANGUAGE     = SY-LANGU
  TABLES
    MONTH_NAMES = T_MONTH_NAMES
  .

DATA: YEAR(4)   TYPE C,
      MONTH(2)  TYPE C,
      DAY(2)    TYPE C.

YEAR = SY-DATUM+(4).
MONTH = SY-DATUM+4(2).
DAY = SY-DATUM+6(2).


READ TABLE T_MONTH_NAMES INDEX ( MONTH ).

CONCATENATE T_MONTH_NAMES-LTX ' ' DAY  INTO DATE SEPARATED BY SPACE.
CONCATENATE DATE ',' INTO DATE.
CONCATENATE DATE YEAR INTO DATE SEPARATED BY SPACE.

WRITE / DATE.

ENDFORM.
于 2011-12-02T07:24:05.600 回答
2 
* to get full name of the day / month also can use


          GET_MONTH_NAME ... for month and 
            GET_DATE_DAYNAME for the specific day name too

和其他获取其他格式日期的方法是

  • 使用 WRITE 语句

            data: get_date(10).  "field to store output date

    • 将 SAP 日期从 20130901 转换为 01.09.2013

          write sy-datum to get_date dd/mm/yyyy.

    • 将 SAP 日期从 20130901 转换为 01.09.13

          write sy-datum to get_date dd/mm/yy.

    • 使用数据操作技术

      data: get_date(8).  "field to store output date

    • 将 SAP 日期从 20130901 转换为 01092013

           get_date(2)   = sy-datum+6(2).
     get_date+2(2) = sy-datum+4(2).
     get_date+4(4) = sy-datum(4).

    • 使用功能模块

          data: get_date(8).  "field to store output date

    • 将日期从 20130901 转换为 01SEP2013

          get_date   = sy-datum.

      调用函数'CONVERSION_EXIT_IDATE_OUTPUT'

             EXPORTING

  input         = get_date

        IMPORTING

     OUTPUT        = get_date.

      这些您可以用于特定日期/月份和年份的所有格式

于 2013-11-29T11:23:33.453 回答
1

通常您还可以将日期导出为工厂级别的国家/地区特定日期格式：

if w_country is initial.
  select single LAND1
    from T001W
    into w_country
   where WERKS eq w_the_plant.
endif.

SET COUNTRY w_country.

write w_the_date to w_export.
于 2013-12-24T03:11:18.627 回答
0

您可以使用简单的 FM 'MONTH_NAMES_GET'

CALL FUNCTION 'MONTH_NAMES_GET'
  EXPORTING
    LANGUAGE = SY-LANGU
* IMPORTING
* RETURN_CODE =
  TABLES
    month_names = it_t247
  EXCEPTIONS
    MONTH_NAMES_NOT_FOUND = 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.
ENDIF.
于 2011-05-12T11:47:19.320 回答
-1 
PARAMETERS: P_1 TYPE SY-DATUM.

DATA : LV_DATE TYPE SY-DATUM,LV_TIME TYPE SY-UZEIT,lv_month type string.
        LV_TIME = SY-UZEIT.

DATA: YEAR(4)   TYPE C,
      MONTH(2)  TYPE C,
      DAY(2)    TYPE C.
      YEAR = P_1+0(4).
      MONTH = P_1+4(2).
      DAY = P_1+6(2).
      IF MONTH = '01'.
      lv_month = 'JAN'.


     ELSEIF Month = '02'.
     lv_month = 'Feb'.
     ELSEIF Month = '03'.
     lv_month = 'Mar'.
     ELSEIF Month = '04'.
     lv_month = 'Apr'.
     ELSEIF Month = '05'.
     lv_month = 'May'.
     ELSEIF Month = '06'.
     lv_month = 'Jun'.
     ELSEIF Month = '07'.
     lv_month = 'Jul'.
     ELSEIF Month = '08'.
     lv_month = 'Aug'.
     ELSEIF Month = '09'.
     lv_month = 'Sep'.
     ELSEIF Month = '10'.
     lv_month = 'Oct'.
     ELSEIF Month = '11'.
     lv_month = 'Nov'.
     ELSEIF Month = '12'.
     lv_month = 'Dec'.
     ENDIF.
   WRITE: '|',day NO-GAP,'-',
  lv_month NO-GAP,'-',year NO-GAP.
于 2018-01-31T14:05:13.013 回答
-2 
data : lv_timestamp TYPE string,
         lv_str TYPE STRING.
  concatenate sy-datum sy-uzeit  into lv_timestamp.
concatenate 'C:\Users\Roopa Rani\desktop\header' '_'  lv_timestamp '.txt' INTO FILEPATH.

我认为它很有用。

于 2014-05-14T09:20:29.737 回答