ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рабочие дни, как?
9 сообщений из 9, страница 1 из 1
Рабочие дни, как?
    #34453174
Sergey_su
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_su
Участник
Помогите, как написать, чтобы при добавлении к определенной дате, числа(напр. 10 (дни)), учитывалось, что добавляются рабочие дни к дате.
...
Рейтинг: 0 / 0
11.04.2007, 15:03
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34453527
Рафаэль Гафаров
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рафаэль Гафаров
Гость
Не совсем понятен вопрос.... Добавляешь 10 дней, которые и должны являться рабочими или среди них определять рабочие дни?

Вообще лучше использовать функцию WEEKDAY(DATE...
...
Рейтинг: 0 / 0
11.04.2007, 16:36
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34453675
Sergey_su
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_su
Участник
Сорри, мне нужно получить дату, которая образовалась путем сложения даты и 10 рабочих дней. Дней может быть и 40-50, поэтому нужно знать точную дату, учитывая только рабочие дни без выходных.
...
Рейтинг: 0 / 0
11.04.2007, 17:01
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34455235
Ruselus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ruselus
Гость
=РАБДЕНЬ('дата начала', 'кол-во дней', 'перечень праздничных дней')

Пример.
Есть дата 01.04.2007
Нам нужно высчитать дату которая остроит от данной даты на 10 рабочих дней (как я понял для каких-то договоров, типа "выполнить в течерии Х рабочих дней до ХХ.ХХ.ХХХХ числа")

Все, данная функция выдаст 13.04.2007г.
Считаем по календарю получаем аккурать такое же число.

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

Вобщем тоже самое что и Рафаэль написал.
...
Рейтинг: 0 / 0
12.04.2007, 11:02
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34455726
Sergey_su
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_su
Участник
Спасибо, но это не проходит, мне в макросе надо,
вот пример проверки

if cells (i , j+1) > cells (i , j) + ten (1 , 1)

ten (1 , 1) - это 2-х.мермассив, в этих координатах находится число 10, и получается, что к начальной дате cells (i , j) просто прибавляется 10 дней и сравнивается с фактом if cells (i , j+1).
А нужно (грубо говоря)

if cells (i , j+1) > РАБДЕНЬ( (cells (i , j)), (ten (1 , 1)))

Хелп, ОЧЕНЬ НАДО.
...
Рейтинг: 0 / 0
12.04.2007, 12:39
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34456469
gacol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gacol
Гость
А так нельзя, пишешь программно в ячейку, например, A10 формулу, а потом проверяешь [a10].Formula = "=РАБДЕНЬ(" & cells (i , j) & "," & ten (1 , 1) & ")"
if cells (i , j+1) > [a10].value
...
Рейтинг: 0 / 0
12.04.2007, 15:31
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34456564
Wasup!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wasup!
Гость
Получить доступ к функциям рабочего листа можно с помощью метода
Код: plaintext
application.worksheetfunction
Но, так как функция РАБДЕНЬ входит в надстройку "Пакет анализа", через этот метод она не доступна (по крайней мере я не знаю).
Имеет смысл поискать в интернете, как её можно получить

Так же можно написать свою функцию.
Мой вариант:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Function AddWorkDay(ByVal dtmStartDay As Date, ByVal intDaysToAdd As Integer) As Date

Do While intDaysToAdd >  0 
    If Weekday(dtmStartDay +  1 , vbMonday) <>  6  And Weekday(dtmStartDay +  1 , vbMonday) <>  7  Then
        intDaysToAdd = intDaysToAdd -  1 
    End If
    dtmStartDay = dtmStartDay +  1 
Loop

AddWorkDay = dtmStartDay
End Function
...
Рейтинг: 0 / 0
12.04.2007, 15:57
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34456704
Sergey_su
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_su
Участник
Спасибо.
Возникла еще одна проблема, фактической даты отнять запланированную без учета выходных.
Писецц...
...
Рейтинг: 0 / 0
12.04.2007, 16:33
| Ответить | Цитировать | Написать  
Рабочие дни, как?
    #34456801
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Тут как всегда задачка только на первый взгляд простая.
1. Рабочие дни не определяются календарем
2. Праздниченые дни устанавливаются в начале года постановлением правительства

Исходя из этих посылок само простое иметь календарь на год в файле или в памяти,
тогда задача превращается в простой цикл с анализом является ли дата рабочим днем.
...
Рейтинг: 0 / 0
12.04.2007, 16:59
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рабочие дни, как?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34453675&tid=2164205]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 1ms
others: 253ms
total:  536ms
созд. / загр.: 536ms
x
x
Закрыть


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