Функция Time

Time

Функция Time используется для получения текущего времени по системным часам компьютера. Для установки системного времени используйте инструкцию Time. Для получения системной даты и времени в одной переменной используйте функцию Now

Возвращаемое значение. Возвращает значение типа Variant(Date), содержащее текущее время по системным часам компьютера. Формат возвращаемого значения определяется национальными системными настройками

Параметры. Не содержит аргументов

Пример

' В данном примере функция' Time используется для определения' текущего системного времениDim MyTimeMyTime = Time ' Возвращает текущее системное время

Функция Timer

Timer

Функция Timer используется для получения числа секунд, прошедших с полуночи до текущего момента дня

Возвращаемое значение. Возвращает значение типа Single, представляющее число секунд, прошедших после полуночи. Значение, возвращаемое таймером, ограничено числом секунд в сутках и обнуляется ровно в полночь

Параметры. Не содержит аргументов

Пример

' Используем Timer для' временной остановки приложения.' Кроме того, используем инструкцию DoEvents для передачи' управления другим процессам на время паузыDim PauseTime, Start, Finish, TotalTimeIf (MsgBox("Нажмите Да, чтобы прервать выполнение на 5 секунд", 4)) = vbYes Then PauseTime = 5 ' Задает длительность Start = Timer ' Задает начало паузы Do While Timer < Start + PauseTime DoEvents ' Передает управление другим процессам Loop Finish = Timer ' Задает конец паузы TotalTime = Finish - Start ' Вычисляет длительность паузы MsgBox "Длительность паузы: " & TotalTime & " секунд" Else EndEnd If

Дата добавления: 2015-07-11