Как узнать количество недель в месяце?

wild83

Как узнать количество недель в месяце? Есть ли какой ФМник?
Из входных параметров есть месяц и год.

__Gennady

DATE_GET_WEEK + LAST_DAY_OF_MONTHS ?

__Gennady

Code:

DATA: l_weeks TYPE i.
PERFORM get_week_count  USING '2012'
                              '02'
                     CHANGING l_weeks.

*&---------------------------------------------------------------------*
*&      Form  get_week_count
*&---------------------------------------------------------------------*
FORM get_week_count USING p_gjahr TYPE gjahr
                          p_monat TYPE monat
                 CHANGING c_weeks TYPE i.

  DATA: date TYPE dats.
  CONCATENATE p_gjahr p_monat '01' INTO date.
  DATA: w1 TYPE scal-week.
  DATA: w2 TYPE scal-week.

  CALL FUNCTION 'DATE_GET_WEEK'
    EXPORTING
      date = date
    IMPORTING
      week = w1.

  CALL FUNCTION 'LAST_DAY_OF_MONTHS'
    EXPORTING
      day_in            = date
    IMPORTING
      last_day_of_month = date.

  CALL FUNCTION 'DATE_GET_WEEK'
    EXPORTING
      date = date
    IMPORTING
      week = w2.

  IF w2(4) = w1(4).
    c_weeks = w2 - w1 + 1.
  ELSEIF w2(4) < w1(4).
    c_weeks = w2+4(2) + 1.
  ELSEIF w2(4) > w1(4).
    c_weeks = 54 - w1+4(2).
  ENDIF.
ENDFORM.                    "get_week_count

wild83

А нельзя сначала узнать последний день месяца (LAST_DAY_OF_MONTHS) а потом узнать номер недели по дате (DATE_GET_WEEK) ?

__Gennady

Вы же попросили число недель в месяце, а не номер последней недели?

Gustav

А о каких неделях-то идет речь? Например, в текущем ноябре 2012 их:

3 - если считать полные недели от Пнд до Вск
5 - если считать захватываемые недели года - с 44 по 48
4 - если 30 / 7 нацело (это вообще в любом месяце)

???

P.S. Подозреваю, что нужен номер недели года для последней даты месяца. Так?

__Gennady

HR_99S_INTERVAL_BETWEEN_DATES

wild83

__Gennady написал(а):

Вы же попросили число недель в месяце, а не номер последней недели?

а разница в чем?

__Gennady

wild83 написал(а):

а разница в чем?

Это пятничная шутка что-ли? :pivo:

wild83

Gustav написал:

А о каких неделях-то идет речь? Например, в текущем ноябре 2012 их:

3 - если считать полные недели от Пнд до Вск
5 - если считать захватываемые недели года - с 44 по 48
4 - если 30 / 7 нацело (это вообще в любом месяце)

???

P.S. Подозреваю, что нужен номер недели года для последней даты месяца. Так?

в моем случае считаем все недели в том числе неполные - получается 5

wild83

__Gennady написал(а):

HR_99S_INTERVAL_BETWEEN_DATES

Code:

 DATA: date1 TYPE dats.
 DATA: date2 TYPE dats.
 DATA: weeks TYPE i.
 DATA: c_weeks TYPE i.
  CONCATENATE P_GJAHR RPMAX2 '01' INTO date1.

CALL FUNCTION 'LAST_DAY_OF_MONTHS'
    EXPORTING
      day_in            = date1
    IMPORTING
      last_day_of_month = date2.

CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'
  EXPORTING
    begda = date1
    endda = date2
  IMPORTING
    c_weeks = c_weeks
    weeks = weeks.

c_weeks - это complete weeks
weeks - это absolute weeks

Непонятно почему но c_weeks и weeks их количество всегда 4 неважно какой месяц. WTF?

__Gennady

Загляните внутрь) Там будет количество дней в месяце / 7.
Если нужен учет всех неполных недель, воспользуйтесь приведенным выше кодом.

wild83

__Gennady написал(а):

Если нужен учет всех неполных недель, воспользуйтесь приведенным выше кодом.

Попробуйте сформируйте за 12 месяц 2012 года, скажите результат

wild83

__Gennady написал(а):

Загляните внутрь) Там будет количество дней в месяце / 7.

непонятно тогда что имеется ввиду под complete и absolute weeks ? недоработка?

__Gennady

Думаю это не бага, это фича. Вообще ФМ я поиском нашел. Он вам не подходит.

Code:

FORM compute_complete_weeks USING p_begda
                                  p_endda
                                  p_days
                            CHANGING p_weeks.
  DATA: help_days TYPE i.


***** get days if not already given

  IF p_days IS INITIAL.
    PERFORM compute_days USING p_begda
                               p_endda
                         CHANGING help_days.
  ELSE.
    help_days = p_days.
  ENDIF.

  p_weeks = help_days DIV 7.

ENDFORM.                    " compute_complete_weeks

Code:

FORM compute_weeks USING    p_begda
                            p_endda
                            p_days
                   CHANGING p_weeks.

  DATA: help_days TYPE i.

  IF p_days IS INITIAL.

    PERFORM compute_days
                USING
                   p_begda
                   p_endda
                CHANGING
                   help_days.
  ELSE.
    help_days = p_days.
  ENDIF.
  p_weeks = help_days / 7.
ENDFORM.                    " compute_weeks

Как видно отличается целочисленным делением...

Правила форума

Как узнать количество недель в месяце?

Кто сейчас на конференции