Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Функция с возвращением 2-х значений  [new]
Vw
Member

Откуда: Самара
Сообщений: 2286
Мужики а возможно в VBA
создать функцию с выводом двух значений ?
Function Cut(param As String) 'где param = 100#aaa

Dim B As Byte B = InStr(2, param, "#", 1) CUT=Left(param, B - 1) 'это первое значение 100
CUT=Mid(param, B + 1, Len(param) - B) 'это вторрое значение ааа
end function

наверное нет... , но какие могут быть варианты?
28 июл 04, 09:47    [840900]     Ответить | Цитировать Сообщить модератору
 Re: Функция с возвращением 2-х значений  [new]
Pavel
Member

Откуда: Кемерово
Сообщений: 2435
Ну сделай не функцию, а процедуру.
28 июл 04, 09:51    [840912]     Ответить | Цитировать Сообщить модератору
 Re: Функция с возвращением 2-х значений  [new]
TatianaT
Member

Откуда:
Сообщений: 1356
можно
создай свой тип
например
Public Type TableStruct 'structure of table
tdfName As String
tdfAttributes As Long
tdfFieldsCount As Integer
tdfFieldsIType() As Long
tdfFieldsIName() As String
tdfFieldsIAllowZeroLength() As Boolean
tdfFieldsIDefaultValue() As Variant
End Type

и пусть функция возвращает этот тип
28 июл 04, 09:52    [840915]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить