Функции работы с датами

[Uukrul]

Функций для работы с датами к сожалению в системе написано много, ощущение, что каждый индус (как каждый хомячок, которому в жизни требуется нажраться и сдохнуть) должен был при возникновении потребности в расчете даты писать свою реализацию. Может это было бы и неплохо, если бы не одно, но... некоторые функции учитывают рабочий календарь, другие нет... третьи вообще не знают что есть высокосные года (может в Индии их просто нет), четвертые просто содержать ошибку при расчетах и т.д. В общем у кого есть свой наработанный материал по работе с датами и есть время поделится, пишем. Небольшая подборка которой пользуюсь:

Код Виділити Розширити


* Возвращает номер недели для даты: в формате YYYYWW (YYYY - Год, WW - Неделя)

DATA: l_week LIKE scal-week.
                                                                       
CALL FUNCTION 'DATE_GET_WEEK'
     EXPORTING
          date         = sy-datum
     IMPORTING
          week         = l_week
     EXCEPTIONS
          date_invalid = 1
          OTHERS       = 2.


Код Виділити Розширити


* Возвращает дату с которой начинается неделя по ее номеру.
* Номер недели в формате  YYYYWW (YYYY - Год, WW - Неделя)
* Дата в стандартном формате типа SY-DATUM (YYYYMMDD, YYYY - Год, MM - Месяц, DD - День)
DATA: l_week LIKE scal-week,
      l_datum like sy-datum.

CALL FUNCTION 'WEEK_GET_FIRST_DAY'
  EXPORTING
    week               = l_week
IMPORTING
   DATE               = l_datum
EXCEPTIONS
   WEEK_INVALID       = 1
   OTHERS             = 2.                                                                       


Код Виділити Розширити


* Возвращает дату последнего дня в месяце, в принципе можно использовать так же
* для получения количества дней в месяце. О высокосном годе знает ;)
* Дата передается и возвращается в стандартном формате типа SY-DATUM (YYYYMMDD,
* YYYY - Год, MM - Месяц, DD - День)
DATA: l_datum LIKE sy-datum.

CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
     EXPORTING
          day_in            = sy-datum
     IMPORTING
          last_day_of_month = l_datum
     EXCEPTIONS
          day_in_no_date    = 1
          OTHERS            = 2.


Код Виділити Розширити


* Выполняет преобразование внутреннего представления даты в стандартный вид
* типа SY-DATUM. Я знаю только одну ситуацию, где используется такое, это таблица
* курсов валют TCURR, там все даты заданы именно во внутреннем формате.
* Передается дата  в формате вида  TCURR-GDATU, а возвращается стандартное
* представление типа SY-DATUM (YYYYMMDD, YYYY - Год, MM - Месяц, DD - День)
DATA:  l_datum LIKE sy-datum,
      l_gdatu LIKE tcurr-gdatu.

l_gdatu = '79948998'.
CALL FUNCTION 'DATE_CONV_EXT_TO_INT'
     EXPORTING
          i_date_ext = l_gdatu
     IMPORTING
          e_date_int = l_datum
     EXCEPTIONS
          error      = 1
          OTHERS     = 2.


Код Виділити Розширити


* Получить дату начала периода к варианту финансового года. Стандартные параметры
* Год вида YYYY. Вариант финансового года для БЕ в виде CC. Номер требуемого периода
* задается в формате NNN Возвращаемая дата представлена в стандартном типе SY-DATUM
* (YYYYMMDD, YYYY - Год, MM - Месяц, DD - День)
* Стандартно как бы используется практически везде вариант финансового года K4 - т.е.
* 4 квартала, однако знавал я систему, где были настроены свои периоды. Так что если
* пишем универсальную программу, то начало периода лучше считать используя данный ФМ

DATA: l_gjahr LIKE t009b-bdatj,
      l_periv LIKE t009b-periv,
      l_poper LIKE t009b-poper,
      l_datum LIKE sy-datum.
                                                                       
l_gjahr = '2007'.
l_periv = 'K4'.
l_poper = '002'.
CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
     EXPORTING
          i_gjahr        = l_gjahr
*         I_MONMIT             = 00
          i_periv        = l_periv
          i_poper        = l_poper
     IMPORTING
          e_date         = l_datum
     EXCEPTIONS
          input_false    = 1
          t009_notfound  = 2
          t009b_notfound = 3
          OTHERS         = 4.


Код Виділити Розширити


* Получить дату конца периода к варианту финансового года. Стандартные параметры
* Год вида YYYY. Вариант финансового года для БЕ в виде CC. Номер требуемого периода
* задается в формате NNN Возвращаемая дата представлена в стандартном типе SY-DATUM
* (YYYYMMDD, YYYY - Год, MM - Месяц, DD - День)
* Собственно причина почему ее желательно использовать такая же как и для предыдущего
* функционального модуля FIRST_DAY_IN_PERIOD_GET.
DATA: l_gjahr LIKE t009b-bdatj,
      l_periv LIKE t009b-periv,
      l_poper LIKE t009b-poper,
      l_datum LIKE sy-datum.
                                                                       
