powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма по дням недели
8 сообщений из 8, страница 1 из 1
Сумма по дням недели
    #39468214
Finish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добрый вечер.
Подскажите пожалуйста с циклом.

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

Пример:

Дата Начала---Дата Конца---Кол-во часов
15.05.2017-----19.05.2017----80 ' работа началась в понедельник закончилась в пятницу -> в день по 16 часов
23.05.2017-----23.05.2017----8

спасибо
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468230
Finish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Решая задачу столкнулся с проблемой:

If y=2 or 4 or 6 then
....
End if

Данное Условие является верным при любом y, подскажите пожалуйста в чем ошибка

Спасибо
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468231
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Finish,

Будет куда проще понять, что именно требуется, если Вы выложите код и пример данных.
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468232
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FinishIf y=2 or 4 or 6 then
....
End if

Данное Условие является верным при любом y, подскажите пожалуйста в чем ошибка
Код: vbnet
1.
If y=2 or y=4 or y=6 then

или
Код: vbnet
1.
If y mod 2 = 0 then



ЗЫ: Как мне оформить свое сообщение?
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468234
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FinishРешая задачу столкнулся с проблемой:

If y=2 or 4 or 6 then
....
End if

Данное Условие является верным при любом y, подскажите пожалуйста в чем ошибка

Спасибо

Код: vbnet
1.
2.
3.
If y = 2 Or y = 4 Or y = 6 Then
...
End If
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468237
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Finish,

Возможно пригодится.
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468327
Finish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
iMrTidy

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

Спасибо!
...
Рейтинг: 0 / 0
Сумма по дням недели
    #39468369
iMrTidy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FinishiMrTidy

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

Спасибо!

Вопрос не прозвучал.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сумма по дням недели
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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