Номер недели

[moid]

Какой ф-ей можно получить номер недели текущего месяца?

[Gustav]

Zitat:

Zitat von moid

...номер недели текущего месяца?

Зависит от того, что Вы вкладываете в это понятие:
- можно конкретное число месяца поделить на 7 и округлить в нужную сторону
- а можно вычислить неделю года от конкретного числа месяца и потом из нее вычесть неделю года от первого числа этого месяца

Вы уверены, что Вам нужен именно месяц, а не год?

[moid]

В месяце есть 4 недели мне нужно узнать какая по счету текущая неделя.

[MikeR]

Когда то писал что то подобное сейчас уже не помню, а посмотри для начала формочку SysDateLookup там прорисовываются на grid недели по определенному году

[moid]

wkofyr - вот эта если кому пригодится

[fialka]

Zitat:

Zitat von moid

Какой ф-ей можно получить номер недели текущего месяца?

так спрашивал же номер недели, а эта функция для определения номера недели с начала года...

[Gustav]

Zitat:

Zitat von moid

wkofyr - вот эта если кому пригодится

Ну, ёлка-палка... Она же возвращает номер недели в году! Т.е. от 1 до 52 (53).

Странно, вроде мы по-русски изъяснялись...

[moid]

Ну...
Вот по русски если чё :

WeekOfMonth = (wkofyr(ToDay()) - mthofyr(ToDay())*4) + 1 ;
И получиться, то что надо...

[Gustav]

Zitat:

Zitat von moid

WeekOfMonth = (wkofyr(ToDay()) - mthofyr(ToDay())*4) + 1 ;
И получиться, то что надо...

И чо? Сёдня типа 2-я неделя месяца? Круто! Йо!

static void Job11(Args _args)
{
    ;
    info( int2str( (wkofyr(20\02\2007) - mthofyr(20\02\2007)*4) + 1 ) );
}

Результат: 2.
Результат: 1.

[Zabr]

В Аксапте используются ISO Week numbers:

Under the ISO standard, a week always begins on a Monday, and ends on a Sunday. The first week of a year is that week which contains the first Thursday of the year, or, equivalently, contains Jan-4.

While this provides some standardization, it can lead to unexpected results -- namely that the first few days of a year may not be in week 1 at all. Instead, they will be in week 52 of the preceding year! For example, the year 2000 began on Saturday. Under the ISO standard, weeks always begin on a Monday. In 2000, the first Thursday was Jan-6, so week 1 begins the preceding Monday, or Jan-3. Therefore, the first two days of 2000, Jan-1 and Jan-2, fall into week 52 of 1999.

An ISO week number may be between 1 and 53. Under the ISO standard, week 1 will always have at least 4 days. If 1-Jan falls on a Friday, Saturday, or Sunday, the first few days of the year are defined as being in the last (52nd or 53rd) week of the previous year.

Unlike absolute week numbers, not every year will have a week 53. For example, the year 2000 does not have a week 53. Week 52 begins on Monday, 25-Dec, and ends on Sunday, 31-Dec. But the year 2004 does have a week 53, from Monday, 27-Dec , through Friday, 31-Dec.

[oip]

Zitat:

Zitat von moid

WeekOfMonth = (wkofyr(ToDay()) - mthofyr(ToDay())*4) + 1 ;
И получиться, то что надо...

Да ну? Сегодня какая неделя года? Восьмая. Какой месяц? Второй. 8-2*4 +1 = 1. Сейчас первая неделя февраля?

Zitat:

Zitat von Gustav

Результат: 2.

1.

[moid]

WeekOfMonth = (wkofyr(ToDay()) - mthofyr(ToDay())*4) + 1 ;

Результат = 1, а не 2

Или если ввести дату
WeekOfMonth = (wkofyr(28\2\2007) - mthofyr(28\2\2007)*4 + 1) ;
результат = 2

Какие у тебя проблемы не знаю

[moid]

упс... извиняюсь... запутался в датах

[Sada]

Айм сорри, но помоему должно быть 3....

[kashperuk]

То есть сейчас таки первая неделя месяца?
Оригинально. Я бы (если смотреть по Аксаптовскому календарю), сказал что сейчас 4ая неделя месяца, но судя по сообщению о ISO Week numbers - это тоже не верно

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

[Gustav]

Zitat:

Zitat von oip

1.

Ага. Виноват!
Я в джобе опечатался и написал 20\07\2007, а здесь менял от руки today на литерал.
Ну, кстати, еще один тест. 20 июля - тоже явно не 2-я неделя

[oip]

Zitat:

Zitat von Gustav

Ну, кстати, еще один тест.

Да чего тут тестировать, если с первого взгляда видно, что написана ерунда?

[kashperuk]

А если вот так?
Может и околесица, но вроде результаты совподают с (моими, во всяком случае) ожиданиями

static void Job17(Args _args)
{
    int         fullWeeks;
    transDate   curDate;
    ;

    curDate = SystemDateGet();
//    curDate = mkDate(02, 04, 2007);
    fullWeeks = (dayOfMth(curDate) - dayOfWk(curDate) - dayOfWk(dateStartMth(curDate))) / 7;
    //full weeks can be negative ;)

    info(strFmt("Номер недели месяца - %1", fullWeeks + 2));
}

[Gustav]

Zitat:

Zitat von Gustav

Зависит от того, что Вы вкладываете в это понятие:
- можно конкретное число месяца поделить на 7 и округлить в нужную сторону
- а можно вычислить неделю года от конкретного числа месяца и потом из нее вычесть неделю года от первого числа этого месяца

Я коллеге сразу предлагал сначала определиться:

static void Job11(Args _args)
{
    ;
    // ЛИБО
    info( int2str( trunc((dayOfMth(today())-1)/7) + 1 ) );

    // ЛИБО
    info( int2str( wkofyr(today()) - wkofyr(dateStartMth(today())) + 1) );
}

P.S. Дозвольте еще сюда эту темку до кучи прицепить. Может, на что сгодится. Люблю я всякие такие штучки с датами.

[Bishop]

Zitat:

Zitat von Gustav

Я коллеге сразу предлагал сначала определиться:

static void Job11(Args _args)
{
    ;
 
    // ЛИБО
    info( int2str( wkofyr(today()) - wkofyr(dateStartMth(today())) + 1) );
}

Некорректно определяет неделю для января/конца декабря (из-за упомянутого выше стандарта ISO Week numbers).
Например, для 11.01.2010 получается -50, для 31.12.2008 = -47...

Вот "самый" правильный вариант:

// Номер недели месяца
static int wkOfMth(date _date)
{
    return (dayOfMth(_date) + dayOfWk(dateStartMth(_date)) + 5) div 7;
}