Здравствуйте,

Делаю запрос из базы данных и получаю значение (Скорее всего типа integer)
Когда пытаюсь из данного значения вырезать кусок с позиции, то получается пустая строка.
Пробовал менять формат и использовать другие функции - не получалось(например: String(), CStr(), Right(),Left())
Код:

Dim rstA,sSql,n,t,b,a,i
t = 0
i = 0
sSql ="SELECT '1644064069' & PersonalAccountCalc & Right(PeriodCalc,2) & Mid(PeriodCalc,3,2) FROM qdfInvoices WHERE ID = <ID>"
OpenRecordset rstA, sSql
n = rstA(0).Value
MsgBox n - тут получается строка "16440640692142851"
a = Mid(n,2,4)
MsgBox a - пустая строка

Если присваиваю a=n то и а = 16440640692142851
(Тут код немного упрощён так как работаю в некотором личном интерпретаторе со встроенными объявлениями некоторых переменных)

carrotik,

Dim rstA,sSql,n,t,b,a,i
t = 0
i = 0
sSql ="SELECT '1644064069' & PersonalAccountCalc & Right(PeriodCalc,2) & Mid(PeriodCalc,3,2) FROM qdfInvoices WHERE ID = <ID>"
OpenRecordset rstA, sSql
n = rstA(0).Value
MsgBox n
MsgBox Len(n)

Первое сообщение показывает длинное число как и было, а второе "0"

carrotik,

Спасибо, добавил букву в начале. Получаемый "текст" является типом string. Получается его вырезать с помощью mid(), однако мне нужно делать некоторые вычисления, то есть вырезать некоторые позиции в данном числе и складывать между собой. не получается, скорее всего, потому что это считается типом string

Сделал так, работает:

t = mid(n,i,1)
t = Val(t)
a = a + t