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

Функция Date. Функция Date возвращает значение текущей даты, которое можно присвоить переменным типа Date. Значение даты представляется в виде чисел #Месяц/Число/Год#, разделенных знаком «/». Разностью значений переменных типа Date является число дней между датами.

Можно, например, составить программу, печатающую текущую дату и количество дней, прошедших с начала третьего тысячелетия:

Dim dtmA, dtmB As Date

Sub Command1_Click()

dtmA = Date

dtmB = #1/1/2001#

Form1.Print "Сегодня "; dtmA

Form1.Print "С начала третьего тысячелетия прошло"; _

dtmA - dtmB; "дней"

End Sub

Рис. 12. Результат действия функции Date.

Функция Time. Функция Time возвращает значение текущего времени, которое можно присвоить переменным типа Long. Значение времени представляется в виде чисел #Часы:Минуты:Секунды#, разделенных знаком «:».

Можно, например, составить программу, определяющую текущее время. Значение текущего времени печатаются после нажатия на кнопку Command1.

Dim strA As String

Sub Command1_Click()

strA = Time

Form1.Print "текущее время "; strA; " секунд"

End Sub

Рис. 13 Результат действия функции Time.

3. Основные типы алгоритмических структур

Ветвящиеся алгоритмы

Оператор условного перехода может быть записан в многострочной форме или в однострочной форме.

If Условие Then

Действие 1

[Else

Действие 2]

End If

Рис. 15. Многострочная форма условного оператора.

В многострочной форме все инструкции оператора записываются на отдельных строчках.

If Условие Then Действие 1 _

[Else Действие 2]

 

Условный оператор на языке Visual Basic.

Пример. Создать фрагмент контролирующей программы. Алгоритм должен последовательно реализовать следующие операции:

1. Задать вопрос (напечатать на форме).

2. Запросить ответ у проверяемого.

3. Ответ проверяемого сравнить с эталонным (проверить условие) и, в зависимости от его правильности (выполнения или невыполнения условия), выполнить ту или иную ветвь алгоритма.

Рассмотрим реализацию этого алгоритма на примере закона физики. Будем контролировать знание формулы закона Ома для участка цепи. Программа контроля примет следующий вид:

Dim srcA As String

Sub Command1_Click()

srcA = InputBox("Формула закона Ома?", "Контроль знаний")

If srcA = "I=U/R" Then

Form1.Print "Правильно!"

Else

Forml.Print "Неправильно!"

End If

End Sub

В процессе выполнения программы появится панель ввода, в текстовом окне которой проверяемый должен будет ввести формулу. Если ответ правильный, то на форме будет напечатано «Правильно!».

Рис. 17. Выполнение программы контроля

Циклические алгоритмы

Цикл со счетчиком. Когда заранее известно, какое число повторений тела цикла необходимо выполнить, можно воспользоваться циклической инструкцией (оператором цикла со счетчиком) For ... Next.

For Счетчик = НачЗнач То КонЗнач

[Step шаг]

Тело цикла

Next [Счетчик]

В начале выполнения цикла значение переменной Счетчик устанавливается равным НачЗнач. При каждом «проходе» цикла переменная Счетчик увеличивается на величину шага. Если она достигает величины КонЗнач, то цикл завершается и выполняются следующие за ним операторы.