Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Как добавить заполняющие нули при преобразовании числа в строку
 
 автор: ser60   (16.10.2013 в 08:24)   личное сообщение
 
 

У клиентов есть числовой код. Количество клиентов (пациентов, населения) может быть от сотен до сотен тысяч. Как преобразовать числовой код в строку с заполняющими нулями, типа 004278. На форуме по слову "заполняющ" ничего подходящего не нашел. В функции FORMAT пробовал Format([ВнуКодПациента];$00000#) и $#00000- не получилось. Не хочется изобретать велосипед с вычислением длины строки, и от ее количества вычислять количество заполняющих нулей, Заранее Спасибо за помощью.

  Ответить  
 
 автор: snipe   (16.10.2013 в 09:06)   личное сообщение
 
 

Dim asd as string
dim dfg as Long
dfg=4278
asd= Right("000000" & dfg,6)

по идее должно получиться "004278"

  Ответить  
 
 автор: Дядя Федор   (16.10.2013 в 10:49)   личное сообщение
 
 

Format подойдет. Например:

Const sformat$ = "0000000000"
Dim i@
Dim s$
i = 123456
'Получить 0000123456
Debug.Print  Format(i, sformat)

В запросе:
Format([ВнуКодПациента];"00000000") <- 0-й столько, сколько надо

  Ответить  
 
 автор: ser60   (16.10.2013 в 20:35)   личное сообщение
 
 

спасибо, формат действительно проще. Получилось!

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList