Стандартные функции VB (T)
Описание ф-ций, встроенных в Visual Basic 5, начинающихся
с буквы T
Список функций, описанных в этом разделе:
---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"
| 