l_gjahr = '2007'.
l_periv = 'K4'.
l_poper = '002'.
CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET'
     EXPORTING
          i_gjahr        = l_gjahr
*         I_MONMIT             = 00
          i_periv        = l_periv
          i_poper        = l_poper
     IMPORTING
          e_date         = l_datum
     EXCEPTIONS
          input_false    = 1
          t009_notfound  = 2
          t009b_notfound = 3
          OTHERS         = 4.


Код Виділити Розширити


* Позволяет узнать какая будет дата через NN-Дней, MM-Месяцев и YY-Лет от заданной.
* При этом можно как суммировать так и отнимать требуемое количество дней, месяцев и
* лет. О высокосном годе вроде как тоже знает. Из полезного можно добавлять например 55
* дней и 1 месяц и т.д. Если даты нужно отнимать, тогда нужно задать параметр SIGNUM = '-'
DATA: l_days LIKE t5a4a-dlydy,
      l_months LIKE t5a4a-dlymo,
      l_years LIKE t5a4a-dlyyr,
      l_datum LIKE sy-datum.
                                                                       
l_days = '10'.
l_month = '05'.
l_years = '02'
call function 'RP_CALC_DATE_IN_INTERVAL'
     exporting
          date      = sy-datum
          days      = l_days
          months    = l_months
          signum    = '+'
          years     = l_years
     importing
          calc_date = l_datum.

* В данном вызове для даты 01.02.2007 будет возвращена дата 11.07.2009.


Код Виділити Розширити


* Высчитывает разницу в днях и часах между двумя произвольно заданными датами
* Дата и время начала и конца диапазона задаются в стандартном типе SY-DATUM
* (YYYYMMDD, YYYY - Год, MM - Месяц, DD - День).
* Из особенностей работы:
* 1. Разница вычисляется только для полного количества часов, т.е. между 01:00 и 02:30
*    будет возвращено все равно 1 час.
* 2. Обязательно нужно задавать поля времени, например хотя бы 1 минута, иначе функция
*    ничего не вернет (Спасибо индусам за наше счастливое детство, но оказывается в этой
*    Индии 00:00:00 времени не бывает в принципе)
* 3. Даты можно задавать как от большей к меньшей так и наоборот, при этом переменная l_earliest
*    будет содержать следующие значения =2 - дата1 больше даты2, =1 - дата1 меньше дата2, если даты
*    равны, тогда сравниваются времена и =2 - время1 больше времени2 и =1 - время 1 меньше времени2,
*    если даты и время совпадают, тогда переменная = 0.
DATA: l_datum_one LIKE sy-datum,
      l_time_one LIKE sy-uzeit,
      l_datum_two LIKE sy-datum,
      l_time_two LIKE sy-uzeit.
DATA: l_datediff TYPE p,
      l_timediff TYPE p,
      l_earliest TYPE  c.
                                                                       
CALL FUNCTION 'SD_DATETIME_DIFFERENCE'
     EXPORTING
          date1            = l_datum_one
          time1            = l_time_on
          date2            = l_datum_two
          time2            = l_time_two
     IMPORTING
          datediff         = l_datediff
          timediff         = l_timediff
          earliest         = l_earliest
     EXCEPTIONS
          invalid_datetime = 1
          OTHERS           = 2.


Код Виділити Розширити


* Возвращает внутренню таблицу со списком как сокращенных наименований месяцев
* (3 символа), так и полных в именительном падеже на заданном языке. По умолчанию
* используется язык регистрации в системе.
DATA: l_retcode LIKE like sy-subrc,
      lt_month LIKE t247 OCCURS 1 WITH HEADER LINE.
                                                                       
CALL FUNCTION 'MONTH_NAMES_GET'
     EXPORTING
          language              = sy-langu
     IMPORTING
          return_code           = l_retcode
     TABLES
          month_names           = lt_month
     EXCEPTIONS
          month_names_not_found = 1
          OTHERS                = 2.

* Для языка RU таблица lt_month, будет содержать что-то типа такого:
* SP MN KTX LTX       
* -------------
* RU 01 ЯНВ Январь   
* RU 02 ФЕВ Февраль   
* RU 03 МАР Март     
* RU 04 АПР Апрель   
* RU 05 МАЙ Май       
* RU 06 ИЮН Июнь     
* RU 07 ИЮЛ Июль     
* RU 08 АВГ Август   
* RU 09 СЕН Сентябрь 
* RU 10 ОКТ Октябрь   
* RU 11 НОЯ Ноябрь   
* RU 12 ДЕК Декабрь   


Код Виділити Розширити


* Возвращает в заданном диапазоне список выходных/праздничных дней для выбранного
* производственного и праздничного календаря. Праздничные и выходные дни берутся из
* настройки соответствующих календарей, так что если там пусто, то и список будет пустой.
* Если заданные календари не найдены тогда l_returncode = '4'.
DATA: l_holiday_calendar LIKE scal-hcalid,
      l_factory_calendar LIKE scal-fcalid,
      l_date_from LIKE scal-date,
      l_date_to LIKE scal-date,
      l_year_of_valid_from LIKE scal-year,
      l_year_of_valid_to LIKE scal-year,
      l_returncode LIKE sy-subrc,
      lt_holidays LIKE iscal_day OCCURS 1 WITH HEADER LINE.
                                                                       
