ＶＢ2008で数字の桁数を調べるには？

質問

ＶＢ2008で数字の桁数を調べるにはどうすればいいでしょうか？

Dim i,Count As integer
i = 0
Count = Len(Str(i))

とすると4が帰って来ます。
なぜなのでしょうか？

また、もっといい方法がありましたら教えて下さい。
宜しくお願い致します。

回答No.1

redfox63 · ベストアンサー

Str関数は 符号用のスペース + 数値 を返すので
引数が0なら 『" 0"』を返して Lenは2になると思います

CStr関数は 符号用のスペースは付加されない『"0"』が返されます

Len関数で取得するより 返されるStringオブジェクトのLengthプロパティからす得してみてはいかがでしょう

Count = CStr(i).Length
Countが4になるのは考えにくいですが …
　　Unicode文字列のByte配列を取得した場合の長さなら2文字ですと4が返されますが …

お礼

ありがとうございました。
無事、問題が解決できました。