vb6の桁数指定

こんばんわ。

vb6使用で、色々探してみたのですが、わかりませんでした。
12313133→そのまま
9797879797977896→9797977896
121212→そのまま

等を10桁に変換する関数です。

If IsNumeric(val) Then
val = Format(val, "##########")
endif
これで10桁にできないのですが、正しい方法を教えてほしいです。


同様に
111.938
を
11.9(3は四捨五入)
にする方法も、##.0ではないでしょうか？

よろしくお願い致します。

No.1 回答者： redfox63 回答日時： 2008/12/09 20:45

10桁の桁あわせはCDecとRightを組み合わせてやる方法でしょう

Function Dec2Str( ss as String, nLen as Integer) as string
　　dim tmp as Variant
　　tmp = CDec( ss )
　　tmp = Right( Format( tmp, "#" ), nLen )
　　Dec2Str = tmp
End Function

##.0では出来ません
Right(format( 111.938, "#.0"),4)
といった具合でしょう

この回答へのお礼

ありがとうございます。

10桁の例で、0の場合が空白になってしまうのは、他のコード追加で、
対処した方がよさそうでしょうか。

少数点の、0.1の場合、.1 になってしまうのも同様でしょうか。

お礼日時：2008/12/10 10:58

No.2 ベストアンサー 回答者： redfox63 回答日時： 2008/12/10 12:06

10桁ぞろえの場合

tmp = Right( Format( tmp, "#" ), nLen )
を
tmp = Right( Format( tmp, "#0" ), nLen )

少数の場合
Right(format( 111.938, "#0.0"),4)
としてみてください

この回答へのお礼

ありがとうございます！

分かりやすかったですし、勉強になりました。面白いです。

お礼日時：2008/12/10 14:21