Здравствуйте!
Я что-то никак не могу сообразить:
имеется номер недели, нужно получить дату первого дня этой недели.
Не подскажете вариантик?
Получить дату из номера недели
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- Лёха_Virus
- Продвинутый пользователь
- Сообщения: 168
- Зарегистрирован: 24.03.2003 (Пн) 17:13
- Откуда: Анграск
Получить дату из номера недели
Лёха_Virus » 28.10.2007 (Вс) 18:02
- Лёха_Virus
- Продвинутый пользователь
- Сообщения: 168
- Зарегистрирован: 24.03.2003 (Пн) 17:13
- Откуда: Анграск
Лёха_Virus » 28.10.2007 (Вс) 20:44
Спасибо! проанализировав твой ход мысли разложил немного по-другому:
-номер дня недели 1-го января отнимаем от 7, прибавляем 2
-прибавляем (номер недели-2)*7
В итоге в обоих способах раскрыв все скобки, получил следующую "формулу"
:
w=format("01.01.2007","w",vbMonday)
n=43 'номер недели
dateserial(2007,1, 7*n-w-5)
-номер дня недели 1-го января отнимаем от 7, прибавляем 2
-прибавляем (номер недели-2)*7
В итоге в обоих способах раскрыв все скобки, получил следующую "формулу"
:
w=format("01.01.2007","w",vbMonday)
n=43 'номер недели
dateserial(2007,1, 7*n-w-5)
- SSecurity
- Служба безопасности
-
- Сообщения: 1283
- Зарегистрирован: 19.08.2003 (Вт) 1:11
- Откуда: Россия, Мурманск
SSecurity » 29.10.2007 (Пн) 6:24
А можно пойти так:
- Код: Выделить всё
Ned = 44
FstDay = "01.01." & Year(Now)
FstNedStart = DateAdd("d", -Weekday(FstDay, vbMonday) + 1, FstDay)
NedStart = DateAdd("d", (Ned - 1) * 7, FstNedStart)
NedEnd = DateAdd("d", (Ned - 1) * 7 + 6, FstNedStart)
Программист - это маленький Бог, а все его ошибки - это самостоятельные творения:)
Так задумано:)
Так задумано:)
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, Yandex-бот и гости: 20