Например, предположим, что требуется записать дату оплаты по квитанции предыдущим месяцем. Тогда следует использовать такой оператор:

Dim DateS As Date

DateS = DateAdd("m",  -1, Date)

     Функция DateAdd всегда возвращает корректное значение даты. Если добавить один месяц к дате 31 января, то функция DateAdd возвращает значение 28 февраля для не високосного года и 29 — для високосного.

     Для вычисления разности двух дат используется функция DateDiff, которая позволяет вычислить, сколько определенных интервалов времени (год, месяц, неделя) прошло между двумя заданными датами или моментами времени. Например:

IngРазница = DateDiff  (m,  #5/11/2009#,  #5/11/2011#)

     После выполнения этого оператора переменная IngРазница будет содержать значение, определяющее количество месяцев, прошедших между двумя указанными датами. В данном примере аргумент "m" сообщает функции DateDiff о том, что разность во времени нужно измерять в месяцах.

6. Математические  функции (класс Math)

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

Таблица 1.7 — Встроенные математические функции языка VBA

 

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

7. Финансовые  функции (класс Financial)

     В языке VBA существует целый ряд функций, которые позволяют выполнять расчеты, используемые при различных финансовых операциях. Например, эти функции можно применять для расчетов выплат по ссуде или возвращения инвестиций. Перечень финансовых функций представлен в таблице 1.8.

Таблица 1.8 — Встроенные финансовые функции языка VBA

 
 

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

8. Использование встроенных функций  Excel и VBA

     Рассматривая использование встроенных функций VBA в Excel большинство пользователей отметит MsgBox. Функция MsgBox — одна из наиболее популярных функций языка VBA. Она очень часто используется при отладке процедур в редакторе VBA, поскольку, вставив оператор с этой функцией в любое место процедуры, можно приостановить вычисления и отобразить на экране в диалоговом окне любой интересующий вас промежуточный результат. Основное достоинство функции MsgBox в том, что она не только возвращает значения, но и выводит пользователю диалоговое окно с указанным сообщением и несколькими кнопками. Ознакомившись с сообщением, пользователь должен дать на него ответ, щелкнув на той или иной кнопке в окне. Ответ пользователя, определенный им посредством щелчка на одной из кнопок в диалоговом окне сообщения, и является тем самым значением, которое возвращает функция MsgBox. Данная функция имеет пять аргументов, из которых только один обязателен. Синтаксис функции MsgBox следующий:

MsgBox (сообщение [,кнопки] [,заголовок]   [,файл_справки, раздел])

     Здесь сообщение — обязательный аргумент, который может быть любым строковым выражением, определяющим отображаемое в диалоговом окне сообщение для пользователя. Кнопки — необязательный аргумент, представляющий собой числовое выражение, задающее количество и тип отображаемых в диалоговом окне кнопок. Если этот аргумент опущен, то выводится только одна кнопка ОК. Допустимые значения для этого аргумента приведены в таблице 1.9.

Таблица 1.9 — Допустимые значения аргумента кнопки функции MsgBox

 

     На  рисунке 1.1 представлен результат  использования констант, приведённых в таблице 1.10. Необязательный аргумент заголовок содержит текст, который отображается в строке заголовка окна сообщений. Если этот аргумент опущен, то в заголовке будет выведено имя приложения. Необязательный аргумент файл_справки — это строковое выражение, определяющее имя справочного файла Windows. Необязательный аргумент раздел — это числовое выражение, указывающее раздел в справочном файле. Если в список аргументов включен один из этих аргументов, то должен быть включен и второй.

     Значения 1—5 параметра кнопки могут быть просуммированы со значениями 16—64 и 256—4096. В этом случае первые значения определяют состав кнопок диалогового окна, вторые — вид отображаемого в окне значка, а третьи — выбор кнопки по умолчанию. Например, если в качестве значения параметра указать выражение 3+64+512, то в диалоговом окне будут отображены кнопки Да, Нет, Отмена, значок информирующего сообщения и по умолчанию будет выбрана кнопка Отмена. 

 

 

 

 

Рисунок 1.1 – Вид получаемых экранных сообщений

     Ниже приведен пример использования функцией MsgBox встроенной константы vbYesNoCancel (см. табл. 1.9):

     Sub А()

     MsgBox "Нажмите нужную кнопку",  vbYesNoCancel,   "Контрольный пример"

     End Sub

     Как выглядит соответствующее окно сообщений, показано на рисунке 1.2.

Рисунок 1.2 — Окно сообщения, отображаемое при выполнении функции MsgBox

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

 

2 Практическая часть

Задача: При откорме каждое животное должно получать не менее 9 ед. белков, 8 ед. углеводов и 11 ед. протеина. Для************************************************ *********************************************************************Ό榶ыми для задачи

 

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

      Ч1 – часть корма вида 1.

      Ч2 – часть корма  вида 2.

      С помощью данных из исходной таблицы  по запасу и количествам питательных веществ разных видов представим количества основных элементов в 1 кг. корма:

Количество белков (В1) в 1 кг. смеси корма = 3Ч1+Ч2

Количество углеводов (В2) в 1 кг. смеси корма = Ч1+2Ч2

Количество жиров (В3) в 1 кг. смеси корма = Ч1+6Ч2

      Теперь  скомбинируем выражения с требованиями по количеству запасов питательных  веществ:

3Ч1+Ч2≥9;

Ч1+2Ч2≥8;

Ч1+6Ч2≥11.