小数点表示で。

質問

dim a as double
dim b , c as integer

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

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

回答No.2

TAGOSAKU7

訂正です
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)
にするとうまくいきました。

回答No.1

TAGOSAKU7

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