VB6을 사용하여 주요 0을 가진 숫자

Question

선행 제로를 숫자에 추가하려면 어떻게해야합니까? 예를 들어:

Dim stracctnumber as String
stracctnumber = 987654321

만약에 stracctnumber 15 자 미만인 다음 계정 번호에 선행 제로를 추가하십시오.

마지막 숫자는이어야합니다

stracctnumber = "000000987654321"

누구든지 나를 도울 수 있습니까?

Answer 1

stracctnumber = Format(stracctnumber, String(15, "0"))

Answer 2

strAcct = Right("000000000000000" & strAcct, 15)

연결은 상대적으로 '비싸다'. 이것이 기본 값을 수정하기보다는 표시를위한 것이라면 Format() 기능.

Answer 3

B8 = Format((Format(B2, "###,###")), "@@@@@@@")

이것은 왼쪽에 공백을 추가하는 것입니다.

VBA Excel에서 잘 작동합니다 .....