ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вычислить дату понедельника по номеру недели?
11 сообщений из 11, страница 1 из 1
Как вычислить дату понедельника по номеру недели?
    #39585665
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aoiu
Участник
Изначально вычисляю номер недели и последние две цифры года:
Format([Дата];"ww") & Format([Дата];"yy")
Получаю результат в формате (на примере первой недели 2018 г.):
118

Вопрос. Как мне вычислить дату первого дня недели (в моем случае, понедельника) имея только 118?

Спасибо.
...
Рейтинг: 0 / 0
17.01.2018, 12:01
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585674
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
aoiuимея только 118?Ну год всё же необходим... А с учётом того, что в году 52 недели, число 118 выглядит сомнительным...
...
Рейтинг: 0 / 0
17.01.2018, 12:07
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585681
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
aoiu,

DateAdd("d", -Weekday(fldDATE)+1, fldDATE)

но не всегда первый день недели - понедельник...
Понедельник становится первым днем недели, в функции Weekday указать вторым параметром vbMonday
...
Рейтинг: 0 / 0
17.01.2018, 12:13
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585694
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aoiu
Участник
Akinaaoiuимея только 118?Ну год всё же необходим... А с учётом того, что в году 52 недели, число 118 выглядит сомнительным...

В 118 первая цифра 1 - это номер недели, а последние две цифры 18 - это год.
...
Рейтинг: 0 / 0
17.01.2018, 12:23
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585698
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aoiu
Участник
Amiriaoiu,

DateAdd("d", -Weekday(fldDATE)+1, fldDATE)

но не всегда первый день недели - понедельник...
Понедельник становится первым днем недели, в функции Weekday указать вторым параметром vbMonday

Есть только 118, где первая 1 номер недели, а последние 18 - это год.
...
Рейтинг: 0 / 0
17.01.2018, 12:25
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585702
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
aoiu,

=WeekdayName(Weekday(118;2))
?
...
Рейтинг: 0 / 0
17.01.2018, 12:29
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585706
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
y - Номер дня в году (от 1 до 366).
yy - Последние две цифры номера года (от 01 до 99).
...
Рейтинг: 0 / 0
17.01.2018, 12:30
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585707
Amiri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Amiri
Участник
Amiri,


dddd - Полное название дня недели (понедельник — воскресенье).
...
Рейтинг: 0 / 0
17.01.2018, 12:32
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39585741
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
aoiu,

 
Код: vbnet
1.
(DateSerial(2000 + CLng(Right(118, 2)), 1, 1) + ((1 - Weekday(DateSerial(2000 + CLng(Right(118, 2)), 1, 1), 0) + 7) Mod 7)) + ((CLng(Left(CStr(118), Len(CStr(118)) - 2)) - 1) * 7)

...
Рейтинг: 0 / 0
17.01.2018, 13:06
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39586746
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aoiu
Участник
Панургaoiu,

 
Код: vbnet
1.
(DateSerial(2000 + CLng(Right(118, 2)), 1, 1) + ((1 - Weekday(DateSerial(2000 + CLng(Right(118, 2)), 1, 1), 0) + 7) Mod 7)) + ((CLng(Left(CStr(118), Len(CStr(118)) - 2)) - 1) * 7)



Спасибо, именно так.
...
Рейтинг: 0 / 0
18.01.2018, 23:05
| Ответить | Цитировать | Написать  
Как вычислить дату понедельника по номеру недели?
    #39586747
aoiu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aoiu
Участник
Единственная проблемма, если вычислять в запросе, то никаких Where. Выдает ошибку «слишком сложные расчеты».
...
Рейтинг: 0 / 0
18.01.2018, 23:08
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вычислить дату понедельника по номеру недели?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39585694&tid=1611785]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 66ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 267ms
total:  425ms
созд. / загр.: 425ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]