Стандартные функции VB (U-Y)
Описание ф-ций, встроенных в Visual Basic 5, начинающихся
с букв U-Y
Список функций, описанных в этом разделе:
---U---
UBound(arrayname[, dimension]) - Возвращает число
Long, содержащее максимально возможный индекс массива arrayname указанной
размерности. Если вам не всё понятно, то смотрите пример.
Пример:
Dim
Upper
Dim MyArray(1 To
10, 5 To 15, 10 To
20) ' Объявляем массивы
Dim AnyArray(10)
Upper = UBound(MyArray, 1) ' Возвратит 10.
Upper = UBound(MyArray, 3) ' Возвратит 20.
Upper = UBound(AnyArray) ' Возвратит 10.
UCase(string) - Переводит строку в верхний регистр.
Пример:
Dim
LowerCase, UpperCase
LowerCase = "Hello World 1234" ' Строка для
конвертирования
UpperCase = UCase(LowerCase) ' Возвратит "HELLO
WORLD 1234".
---V---
Val(string) - Превращает строку в число.
Пример:
Dim
MyValue
MyValue = Val("2457") ' Возвратит 2457.
MyValue = Val(" 2 45 7") ' Возвратит 2457.
MyValue = Val("24 and 57") ' Возвратит
24.
MyValue
= Val ("") ' Возвратит 0.
MyValue
= Val ("laja") ' Возвратит 0.
VarType(varname) - Возвращает тип переменной varname.
Возможные значения функции:
vbEmpty - Empty (Не инициализирована)
vbNull - Null (нет правильного значения)
vbInteger - Integer
vbLong - Long integer
vbSingle - Single
vbDouble - Double
vbCurrency - Currency
vbDate - Date значение
vbString - String
vbObject - Object
vbError - значение Error
vbBoolean - Boolean значение
vbVariant - Variant (используется только для Variant массивов)
vbDataObject - Объект доступа к данным
vbDecimal - десятичное число
vbByte - Byte
vbArray - массив
Пример:
Dim
IntVar, StrVar, DateVar, MyCheck
IntVar =
459
StrVar = "Hello World"
DateVar = #2/12/69#
MyCheck = VarType(IntVar) ' Возвратит 2.
MyCheck = VarType(DateVar) ' Возвратит 7.
MyCheck = VarType(StrVar) ' Возвратит 8.
---W---
Weekday(date, [firstdayofweek]) - Возвращает день
недели, которому соответствует указанная дата. Возможные значения фунции:
vbUseSystem = 0 Использует в качестве первого дня недели день, используемый
в системе. (В Америке неделя начинается с Воскресенья, поэтому по умолчанию
firstdayofweek = 1).
vbSunday = 1 Воскресенье
vbMonday = 2 Понедельник
vbTuesday = 3 Вторник
vbWednesday = 4 Среда
vbThursday = 5 Четверг
vbFriday = 6 Пятница
vbSaturday = 7 Суббота
Пример:
Dim
MyDate, MyWeekDay
MyDate = Date ' Присваиваем текущую дату
MyWeekDay = Weekday(MyDate, 0)
' MyWeekDay содержит сегодняшний день недели. Можете
проверить :)
---Y---
Year(date) - Возвращает количество годов, содержащихся
в параметре date.
Пример:
Dim
MyDate, MyYear
MyDate = #February 12, 1969# ' Присваиваем дату
MyYear = Year(MyDate) ' MyYear содержит 1969.
| 
