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