l_factory_calendar = 'UA'.
l_holiday_calendar = 'UA'
l_date_from = '18.07.2007'.
l_date_to = '18.07.2007'.
CALL FUNCTION 'HOLIDAY_GET'
     EXPORTING
          holiday_calendar           = l_holiday_calendar
          factory_calendar           = l_factory_calendar
          date_from                  = l_date_from
          date_to                    = l_date_to
     IMPORTING
          year_of_valid_from         = l_year_of_valid_from
          year_of_valid_to           = l_year_of_valid_to
          returncode                 = l_returncode
     TABLES
          holidays                   = lt_holidays
     EXCEPTIONS
          factory_calendar_not_found = 1
          holiday_calendar_not_found = 2
          date_has_invalid_format    = 3
          date_inconsistency         = 4
          OTHERS                     = 5.

* Формат вывода таблички lt_holidays, для приведенного пример следующий:
* DATE       F H HOL TXT_SHORT  TXT_LONG             
* ----------------------------------------                                                                                                           
* 28.06.2007 X X 168 День конст День конституції           
* 24.08.2007 X X 169 День Незал День Незалежності           
* 01.01.2008 X X 171 Новий Рік  Новий Рік                   
* 07.01.2008 X X 172 Різдво Хри Різдво Христово             
* 01.05.2008 X X 163 1 Травня   1 Травня                   
* 02.05.2008 X X 164 2 Травня   2 Травня                   
* 09.05.2008 X X 170 День Перем День Перемоги               


[Uukrul]

Случайненько нашлась интересная ФМ-ка для коллекции. Вызывается при создании входящих/исходящих поставок для получения информации является ли день рабочим и если нет, то в зависимости от параметров ФМ возвращает следующий/предыдущий рабочий день.

Код Виділити Розширити


*Позволяте получить информацию о статусе рабочего дня исходя из данных
* призводственного календаря, присвоенного заводу. При этом если день
* не является рабочим, то функция вернет следующий рабочий день в зави-
* симости от параметров:
* CORRECT_OPTION      = '+' - Будет возвращен следующий рабочий день
*                     = '-' - Будет возвращен предыдущий рабочий день
* DATE                = Дата которую требуется проверить
* FACTORY_CALENDAR_ID = Код производственного календаря из T001W
*
* Результат:
* DATE                 = Дата формата SY-DATUM
* FACTORYDATE          = Дата во внутреннем формате видв TCURR-GDATU,
*                        полезно для чтения курса валюты например.
* WORKINGDAY_INDICATOR = В принципе в нем возвращается значение, кото-
*                        рое передается в CORRECT_OPTION, что видно из
*                        кода
*                        CASE CORRECT_OPTION.
*                          WHEN '+'.
*                            WORKINGDAY_INDICATOR = '+'.
*                          WHEN '-'.
*                            WORKINGDAY_INDICATOR = '-'.
*                        ENDCASE.
*                        Правда зачем так сложно, через CASE сделано,
*                        это нам наверное никто не подскажет, ну хотя
*                        может найдется тот индус который это писал,
*                        а так может были какие мысли, да так и не реа-
*                        лизовались :-)
DATA: l_date LIKE scal-date,
      l_factorydate LIKE scal-facdate,
      l_workingday_indicator LIKE scal-indicator.

CALL FUNCTION 'DATE_CONVERT_TO_FACTORYDATE'
     EXPORTING
          correct_option               = '+'
          date                         = sy-datum
          factory_calendar_id          = 'RU'
     IMPORTING
          date                         = l_date
          factorydate                  = l_factorydate
          workingday_indicator         = l_workingday_indicator
     EXCEPTIONS
          calendar_buffer_not_loadable = 1
          correct_option_invalid       = 2
          date_after_range             = 3
          date_before_range            = 4
          date_invalid                 = 5
          factory_calendar_not_found   = 6
          OTHERS                       = 7.


В общем если задать дату 17.05.2008 и CORRECT_OPTION  = '+' , для календаря где суббота и воскресение отмечены как выходные дни, то ФМ вернет дату 19.05.2007, А для CORRECT_OPTION  = '-', дата будет 16.05.2008.

Вроде как проблем не обнаружил, можно использовать вместо собственного чтения данных календаря для определения рабочего дня.  Опять же для даты 16.05.2008 возвращается 16.05.2008.

[Uukrul]

Там же был обнаружен еще один маленький модулек:

Код Виділити Розширити


* Простенький ФМ-чик, возвращающий номер дня в неделе, понедельник счи-
* тается первым днем, воскресение 7. В принципе можно пишется за пару
* минут и самим, но зачем, если уже есть кем-то сделанное :-)
DATA: l_day LIKE scal-indicator.

