整数部の長さによって少数部の長さを調節するには？

解決

KEN 2007-04-19 00:06:06 No: 136147

タイトルのとおりです。
例えば、20÷3だったら 6.6666667
20000÷3だったら 6666.6667
のようにするにはどのようにしたらいいでしょうか？
ＶＢ6.0、ＸＰです。

誰かご教授ください＞＜

もげ 2007-04-19 00:19:56 No: 136148

タイトルのとおりでは？

整数部の長さ（ピリオドの位置）を求めて、小数部を調整すればよろしいかと。
文字列でやるならInStr関数とLeft関数やRight関数、
数値でなら、
0〜9
10〜99
・
・
のようにSelect文で分岐とか。
小数点位置（精度）を指定可能な四捨五入関数を用意するとよいでしょう。
http://jeanne.wankuma.com/tips/math/halfadjust.html

ＫＥＮ 2007-04-19 00:28:58 No: 136149

もげさん回答ありがとうございます。
解決しました。

もげ 2007-04-19 01:35:12 No: 136150

解決チェックを忘れずに;-)

訂正）
× Select文
○ Select...Case ステートメント