vb6 - vb6を使用した、先行ゼロのある数値

Question

数値に先行ゼロを追加するにはどうすればよいですか？例えば：

Dim stracctnumber as String
stracctnumber = 987654321

stracctnumberが15文字未満の場合は、アカウント番号に先行ゼロを追加します。

最終的な番号は

stracctnumber = "000000987654321"

誰か助けてもらえますか？

score 16 · Accepted Answer

16

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

于 2009-12-10T22:06:38.323 に答える

score 5 · Accepted Answer

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

連結は比較的「高価」であることに注意してください。これが基本的な値を変更するのではなく、表示のみを目的としている場合は、Format()関数の使用を検討してください。

score -1 · Accepted Answer

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

これは、左側にスペースを追加するためです。

VBAExcelでうまく機能します.....

3 に答える 3