ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция не возвращает значение
3 сообщений из 3, страница 1 из 1
Функция не возвращает значение
    #38702858
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Frost_Imp
Участник
Комрады, что я делаю не так?
Код: vbnet
\r\n    nextNum% = CheckDirSQL()\r\n\r\nFunction CheckDirSQL()\r\niFolderPath$ = aLog\r\niFileName$ = Date\r\nDim fn$, f%, l%, leght%, prevNum%\r\nfn$ = Dir(iFolderPath$ & iFileName$ & "*")\r\nDo While fn$ <> ""\r\n    f = InStrRev(fn$, "_")\r\n    l = InStrRev(fn$, ".")\r\n    leght = l - f - 1\r\n    CheckDir = Mid(fn, f + 1, leght)\r\n    If CheckDir > prevNum Then\r\n        prevNum = CheckDir\r\n        End If\r\n    fn$ = Dir\r\n    Loop\r\nEnd Function\r\n
\r\n
По идее, должно вернуться текстовое значение числа, которое становится числовым и дальше используется (функция CheckDirSQL ищет в папке файлы "имя_1", "имя_2", "имя_х" и т.д. и определяет последний порядковый номер файла "х"). В Access-e абсолютно такой же код работает, в Excel - нет, CheckDirSQL не передает значение в вызываемое место.
Где ошибка?
_____________________
А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как администрация форума попросила его быть вежливым.
...
Рейтинг: 0 / 0
22.07.2014, 13:48
| Ответить | Цитировать | Написать  
Функция не возвращает значение
    #38702880
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Frost_Imp,

А почему функция должна что-то вообще вернуть? Где Вы этой функции значение-то присваиваете?
Добавьте последней строкой:
Код: vbnet
1.
CheckDirSQL=prevNum
...
Рейтинг: 0 / 0
22.07.2014, 14:01
| Ответить | Цитировать | Написать  
Функция не возвращает значение
    #38702927
Frost_Imp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Frost_Imp
Участник
The_Prist, точно!
Благодарю!
...
Рейтинг: 0 / 0
22.07.2014, 14:19
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция не возвращает значение
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=40&tid=2156261]:
 0ms
get settings:
 12ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 48ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 285ms
total:  412ms
созд. / загр.: 412ms
x
x
Закрыть


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