CALL FUNCTION 'DATE_COMPUTE_DAY'
     EXPORTING
          date = sy-datum
     IMPORTING
          day  = l_day.

В общем для даты 16.05.2008 будет возвращен параметр 5, что и требовалось доказать, а это значит сегодня вечером пиво, рыбка и вообще пора готовиться к выходным  ;)

[Uukrul]

MONTH_PLUS_DETERMINE - Функция позволяющая добавить или отнять месяцы от заданной даты. В принципе как бы ничего вроде как и интересного нет, хотя:

Код Виділити Розширити


DATA: l_date LIKE sy-datum.
CALL FUNCTION 'MONTH_PLUS_DETERMINE'
     EXPORTING
          months  = '1'
          olddate = '20080131'
     IMPORTING
          newdate = l_date.

Параметры:

• months - Количество месяцев которое нужно добавить или отнять от даты. Для вычитания нужно записать значение как -1.
• olddate - Дата от которой требуется вычесть месяцы.
• l_date - Новое значение даты.

Из интересного если запустить модуль как в написанном примере, то результат будет 29.02.2008, т.е. последний день месяца будет рассчитан корректно и функция знает таки про высокосные года. В общем если работает корректно, плюсь корректно делает переход через год. Так сказать можно использовать.

[Uukrul]

TB_DATAFEED_CHECK_DATE - Проверяет значение введенной даты на корректность и выдает, строку ошибки, которую можно показать пользователю, что не нравится в веденной им дате.

Код Виділити Розширити


DATA: l_date LIKE vtb_market-ddate,
      l_sstats LIKE vtb_market-sstats,
      l_error_flg LIKE vtb_market-rupdhist,
      l_error_msg LIKE vtb_market-error.
                                                                       
l_date = '301173'.
CALL FUNCTION 'TB_DATAFEED_CHECK_DATE'
     EXPORTING
          date      = l_date
     CHANGING
          sstats    = l_sstats
          error_flg = l_error_flg
          error_msg = l_error_msg.

В ответ будет получено типа:

• l_sstats  = E
• l_error_flg = X
• l_error_msg = Дата 301173   содержит недопустимый пробел!

Обратите внимание, что дата не правильная потому что не выполняется ее преобразование, т.е. правильная дата была бы 30.11.1973, тогда бы ошибки небыло.

PS: Да, область использования например при чтении данных из файла при загрузках и т.д.  или разборе строк где есть дата... а экраны диалоговых программ, ну там работает программа преобразования... так что там и так будет сказано, что не так в веденной дате.

[Uukrul]

DATE_CHECK_PLAUSIBILITY - Проверка значения введенной даты. Так сказать еще одна вариация, когда проверяется что введено. Собственно говоря что и как проверяется лучше всего видно из исходного кода данного ФМ. Так что в комментариях думаю это все не нуждается.

Код Виділити Розширити


function date_check_plausibility.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"              DATE LIKE  SY-DATUM
*"       EXCEPTIONS
*"              PLAUSIBILITY_CHECK_FAILED
*"----------------------------------------------------------------------

  data: check_year_1 type p.
  data: check_year_2 type p.

  if date cn '0123456789'.
    message s011 with date raising plausibility_check_failed.
  endif.

  if date+4(2) lt '01'
  or date+4(2) gt '12'.
    message s003 with date+4(2) raising plausibility_check_failed.
  endif.

  if date+6(2) lt '01'
  or date+6(2) gt '31'.
    message s006 with date+6(2) raising plausibility_check_failed.
  endif.

  if date+4(2) eq '01'
  or date+4(2) eq '03'
  or date+4(2) eq '05'
  or date+4(2) eq '07'
  or date+4(2) eq '08'
  or date+4(2) eq '10'
  or date+4(2) eq '12'.
    if date+6(2) gt '31'.
      message s004 with date+6(2) date+4(2)
                   raising plausibility_check_failed.
    endif.
  elseif date+4(2) eq '04'
  or     date+4(2) eq '06'
  or     date+4(2) eq '09'
  or     date+4(2) eq '11'.
    if date+6(2) gt '30'.
      message s004 with date+6(2) date+4(2)
                   raising plausibility_check_failed.
    endif.
  else.
    check_year_1 = date(4) mod 4.      " alle 4 Jahre ist schaltjahr
    if check_year_1 eq 0.
      check_year_1 = date(4) mod 100.  " aber nicht alle 100 Jahre
      check_year_2 = date(4) mod 400.  " aber alle 400 Jahre
      if check_year_1 eq 0
      and check_year_2 ne 0.
        if date+6(2) gt '28'.
          message s004 with date+6(2) date+4(2)
                       raising plausibility_check_failed.
        endif.
      else.
        if date+6(2) gt '29'.
          message s004 with date+6(2) date+4(2)
                       raising plausibility_check_failed.
        endif.
      endif.
    else.
      if date+6(2) gt '28'.
        message s004 with date+6(2) date+4(2)
                     raising plausibility_check_failed.
      endif.
    endif.
  endif.
endfunction.


[Uukrul]

