На главную страничку учебника Visual Basic

Стандартные функции VB (T)

Описание ф-ций, встроенных в Visual Basic 5, начинающихся с буквы T

Список функций, описанных в этом разделе:

• Tab
• Tan
• Time
• Timer
• TimeSerial
• TimeValue
• Trim
• TypeName

---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"

На главную страничку учебника Visual Basic