• DLL
  • Восстановленный участник
  • На форуме с 18 апреля 2006г.
  • Сообщений: 6
  • Спасибо: 0

Тема: Как число преобразовать в строку по маске?

Нужно допустим число 12 представить (записать в строку) в виде маски с 5 символами 00012
число
было (маска 5 разядов) 00012
было (маска 3 разяда) 012
и т.п

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как число преобразовать в строку по маске?

Public Function conv(lenght As Integer, whiteSimbol As String, str As String)
 If lenght > Len(str) Then
  conv = String(lenght - Len(str), whiteSimbol) & str
 Else
  conv = str
 End If
End Function

Вариант вызова 

MsgBox conv(10, "0", 12)