ToString Format 齊頭用法

今早改寫公司的ERP時！看到了為了要數字轉文字而且While迴圈的寫法
初始值是數字1　可是想要産出0001的文字格式

Dim xLastNO As Integer = 1
Dim xLastNO_Str As String
While xLastNO_Str.Length < 4
      xLastNO_Str= "0" + xLastNO_Str
End While



看到了吧！舊式的這樣不錯吧！
其實在我以前也不這樣寫　我會這樣寫

Dim xLastNO As Integer = 1
Dim xLastNO_Str As String
xLastNO_Str = Right("0000" + xLastNO.ToString() , 4)



這樣的解法是把數字1轉成文字之後　再加上0000四個零
最後再取最後右邊四位！就會得到格式0001

作法全是對的　但是有新的做法囉
請看

Dim xLastNO As Integer = 1
Dim xLastNO_Str As String　＝　xLastNO.ToString("0000")




搞定

是不是很爽^_^

非常直覺非常好用！必學喔