Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция не возвращает значение / 3 сообщений из 3, страница 1 из 1
22.07.2014, 13:48
    #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, 14:01
    #38702880
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция не возвращает значение
Frost_Imp,

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


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