Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.65
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.65

Таблица 14.1. Встроенные форматы

Формат

Описание

General Number

Отображает число как оно есть

Currency

Денежный формат с двумя цифрами после десятичной точки

Standard

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

Percent

Отображает число в формате процентов с двумя цифрами после десятичной точки

Scientific

Отображает число в стандартном экспоненциальном формате

Yes/No

Отображает No, если 0, и Yes, если 1

True/False

Отображает False, если 0, и True, если 1

On/Off

Отображает Off, если 0, и On, если 1

General Date

Отображает дату или время

Long Date

Отображает дату в длинном формате согласно системным установкам

Medium Date

Отображает дату в среднем формате согласно системным установкам

Short Date

Отображает дату в коротком формате согласно системным установкам

Long Time

Отображает время в длинном формате согласно системным установкам

Medium Time

Отображает время в среднем формате согласно системным установкам

Short Time

Отображает время в коротком формате согласно системным установкам

14. Модель управления запасами

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

Option Base() Sub Sale ()

Dim пк, пр, вз As Double Dim pr(4), SS(4) As Double Dim i, j , n As Integer Dim si, s2 As Double n=4

np=Range("продажа").Value nK=Range("покупка").Value B3=Range("возврат").Value For j=0 To n

For i=0 To n

pr(i)=Cells(9, i + 6).Value

Next i

sl=0

For i = 0 To j

sl=sl+5*(i*(пр-пк)-(j-i)*(пк-вз))*pr(i) Next i s2 = 0

For i=j+l To n

s2=s2+5*j*(пр-пк)*pr(i) Next i

SS(j)=sl + s2

Cells(j + 22, 14).Value = 5 * j Cells(j + 22, 15).Value = SS(j) Next j

For j=0 To n

If Cells(j + 22, 15).Value= _

Application.Max _

(Range(Cells(22, 15),

Cells(n + 22, 15))) Then

Cells(j + 22, 15).Font.Colorindex = 3

Cells(j + 22, 14).Font.Colorindex = 3

End If Next j End Sub

Программа Sale определяет оптимальный объем продаж и максимальную ожидаемую прибыль, выделяя их красным цветом.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta