Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите, надо сделать формулу "Сума" / 1 сообщений из 1, страница 1 из 1
05.02.2007, 10:33
    #34305568
ByKiS
ByKiS
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, надо сделать формулу "Сума"
Фирма занимается изготовлением жалюзи. Всего 175 типов жалюзей (разделённых на 15 категорий) у каждого типа своя цена, причём на каждый тип есть палета цвета (от 15 до 356 цветов) от которого тоже зависит цена.
Сейчас цены в зависимости от типа и цвета подсчитываются вручную по ценникам четырьма способами: за 1м ширины, за 1м высоты, за 1 шт (таблицы, где 1 строчка - ширина, левая колонка - высота), за 1 м2. А сумма в программе по такой простенькой формуле:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Function Suma(Ширина, МинЦенаШирина, Высота, МинЦенаВысота, МинЦенаПлощадь, _
            Количество, Цена, Мера) As String
Dim MyШирина, MyВысота, MyПлощадь As String
MyШирина = IIf(МинЦенаШирина > Ширина /  1000 , МинЦенаШирина, Ширина /  1000 )
MyВысота = IIf(МинЦенаВысота > Высота /  1000 , МинЦенаВысота, Высота /  1000 )
Select Case Мера
 Case "шт"
  Suma = Round(Цена * Количество,  2 )
 Case "kvm"
  If МинЦенаПлощадь > MyШирина * MyВысота Then
   Suma = Round(Цена * Количество * МинЦенаПлощадь,  2 )
  Else
   Suma = Round(Цена * Количество * MyШирина * MyВысота,  2 )
  End If
 Case "Ширина"
  Suma = Round(Цена * Количество * MyШирина,  2 )
 Case "Высота"
  Suma = Round(Цена * Количество * MyВысота,  2 )
End Select
End Function

Каждый клиет (представитель) имеет на определённую категорию определённую скидку. В идеале надо чтобы програма сама после ввода типа, цвета, ширины, высоты, количества и клиента выдавала стоимость.
Или хотя бы надо как-то расчитывать сумму по клиенту - тоесть надо чтобы Suma ещё и както зависила от клиента. Нужен совет по какому принципу и какой схеме это можно организовать и вообще с чего начать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите, надо сделать формулу "Сума" / 1 сообщений из 1, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 490ms
Закрыть
start [/forum/topic.php?fid=16&mobile=1&tid=1346274]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 185ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 212ms
total:  490ms
x
x
Закрыть


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