---S---
Second(time) - Возвратит количество секунд, содержащихся в параметре time.
Dim MyTime, MySecond
MyTime = #4:35:17 PM# ' Присваиваем время.
MySecond = Second(MyTime) ' MySecond содержит 17.
Seek(filenumber) - Возвращает Long, содержащее текущую read/write позицию в файле, открытом оператором Open.
' Определение типа должно находится в стандартном модуле
Type Record ' Тип, определённый пользователем
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record ' Объявляем переменные
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Повторяем, пока не конец файла
Get #1, , MyRecord ' Читаем следующую запись
Debug.Print Seek(1) ' Выводим в окно Debug текущий номер записи.
Loop
Close #1 ' Закрываем файл
Sgn(number) - Возвращает знак числа number.
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12
MyVar2 = -2.4
MyVar3 = 0
MySign = Sgn(MyVar1) ' Возвратит 1.
MySign = Sgn(MyVar2) ' Возвратит -1.
MySign = Sgn(MyVar3) ' Возвратит 0.
Shell(pathname[,windowstyle]) - Запускает программу и возвращает ID программной задачи (program task ID). Если была ошибка, возвратит 0. Параметр windowstyle определяет стиль открытия программы. Может принимать следующие значения:
vbHide Окно будет скрыто
vbNormalFocus Окно получает фокус и отображается без искажений размера
vbMinimizedFocus Окно, после запуска автоматически минимизируется и получает фокус
vbMaximizedFocus Окно разворачивается на весь экран и получает фокус
vbNormalNoFocus Тоже, что и vbNormalFocus, но окно не получает фокуса.
vbMinimizedNoFocus Тоже, что и vbMinimizedFocus, но окно не получает фокуса.
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' Запускаем калькулятор
Sin(number) - Возвращает Double значение, содержащее синус числа number.
Dim MyAngle, MyCosecant
MyAngle = 1.3 ' Определяем угол в радианах
MyCosecant = 1 / Sin(MyAngle) ' Вычисляем косеконс
Space(number) - Возвращает строку, состоящую из number пробелов.
Dim MyString
' MyString содержит 10 пробелов.
MyString = Space(10)
' Вставляем 10 пробелов между двумя строками
MyString = "Hello" & Space(10) & "World"
Spc(n) - Используется вместе с оператором Print # или Print для задания отступа.
Open "TESTFILE" For Output As #1 ' Открываем файл для записи
Print #1, "10 пробелов между этим местом"; Spc(10); "и
этим."
Close #1 ' Закрываем файл
или
Debug.Print
Spc(30); "Перед этой строкой 30 пробелов..."
Sqr(number) - Возвращает корень числа number.
Dim MySqr
MySqr = Sqr(4) 'Возвратит 2.
MySqr = Sqr(23) 'Возвратит 4.79583152331272.
MySqr = Sqr(0) 'Возвратит 0.
MySqr = Sqr(-4) 'Генерирует ошибку (корень из отрицательного числа).
Str(number) - Возвращает строку, представляющую число.
Dim MyString
MyString = Str(459) ' Возвратит "459".
MyString = Str(-459.65) ' Возвратит "-459.65".
MyString = Str(459.001) ' Возвратит "459.001".
StrComp(string1, string2[, compare]) - Сравнивает две строки. Возвращает:
-1, если string1 < string2
0, если string1 = string2
1, если string > string2
Null, если string1 или string2 содержит Null.
Параметр compare определяет тип сравнения. Может быть одним из следующих значений:
vbBinaryCompare - по умолчанию, бинарное сравнение
vbTextCompare - сравнивает строки без учёта регистра
vbDatabaseCompare - используется в базах данных Microsoft Access.
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD"
MyStr2 = "abcd"
MyComp = StrComp(MyStr1, MyStr2, 1) ' Возвратит 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Возвратит -1.
MyComp = StrComp(MyStr2, MyStr1) ' Возвратит 1.
StrConv(string, conversion) - Конвертирует строку в формат, заданный параметром conversion. Этот параметр может принимать одно из следующих значений:
vbUpperCase - Конвертирует строку в верхний регистр
vbLowerCase - Конвертирует строку в нижний регистр
vbProperCase - Конвертирует первую букву каждого слова в верхний регистр
vbUnicode - Конвертирует строку в формат Unicode, используя кодовую страницу, заданную в системе.
vbFromUnicode - Конвертирует строку из формата Unicode в нормальный формат, используя кодовую страницу, заданную в системе.
MyForm.Caption = StrConv("visual BASIC", vbUpperCase)
' сконвертирует строку в верхний регистр
String(number, character) - Возвращает строку, состоящую из number числа символов character.
Dim MyString
MyString = String(5, "*") ' Возвратит "*****".
MyString = String(5, 42) ' Возвратит "*****".
MyString = String(10, "ABC") ' Возвратит "AAAAAAAAAA".
Switch(expr-1, value-1[, expr-2, value-2 … [, expr-n,value-n]]) - Возвращает первое значение, условие которого выполняется.
expr-1, expr-2, ... - условия.
value-1, value-2, ... - значения.
Функция MatchUp возвратит строку "Italian", если CityName будет равно "Rome",
или строку "English", если CityName будет равно "London" и т.д.
Function MatchUp (CityName As String)
Matchup = Switch(CityName = "London", "English", CityName _
= "Rome", "Italian", CityName = "Paris", "French")
End Function
| 