PERIOD_DAY_DETERMINE - Возвращает начальную и конечную дату периода, для заданного варианта финансового года.

Код Виділити Розширити


DATA: l_fday LIKE bkpf-budat,
      l_lday LIKE bkpf-budat,
      l_speriod LIKE bkpf-bstat.

CALL FUNCTION 'PERIOD_DAY_DETERMINE'
  EXPORTING
    i_gjahr              = '2009'
    i_monat              = '02'
    i_periv              = 'K4'
  IMPORTING
    e_fday               = l_fday
    e_lday               = l_lday
    e_speriod            = l_speriod
  EXCEPTIONS
    error_period         = 1
    error_period_version = 2
    firstday_not_defined = 3
    period_not_defined   = 4
    year_invalid         = 5
    OTHERS               = 6.

На выходе получим:
L_FDAY - 01.02.2009 Дата начала периода
L_LDAY - 28.02.2009 Дата конца периода
L_SPERIOD - SPACE - Признак специального периода проводки, ну думаю FI-щики про специальные периоды проводки знают лучше ММ-щиков  ;)

[Uukrul]

ROUND_DATE - Функция округления даты. В общем виде типа возвращает последний/первый день недели, месяца, года... иногда полезно, чтобы не вызвать кучу функций расчета даты.

Код Виділити Розширити


DATA: l_datum LIKE sy-datum.

l_datum = sy-datum.
CALL FUNCTION 'ROUND_DATE'
     EXPORTING
          i_iprkz            = '2'
          i_rdmhd            = '+'
     CHANGING
          c_date             = l_datum
     EXCEPTIONS
          invalid_round_rule = 1
          OTHERS             = 2.
WRITE: / l_datum DD/MM/YYYY.

i_iprkz - Код периода. Могут быть следующие значения:

• SPACE - День, смысла в этом коде нет, так как время не округляется а возваращаемая дата = переданной дате.
• '1' = Неделя, возвращает дату конца/начала недели.
• '2' = Месяца, возвращает дату конца/начала месяца.
• '3' = Год, возвращает дату конца/начала года.

i_rdmhd - Направление округления:

• '+' - Округление до конца периода, т.е. если задан код периода 2, то текущая дата будет округлена до конца периода и будет содержать дату последнего дня месяца.
• '-' - Округление до начала периода, т.е. если задан код периода 2, то текущая дата будет округлена до начала периода и будет содержать дату первого дня месяца.  Наверное это не очень полезно так как  так ясно что дата = 01, а вот началом недели уже не так просто и придется считать.
• 'F' - Округление до конца периода, при этом будет возвращаться следующий день за концом периода, т.е. если выбрано тип '1', то будет возращена дата понедельника следующей недели, тогда как при  '+' возвращается дата воскресения.

[Uukrul]

CALCULATE_DATE - Название говорит само за себя, т.е. позволяет получить от заданной даты новую дату в будущем путем добавления месяцев и дней. Про высокосный год таки знает, так что вроде как считает правильно, можно применять  ;)

Код Виділити Розширити


DATA: l_result_date LIKE sy-datum.
CALL FUNCTION 'CALCULATE_DATE'
     EXPORTING
          days        = '1'
          months      = '10'
          start_date  = '20080228'
     IMPORTING
          result_date = l_result_date.

WRITE: / l_result_date.

В данном примере возвращает 29.12.2008

[Uukrul]

DATE_TO_DAY - Возвращает название дня недели по заданной дате. К сожалению написано ну очень по тупому, так что дни недели возвращает только на английском. Примера не будет, так как использование на наших  просторах мало вероятно, но если кому надо будет что-то похоже сделать для себя, то за пример можно брать.

[Uukrul]

DAY_ATTRIBUTES_GET - Полезный ФМ, для писателей отчетов, так как возвращает красивенькие строчки с расшифровками запрошенных дат, т.е. например 11.02.2008 будут сформированы строки номер дня недели = 3, краткое название дня недели в виде "Ср",  полное название дня "Среда" и типа название дня недели + дата в виде строки "Среда, 11.Март. 2009", в общем таки удобно, плюс знает что это все может быть написано на разных языках.

Код Виділити Розширити


DATA: l_date_from LIKE sy-datum,
      l_date_to LIKE sy-datum,
      l_year_of_valid_from LIKE scal-year,
      l_year_of_valid_to LIKE scal-year,
      l_returncode LIKE sy-subrc,
      lt_day_attributes LIKE casdayattr OCCURS 1 WITH HEADER LINE.

l_date_from = sy-datum.
l_date_to = sy-datum + 7.
CALL FUNCTION 'DAY_ATTRIBUTES_GET'
  EXPORTING
*   FACTORY_CALENDAR                 = ' '
*   HOLIDAY_CALENDAR                 = ' '
    date_from                        = l_date_from
    date_to                          = l_date_to
    language                         = sy-langu
  IMPORTING
    year_of_valid_from               = l_year_of_valid_from
    year_of_valid_to                 = l_year_of_valid_to
    returncode                       = l_returncode
  TABLES
    day_attributes                   = lt_day_attributes
  EXCEPTIONS
   factory_calendar_not_found       = 1
   holiday_calendar_not_found       = 2
   date_has_invalid_format          = 3
   date_inconsistency               = 4
   OTHERS                           = 5.

IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

Пример возвращенной таблички на рисунке ниже, просто бери и вставляй описание даты в отчет или ALV-табличку и никаких умственных затрат не надо  ;)

[Uukrul]

MONTHS_BETWEEN_TWO_DATES - Рассчитать количество месяцев между двумя датами. Ну так себе модуль, не ясно почему первый параметр большая дата, а второй меньшая. Хотя если учесть что количество месяцев может быть как положительным так и отрицательным, то вопрос тогда нет. Из особенностей, если i_kz_incl_bis не равно SPACE, тогда к переданной дате i_datum_bis до начала вычислений добавляется один день, что  само собой может увеличить/уменьшить количество месяцев на единицу.

Код Виділити Розширити


DATA: l_datum_bis LIKE sy-datum,
      l_datum_von LIKE sy-datum,
      l_month TYPE i.

l_datum_bis = sy-datum + 100.
l_datum_von = sy-datum.
CALL FUNCTION 'MONTHS_BETWEEN_TWO_DATES'
     EXPORTING
          i_datum_bis   = l_datum_bis
          i_datum_von   = l_datum_von
          i_kz_incl_bis = ' '
     IMPORTING
          e_monate      = l_month.

WRITE: / l_month.

В данном примере l_month = 03

[Uukrul]

END_OF_MONTH_DETERMINE_2 - Проверяет является переданная дата последним днем месяца + если это высокосный год, то второй параметр e_tt будет содержать признак высокосной даты в году, параметр e_kz_ult = space дата не последняя дата месяца, "X" - дата является последним днем месяца. В общем не знаю, куда его можно применить, но может кому пригодиться.

Код Виділити Розширити


DATA: l_kz_ult(1) TYPE c,
      l_tt TYPE i.

CALL FUNCTION 'END_OF_MONTH_DETERMINE_2'
     EXPORTING
          i_datum  = '20080329'
     IMPORTING
          e_kz_ult = l_kz_ult
          e_tt     = l_tt.


[Uukrul]

SD_CALC_DURATION_FROM_DATETIME - Рассчет времени в часах и минутах между двумя датами. Выцеплено где-то в недрах SD. Типа таки считает сколько часов и минут прошло между датами.

Код Виділити Розширити


DATA: l_date1 LIKE sy-datum,
      l_time1 LIKE sy-uzeit,
      l_date2 LIKE sy-datum,
      l_time2 LIKE sy-uzeit,
      l_tdiff LIKE tvro-fahztd,
      l_date2_early LIKE rv56a-selkz.

l_date1 = sy-datum.
l_time1 = sy-uzeit + 5.
l_date2 = sy-datum + 1.
l_time2 = sy-uzeit + 76.

CALL FUNCTION 'SD_CALC_DURATION_FROM_DATETIME'
     EXPORTING
          i_date1          = l_date1
          i_time1          = l_time1
          i_date2          = l_date2
          i_time2          = l_time2
     IMPORTING
          e_tdiff          = l_tdiff
          e_date2_early    = l_date2_early
     EXCEPTIONS
          invalid_datetime = 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.

WRITE: / l_tdiff,
       / l_date2_early.

Параметр e_date2_early  = Х, если i_date1 > i_date2, иначе равно SPACE. В общем может опять же кому пригодиться.

[Uukrul]

L_MC_TIME_DIFFERENCE - Аналогично предыдущему ФМ рассчитывает время между двумя датами, но в минутах. Опять же может кому надо будет, может вот в условиях кризиса будет считать тарификацию за консалт в минутах  ;)

Код Виділити Розширити


DATA: l_date1 LIKE sy-datum,
      l_time1 LIKE sy-uzeit,
      l_date2 LIKE sy-datum,
      l_time2 LIKE sy-uzeit,
      l_delta_time LIKE mcwmit-be_ae,
      l_delta_unit LIKE mcwmit-lzeit.

l_date1 = sy-datum.
l_time1 = sy-uzeit + 5.
l_date2 = sy-datum + 1.
l_time2 = sy-uzeit + 76.

CALL FUNCTION 'L_MC_TIME_DIFFERENCE'
     EXPORTING
          date_from       = l_date1
          date_to         = l_date2
          time_from       = l_time1
          time_to         = l_time2
     IMPORTING
          delta_time      = l_delta_time
          delta_unit      = l_delta_unit
     EXCEPTIONS
          from_greater_to = 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.
WRITE: / l_delta_time,
       / l_delta_unit.


[Uukrul]

GET_CURRENT_YEAR - Собственно возвращает не только текущий год но и месяц. Фактически текущий открытый период.

Код Виділити Розширити


DATA: l_currm LIKE bkpf-monat,
      l_curry LIKE bkpf-gjahr,
      l_prevm LIKE bkpf-monat,
      l_prevy LIKE bkpf-gjahr.

