Вопрос № 49732: уменя проблема с автоматическим присвоение счетов
вот задача должно быть 7 символов например
номер участка 09, и между этим должны быть 5цифров 0914059
я создаю кнопку генерация лицевых счетов
как сделать на Visual Basic
...
Вопрос № 49.732
уменя проблема с автоматическим присвоение счетов
вот задача должно быть 7 символов например
номер участка 09, и между этим должны быть 5цифров 0914059
я создаю кнопку генерация лицевых счетов
как сделать на Visual Basic
Отвечает: AlexanderZh
Здравствуйте, Ибрашев Ербол Амангельдиевич!
пусть NN номер участка, N5 - соответственно 5 цифров (соответственно все integer)
NNS - промежуточный результат (string)
Res - результат (string)
тогда:
функция дополнения нулями:
Function Zeros(ByVal Val As Integer, ByVal L As Integer) As String
Zeros = Right(string(L,"0") & trim(Str(Val)), L)
End Function
а дальше используй такие строки:
NNS=Zeros(NN,2)
res=left(nns,1) & Zeros(n5,5) & right(nns,1)
Только сейчас вспомнил - Наверно точности integer не хватит... (если VB6) меняйте на Long
--------- Людей можно поделить на 10 типов: тех, кто понимает двоичную систему и тех, кто нет...
Ответ отправил: AlexanderZh (статус: 10-ый класс)
Ответ отправлен: 20.07.2006, 20:37 Оценка за ответ: 4
Отвечает: Александр Шевченко
Здравствуйте, Ибрашев Ербол Амангельдиевич!
Нужно последние 5 цифр хранить где-то (где - по вашему выбору: файл, реестр, база данных), возможно для каждого участка отдельно. Храниться будет последний присвоенный номер. При создании номера берется последний, увеличивается на 1, сохраняется в базу/файл/реестр и к нему прикрепляется номер участка. Далее полученный номер (7 символов) проставляется куда нужно.
--------- Вместо внутренней почты лучше стучитесь в аську
Ответ отправил: Александр Шевченко (статус: 8-ой класс)
Ответ отправлен: 21.07.2006, 09:35 Оценка за ответ: 5