Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: kot_k_k


поле=me.СпСумм/me.КолДней



вот тут нужно не СпСумм, а то самое значение которое в нем стоит
СпСумм=Sum(Выражение1)
те.

поле=Sum([Выражение1])/DateDiff('d';Forms![Даты поиска]!ДатаС;Forms![Даты поиска]!ДатаПо)

даст среднее кол-во , но дни здесь календарные просто нужно написать функцию вычисления рабочих дней и получим

поле=Sum([Выражение1])/F_Day_Work(Forms![Даты поиска]!ДатаС;Forms![Даты поиска]!ДатаПо)


примерно так

F_Day_Work (Paramarray ())
          Data_N =ДатаС
          j=0
         Day_end=ДатаС
          For i = 1 To DateDiff(ДатаС, ДатаПо)
                            If Weekday(Data_N + j) > 1 And Weekday(Data_N + j) < 7 Then
                                    Day_end = Day_end + 1
                                    j = j + 1
                                    Else
                                    Day_end = Day_end + 1
                                    j = j + 1
                                    i = i - 1
                            End If
                        Next

F_Day_Work= Day_end


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.