小数点表示で。

dim a as double
dim b , c as integer

a=b/c　とした時、b/cが割りきれない場合は
aを四捨五入して少数第１位まで表示したいのですが
その時はどのようにすればよいですか？

label1.captin=aとして表示したいのですが
label1のdataなんとか・・・プロパティをかえてもだめでした。

No.1 回答者： TAGOSAKU7 回答日時： 2001/11/11 15:57

0.3456を小数点第１位で計算するとき

１０倍 → 3.456
０．５をたす → 3.956
整数のみ取得 → 3
１０で割る → 0.3

0.3456を小数点第２位で計算するとき
１００倍 → 34.56
０．５をたす → 35.06
整数のみ取得 → 35
１００で割る → 0.35

0.3456を小数点第２位で計算するとき
１０００倍 → 345.6
０．５をたす → 356.1
整数のみ取得 → 356
１０００で割る → 0.356

といった処理になります。

以下のソースを試してください。。。

Sub Main()
　　Dim a As Double
　　
　　Dim b, c As Integer
　　
　　b = 2
　　c = 3
　　
　　a = b / c
　　Me.Label1.Caption = funcRound(a, 2)
End Sub

'パラメータ１：ダブル型の数
'パラメータ２：小数点第何位にするかの値
Function funcRound(inDbl As Double, inRoundNum As Long) As Double
　　Dim wkLng　 As Long
　　
　　wkLng = 10 ^ inRoundNum
　　
　　funcRound = Int((inDbl * wkLng) + 0.5) / wkLng
End Function

No.2 回答者： TAGOSAKU7 回答日時： 2001/11/11 16:38

訂正です

0.3456を小数点第２位で計算するとき
１０００倍 → 345.6
０．５をたす → 356.1
整数のみ取得 → 356
１０００で割る → 0.356

の部分は

0.3456を小数点第２位で計算するとき
１０００倍 → 345.6
０．５をたす → 346.1
整数のみ取得 → 346
１０００で割る → 0.346

です。

この回答へのお礼

いつもありがとうございます。

少数表示なりました。
ただMe.Label1.Caption = funcRound(a, 2) では
エラーになりました。
Me.Label1.Caption = Round(a, 2)
にするとうまくいきました。

お礼日時：2001/11/11 23:25