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

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

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

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

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

No.1 ベストアンサー 回答者： redfox63 回答日時： 2008/10/07 14:31

Str関数は 符号用のスペース + 数値 を返すので

引数が0なら 『" 0"』を返して Lenは2になると思います

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

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

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

この回答へのお礼

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

お礼日時：2008/10/07 15:05