• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Номер Недели В Году (iso 8601)

  • Автор темы nvyush
  • Дата начала
N

nvyush

Иногда бывает нужно определить номер недели в году. По ISO 8601 первая неделя не та, что начинается с первого января, а та, что содержит первый четверг года.
На формулах (DateValue - поле/значение интересующей даты):
Код: 
_tmpDate := @Date(@Year(@Adjust(DateValue; 0; 0; - @Weekday(@Adjust(DateValue; 0; 0; -1; 0; 0; 0)) + 4; 0; 0; 0)); 1; 3);
@Integer(((DateValue -_tmpDate) / 86400 + @Weekday(_tmpDate) + 5) / 7);
На LS:
Код: 
Function WeekNumber(dt As Variant) As Integer
Dim tmpDate As Variant
If DataType(dt) <> 7 Then
WeekNumber = 0
Else
tmpDate = DateSerial(Year(dt - Weekday(dt - 1) + 4), 1, 3)
WeekNumber = Int((dt - tmpDate + Weekday(tmpDate) + 5) / 7)
End If
End Function

Ссылка скрыта от гостей
 
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