• формат - любое допустимое или определенное пользователем значение формата; примером встроенного числового формата является Fixed, резервирующий две цифры после десятичной точки и как минимум одну - до нее.

При построении пользовательского числового формата можно употреблять следующие символы:

• Символ «О» резервирует позицию цифрового разряда. Отображает цифру или нуль. Если у числа, представленного аргументом, есть какая-нибудь цифра в той позиции разряда, в которой в строке формата находится «О», то функция отображает именно эту цифру аргумента, если нет - в этой позиции отображается нуль.

• Символ «#» резервирует позицию цифрового разряда. Отображает цифру или ничего не отображает. Если у числа, представленного аргументом, есть какая-нибудь цифра в той позиции разряда, в которой в строке формата находится «#», функция отображает эту цифру аргумента, если нет - в этой позиции не отображается ничего. Действие этого символа аналогично действию «О», за исключением того, что нули в начале и конце числа не отображаются.

• Символ «.» резервирует позицию десятичного разделителя. Указание точки в строке формата определяет, сколько разрядов необходимо отображать слева и справа от десятичной точки.

• Символ «%» резервирует процентное отображение числа.

• Символ «, » - разделитель разряда сотен от разряда тысяч.

• Символ «:» - разделитель часов, минут и секунд в категории форматов Время.

• Символ «/» - разделитель дня, месяца и года в категории форматов Дата.

• Символы «Е+, е + , е-» - разделители мантиссы и порядка в экспоненциальном формате.

В процедуре Calc функция Format (result, «#.##») осуществляет форматирование значения, записанного в переменную result. Ее можно было бы записать с использованием встроенного формата следующим образом: Format (result, «Fixed»). Под дробную часть этого значения отводится две позиции и не менее одной позиции под его целую часть. Другие встроенные форматы приведены в табл. 14.1.

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

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

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 пк=Капде("покупка").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.Colorlndex = 3

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

End If Next j End Sub

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