文字列の計算について (ID:124134)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private mconFixVal As Long = 100 '固定加算値 以下プロシージャの中身 Dim strCode As String 'コード Dim lngLenA As Long '文字列長１ Dim lngLenB As Long '文字列長２ Dim lngDigit As Long '桁 Dim lngResult As Long '足した結果 Dim strResult As String '最終的にほしい文字列 '桁数を取得 lngLenA = Len(strCode) lngLenB = Len(mconFixVal) '桁数の大きい方を取得 If lngLenA >= lngLenB Then lngDigit = lngLenA Else lngDigit = lngLenB End If 'コードを数値化して100加える lngResult = Val(strCode) + mconFixVal '足した結果を桁数０埋めで結果文字列に設定する strResult = Format(lngResult, String(lngDigit ,"0")) .Ｎｅｔにも応用は利くはず・・？？