CALL FUNCTION 'GET_CURRENT_YEAR'
     EXPORTING
          bukrs = '1000'
          date  = sy-datum
     IMPORTING
          currm = l_currm
          curry = l_curry
          prevm = l_prevm
          prevy = l_prevy.


[Uukrul]

DATUMSAUFBEREITUNG - Функция возвращает различное представление даты в формате пользователя. Рекомендуется использовать для формирования строк даты при передаче в бач-интпуты, так как там данные должны быть введены с разделителями пользователя.

Код Виділити Розширити


DATA: l_mdat4(5) TYPE c,
      l_mdat6(7) TYPE c,
      l_tdat4(5) TYPE c,
      l_tdat6(8) TYPE c,
      l_tdat8(10) TYPE c,
      l_wdat4(5) TYPE c,
      l_wdat6(7) TYPE c.

CALL FUNCTION 'DATUMSAUFBEREITUNG'
EXPORTING
   flagm                 = 'X'
   flagw                 = 'X'
   idate                 = sy-datum
*   IMONT                 = ' '
*   IWEEK                 = ' '
IMPORTING
   mdat4                 = l_mdat4
   mdat6                 = l_mdat6
   tdat4                 = l_tdat4
   tdat6                 = l_tdat6
   tdat8                 = l_tdat8
   wdat4                 = l_wdat4
   wdat6                 = l_wdat6
EXCEPTIONS
   datfm_ungueltig       = 1
   datum_ungueltig       = 2
   OTHERS                = 3.

WRITE: / l_mdat4,
       / l_mdat6,
       / l_tdat4,
       / l_tdat6,
       / l_tdat8,
       / l_wdat4,
       / l_wdat6.

Пример на рисунке ниже... вроде как использование прозрачное.

[Uukrul]

RE_ADD_MONTH_TO_DATE - Позволяет к заданной дате добавить требуемое количество месяцев.  Вроде бы вещь простая, однако надо помнить про высокосные года и т.д. например если это 29.02.2008, то добавив 12 месяцев получим правильное значение 28.02.2009 ну и т.д.

Код Виділити Розширити


DATA: l_stdate LIKE sy-datum,
      l_count  TYPE i,
      l_eddate LIKE sy-datum.

l_stdate = sy-datum.
l_count = '5'.
CALL FUNCTION 'RE_ADD_MONTH_TO_DATE'
  EXPORTING
    months  = l_count
    olddate = l_stdate
  IMPORTING
    newdate = l_eddate.
WRITE: / 'Начальная дата:', l_stdate,
       / '+', l_count, 'месяцев',
       / 'Конечная дата:', l_eddate.


[Uukrul]

DIMP_ADD_TIME - Позволяет получить следующее время и дату путем добавления часов минут и секунд. Вызов достаточно простой, зачем нужен данный ФМ, ну скажем так чтобы не напрыгаться с расчетами, типа добавленная секунда уже перешла в следующие сутки или нет, а так сразу имеем все в одном месте. На вход передаем дату и время, например текущие и время в формате HHMMSS, которое нужно добавить. На выходе получаем новую дату и время.

Код Виділити Розширити


DATA: l_uzeit LIKE sy-datum,
      l_uzeit LIKE sy-uzeit.

        CALL FUNCTION 'DIMP_ADD_TIME'
          EXPORTING
            iv_starttime = sy-uzeit
            iv_startdate = sy-datum
            iv_addtime   = '000001'
          IMPORTING
            ev_endtime   = l_uzeit
            ev_enddate   = l_erdat.


[Uukrul]

DETERMINE_PERIOD - Данная функция позволяет получить код/номер периода для заданной даты.   В общем виде для вариант финансового года К4, данная задача не является проблемной, номер месяца и есть номер периода, но стандартно в системе могут быть созданы различные варианты финансовых периодов, в банках любят обычно использовать вариант типа 365 периодов в году. Самый простой случай это работа с кварталом. Да можно самому определить в какой квартал входит дата, а можно использовать код периода Q1 - обычно это стандартный вариант, где 4 периода по кварталам.

Код Виділити Розширити


DATA: l_period LIKE t009-anzbp,
      l_year LIKE t009b-bdatj.

CALL FUNCTION 'DETERMINE_PERIOD'
  EXPORTING
    date                      = sy-datum
*   PERIOD_IN                 = '00'
    version                   = 'Q1'    "Вариант финансового года (кварталы)
IMPORTING
   period                    = l_period
   year                      = l_year
EXCEPTIONS
   period_in_not_valid       = 1
   period_not_assigned       = 2
   version_undefined         = 3
   OTHERS                    = 4.

Система для текущей даты, на момент написания поста, сообщит, что это третий период.  Переменная PERIOD_IN используется для определения существования особых периодов для варианта финансового года. Правда работает она только в случае если дата задана для последнего возможного периода в варианте года, тогда например для вариант К4, обычно 12 периодов + 4 особых периода, при вызове для любой из дат в диапазоне 01.12 по 31.12 и задании например PERIOD_IN = 18 система будет выдавать ошибку, особый период не существует, если же вызвать с PERIOD_IN = 13, ошибки не будет. В общем смысл так заковыристо работающего довеска в это модуль я не очень понял, хорошо хоть поле не обязательное для заполнения при вызове.

