Функции времени и даты

Функция	Возвращаемое значение
Date ()	Возвращает значение типа Variant, содержащее текущую системную дату: MyDate = Date()' возвращает 12.09.2012, если сегодня 12 сентября 2012 года
Day, Month, Year	Возвращает значение типа Variant (Integer), содержащее целое число, которое представляет день, месяц, число в значении даты: MyDay = Day(Date)' возвращает 12, если сегодня 12 число MyMonth = Month(Date)' возвращает 9, если сегодня сентябрь MyYear = Year(Date)' возвращает 2012, если сегодня 2012-й год

Обработка ошибок

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

1-й способ – предотвращающий ошибки. Программа анализирует водимые или вычисляемые данные и в случае ошибки информирует об этом пользователя.

2-й способ – обрабатывающий ошибки. В случае появления ошибки программа перехватывает её и создает программный отклик.

Как правило, в программировании сочетаются оба способа.

11.1. Предотвращение ошибок
программными средствами

Рассмотрим программу, которая вычисляет обратное число и выводит его на экран:

Sub ОбратноеЧисло()

Dim x As Double

Dim y As Double

x = CDbl(InputBox("Введите число:"))

y = 1/x

MsgBox "Обратное число:" & y