Получить понедельник и пятницу для любой даты / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Получить понедельник и пятницу для любой даты

5 сообщений из 5, страница 1 из 1

Получить понедельник и пятницу для любой даты

#39283002

Dennis S.

Гость

Добрый день.

Ситуация следующая - ведется понедельный учет рабочего времени, но по разным контрактам конец недели может быть как субботой (американский стандарт), так и воскресеньем (европейский стандарт).

Пишу функции

Код: plaintext

getMonday()

Код: plaintext

getFriday()

, но что-то окончательно запутался.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Function getMonday(dtmDate As Date, strWeekEndDay As String) As Date
    getMonday = dtmDate - Weekday(dtmDate, IIf(strWeekEndDay = "Saturday", vbSaturday, vbSunday)) + IIf(strWeekEndDay = "Saturday", 3, 2)
End Function

Function getFriday(dtmDate As Date, strWeekEndDay As String) As Date
    getFriday = dtmDate - Weekday(dtmDate, IIf(strWeekEndDay = "Saturday", vbSaturday, vbSunday)) + IIf(strWeekEndDay = "Saturday", 7, 6)
End Function

Получается, что суббота и воскресенье неправильно обрабатываются - я на картинке отметил желтым, эти дни "слишком рано" переключаются.

Прошу любого совета. Пример базы вложу по просьбе.

Заранее благодарю.

...

Рейтинг:

0 / 0

29.07.2016, 16:48

| Ответить | Цитировать | Написать

Получить понедельник и пятницу для любой даты

#39283062

Mina Anna Mazzini

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Private Sub sb_Call_GetDoW()
Dim dLftMon As Date, dRgtFri As Date
Dim vbBoW As VbDayOfWeek
    vbBoW = vbSunday
    vbBoW = vbMonday
    Call sз_GetDoW(Date, vbBoW, dLftMon, dRgtFri)
    Stop
End Sub

Public Sub sp_GetDoW(ByVal pDate As Date, pBoW As VbDayOfWeek, pLM As Date, pRF As Date)
    pLM = pDate - Weekday(pDate, pBoW) - CLng(pBoW = vbSunday) + 1
    pRF = pLM + 4
End Sub

...

Рейтинг:

0 / 0

29.07.2016, 17:57

| Ответить | Цитировать | Написать

Получить понедельник и пятницу для любой даты

#39283120

Dennis S.

Гость

Спасибо.

Вообще-то я просто крайне невнимателен:
Функция Weekday вторым аргументом просит начало , а не конец недели. Поправил так и всё работает.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.

Function getMonday(dtmDate As Date, strWeekEndDay As String) As Date
    getMonday = dtmDate - Weekday(dtmDate, IIf(strWeekEndDay = "Saturday", vbSunday, vbMonday)) + IIf(strWeekEndDay = "Saturday", 2, 1)
End Function

Function getFriday(dtmDate As Date, strWeekEndDay As String) As Date
    getFriday = dtmDate - Weekday(dtmDate, IIf(strWeekEndDay = "Saturday", vbSunday, vbMonday)) + IIf(strWeekEndDay = "Saturday", 6, 5)
End Function

...

Рейтинг:

0 / 0

29.07.2016, 19:28

| Ответить | Цитировать | Написать

Получить понедельник и пятницу для любой даты

#39283150

Mina Anna Mazzini

Гость

* Вообще-то я просто крайне невнимателен
- Ошибку-то нашел ведь...

* и всё работает
- Оно не работает. Оно скрипит...

Дядя Билл старался... константы численные выдумывал...
... для того, чтобы юзеры мужественно переводили их в строки и еще сравнивали с другими, тоже численными и тоже мужественно переведенными в строки. Да еще по паре раз одно и то же в одной и той же не только функции, а строке кода! ССЗБ

Я тебе показал, как это дОлжно делать.
Не хочешь вникать - ворочай строки, скрипи дальше, куле...
.

...

Рейтинг:

0 / 0

29.07.2016, 20:45

| Ответить | Цитировать | Написать

Получить понедельник и пятницу для любой даты

#39283366

Dennis S.

Гость

А я не против - и сейчас как раз оптимизирую всё это.

Увы, базу проектировали до меня человека четыре, а то и пять. Да, конец недели хранится строкой, как и много других очень интересных полей.

...

Рейтинг:

0 / 0

31.07.2016, 00:05

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Получить понедельник и пятницу для любой даты

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39283120&tid=1613310]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	78ms
get topic data:	11ms
get forum data:	3ms
get page messages:	37ms
get tp. blocked users:	1ms
others:	371ms

total:	527ms