---N---
Now - Возвращает Variant значение, содержащее текущие системные дату и время.
Dim Today
Today = Now ' Today содержит текущие дату и время.
---O---
Oct(number) - Возвращает восьмиричное значение числа number.
Dim MyOct
MyOct = Oct(4) ' Возвратит 4.
MyOct = Oct(8) ' Возвратит 10.
MyOct = Oct(459) ' Возвратит 713.
---Q---
QBColor(color) - Возвращает значение Long, содержащее цвет, заданный номером от 0 до 15. Ниже приведена таблица цветов:
Номер |
Цвет |
Номер |
Цвет |
| 0 |
Чёрный |
8 |
Серый |
| 1 |
Синий |
9 |
Светло-синий |
| 2 |
Зелёный |
10 |
Светло-зелёный |
| 3 |
Циан |
11 |
Светлый циан |
| 4 |
Красный |
12 |
Светло-красный |
| 5 |
Мажента |
13 |
Светлая мажента |
| 6 |
Жёлтый |
14 |
Светло-жёлтый |
| 7 |
Белый |
15 |
Ярко-белый |
MyForm.BackColor = QBColor(6)
---R---
RGB(red, green, blue) - Возвращает Long, содержащее цвет, заданный тремя компонентами R, G и B.
MyForm.BackColor = RGB(255,0,0) 'цвет формы изменится на красный
MyForm.BackColor = RGB(255,255,255) 'цвет формы изменится на белый
Right(string, length) - возвращает length символов из строки string, начиная справа.
Dim AnyString, MyStr
AnyString = "Hello World" ' Определяем строку
MyStr = Right(AnyString, 1) ' Возвратит "d".
MyStr = Right(AnyString, 6) ' Возвратит " World".
MyStr = Right(AnyString, 20) ' Возвратит "Hello World".
Rnd[(number)] - Возвращает Single значение, содержащее случайное число от 0 до 1.
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' Генерирует случайное число от 1 до 6
RTrim(string) - Удаляет пробелы справа от строки.
Dim MyString, TrimString
MyString = " <-Trim-> "
'Строка, у которой слева и справа по одному пробелу
TrimString = RTrim(MyString)
'Справа пробела нет, т.е. теперь TrimString = " <-Trim->"
| 
