---T---
Tab[(n)] - Используется вместе с оператором Print # или Print для задания отступа.
Debug.Print Tab(10); "10 columns from start."
Tan(number) - Возвращает тангенс числа number.
Dim MyAngle, MyCotangent
MyAngle = 1.3 ' Устанавливаем угол в радианах
MyCotangent = 1 / Tan(MyAngle) ' Вычисляем котангенс
Time - Возвращает Variant значение, содержащее текущее системное время.
Dim MyTime
MyTime = Time ' Возвращает текущее системное время.
Timer - Возвращает Single, содержащее количество секунд, прошедших после полуночи.
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Нажмите Yes для паузы в 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
TimeSerial(hour, minute, second) - Возвратит время, указанное по частям.
Dim MyTime
MyTime = TimeSerial(16, 35, 17) 'MyTime содержит время 4:35:17 PM.
TimeValue(time) - Возвращает время, заданное строкой.
Dim MyTime
MyTime = TimeValue("4:35:17 PM") ' MyTime содержит время 16:35:17
Trim(string) - Удаляет лидирующие и замыкающие пробелы в строке string. Т.е. одновременно выполняет 2 ф-ции: RTrim и LTrim.
Dim MyString, TrimString
MyString = " <-Trim-> " ' Строка с обоих сторон содержит 1 пробел
TrimString = Trim(MyString) ' TrimString = "<-Trim->"
TypeName(varname) - Предоставляет информацию о переменной varname.
Dim NullVar, MyType, StrVar As String, _
IntVar As Integer, CurVar As Currency
Dim ArrayVar (1 To 5) As Integer
NullVar = Null ' Присваиваем значение Null.
MyType = TypeName(StrVar) ' Возвратит "String".
MyType = TypeName(IntVar) ' Возвратит "Integer".
MyType = TypeName(CurVar) ' Возвратит "Currency".
MyType = TypeName(NullVar) ' Возвратит "Null".
MyType = TypeName(ArrayVar) ' Возвратит "Integer()".
MyType = TypeName(Label1) ' Возвратит "Label"
|