ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция с возвращением 2-х значений
3 сообщений из 3, страница 1 из 1
Функция с возвращением 2-х значений
    #32624519
Фотография Vw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vw
Участник
Мужики а возможно в VBA
создать функцию с выводом двух значений ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
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

наверное нет... , но какие могут быть варианты?
...
Рейтинг: 0 / 0
28.07.2004, 09:47:18
| Ответить | Цитировать | Написать  
Функция с возвращением 2-х значений
    #32624523
Фотография Pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel
Участник
Ну сделай не функцию, а процедуру.
...
Рейтинг: 0 / 0
28.07.2004, 09:51:57
| Ответить | Цитировать | Написать  
Функция с возвращением 2-х значений
    #32624525
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TatianaT
Участник
можно
создай свой тип
например
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

и пусть функция возвращает этот тип
...
Рейтинг: 0 / 0
28.07.2004, 09:52:51
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Функция с возвращением 2-х значений
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32624523&tid=1672892]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 233ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]