Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35738
Главная » Справочники » Функции VBA » Функции работы с датами и временем

Timer

Timer

Функция Timer

Timer

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

Возвращаемое значение

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

Параметры

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

Пример

' Используем Timer для
' временной остановки приложения.
' Кроме того, используем инструкцию DoEvents для передачи
' управления другим процессам на время паузы

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

Else
 End
End If
Категория
Функции дат и времени

Счетчики: 7241 | Добавил: Serge_007
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!