Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Функция Time



Читайте также:
  1. IV. Перепишите и переведите предложения, обращая внимание на употребление герундия в разных функциях.
  2. IV. Перепишите и переведите предложения, обращая внимание на употребление герундия в разных функциях.
  3. X. Прочитайте и переведите предложения, обращая внимание на употребление инфинитива в различных функциях.
  4. XIV. Прочитайте и переведите предложения, обращая внимание на употребление Participle I в разных функциях.
  5. XV. Прочитайте и переведите предложения, обращая внимание на употребление Participle II в разных функциях.
  6. Бала кездегі қалқанша бездің гипофункциялық көріністері
  7. В.7. Производная функции комплексного переменного. Геометрический смысл аргумента и модуля производной. Условия Коши – Римана. Аналитическая функция.

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; просмотров: 204 | Нарушение авторских прав






mybiblioteka.su - 2015-2024 год. (0.007 сек.)