[Uukrul]

ISH_QUARTER_GET - Возвращает дату начала и конца квартала, в который входит переданная дата. Быстро и просто.

Код Виділити Розширити


DATA: l_start LIKE sy-tabix,
      l_end  LIKE sy-tabix.

CALL FUNCTION 'ISH_QUARTER_GET'
  EXPORTING
    ss_date    = sy-datum
  IMPORTING
    ss_begin   = l_start
    ss_end     = l_end
  EXCEPTIONS
    error      = 1
    wrong_date = 2
    OTHERS     = 3.

Например для даты 15.09.2012 вернет значения:
Begin: 01.07.2012
End   : 30.09.2012

[Uukrul]

DATE_COMPUTE_DAY_ENHANCED - Не смотря на название в тексте слова COMPUTE - вычислять/рассчитывать и т.д. данная функция никаких расчетов не делает, а просто возвращает для заданной даты, номер дня в неделе и название дня недели. Название дня в неделе выполняется путем вывода текстовой константы, само собой на английском и большими буквами, поэтому в наших реалиях данная функция, как мне кажется, мало применима, но для коллекции, пусть будет:

Код Виділити Розширити


DATA: l_day LIKE scal-indicator,
      l_weekday TYPE sc_day_txt.

CALL FUNCTION 'DATE_COMPUTE_DAY_ENHANCED'
  EXPORTING
    date    = sy-datum
  IMPORTING
    day     = l_day
    weekday = l_weekday.

WRITE: / 'Номер дня в неделе:', l_day, 'День недели:', l_weekday.


[Uukrul]

BCA_US_DATES_CALC_DATE - Небольшой модуль который позволяет задать тип единицы измерения дни/недели/месяцы и т.д. и добавить к заданной дате количество определенных единиц.

Код Виділити Розширити


DATA: l_new_date LIKE sy-datum.

CALL FUNCTION 'BCA_US_DATES_CALC_DATE'
  EXPORTING
    i_start_date = sy-datum
    i_term       = 55
    i_periodunit = '1'
  IMPORTING
    e_end_date   = l_new_date.
WRITE: / l_new_date.

Типы периодов возможны следующие:
1 - Календарные дни
2 - Недели
3- Месяцы
4 - Кварталы
5 - Года

Таким образом задав тип периода 1 и количество 55 мы говорим что к текущей даты нужно добавить 55 календарных дней.

[Uukrul]

BKK_ADD_WORKINGDAY - Позволяет получить дату рабочего дня путем добавления к заданной дате необходимого количества рабочих дней, т.е. например для даты 31.12.2013 если добавить 1 день, то функция вернет  02.01.2014, т.е. следующий рабой день исходя из заданного календаря.

Код Виділити Розширити


DATA: l_new_date LIKE sy-datum,
      l_return TYPE sy-subrc.

CALL FUNCTION 'BKK_ADD_WORKINGDAY'
  EXPORTING
    i_date      = '20131231'
    i_days      = '1'
    i_calendar1 = 'UA'
  IMPORTING
    e_date      = l_new_date
    e_return    = l_return.
WRITE: / l_new_date.


[Uukrul]

Z_CALC_WORKINGDAY - Позволяет рассчитать количество рабочих дней между двумя произвольными датами. К сожалению стандартной функции не нашел, поэтому в пришлось набросать свою. Буду рад, если кто-то подкинет существующую стандартную. Расчет зависит от используемого производственного календаря (и само собой календаря праздничных дней).

Код Виділити Розширити


FUNCTION z_clac_workingday.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     REFERENCE(PI_DATE_START) TYPE  SY-DATUM
*"     REFERENCE(PI_DATE_END) TYPE  SY-DATUM
*"     REFERENCE(PI_CALENDAR) TYPE  TFACD-IDENT
*"  EXPORTING
*"     REFERENCE(PO_DAYS) TYPE  I
*"----------------------------------------------------------------------
  DATA: l_sub_date TYPE sy-datum,
        l_no_workingday LIKE boole-boole,
        l_is_holiday LIKE boole-boole.

  CLEAR: po_days.

  l_sub_date = pi_date_end.
  WHILE pi_date_start <= l_sub_date.
    CALL FUNCTION 'BKK_CHECK_HOLIDAY'
      EXPORTING
        i_date            = l_sub_date
        i_calendar1       = pi_calendar
      IMPORTING
        e_x_no_workingday = l_no_workingday
        e_x_is_holiday    = l_is_holiday
      EXCEPTIONS
        not_found         = 1
        calendar_error    = 2
        OTHERS            = 3.
    IF l_is_holiday = false AND l_no_workingday = false.
      po_days = po_days + 1.
    ENDIF.
    l_sub_date = l_sub_date - 1.
  ENDWHILE.
ENDFUNCTION.