ABAP: узнать последний день месяца

добавлено: 11 июл 12
понравилось:0
просмотров: 2375
комментов: 0

теги:

Автор: Изя Шниперсон

В процессе работы часто возникают задачи по определению последнего дня месяца.

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

DEFINE LAST_DAY.
   &1+6(2) = '01'.
   &1 = &1 + 31.
   &1+6(2) = '01'.
   &1 = &1 - 1.
END-OF-DEFINITION.





Вызов макроса:

data:
  lf_date type d. 

lf_date = sy-datum.
last_day lf_date.

write: / lf_date. 




Макрос отлично справляется с 29м февраля високосного года.

Комментарии




Необходимо войти на сайт, чтобы оставлять комментарии