OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

小数点表示で。

  • すぐに回答を!
  • 質問No.166834
  • 閲覧数358
  • ありがとう数3
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 35% (35/99)

dim a as double
dim b , c as integer

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

label1.captin=aとして表示したいのですが
label1のdataなんとか・・・プロパティをかえてもだめでした。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル12

ベストアンサー率 65% (276/422)

0.3456を小数点第1位で計算するとき 10倍 → 3.456 0.5をたす → 3.956 整数のみ取得 → 3 10で割る → 0.3 0.3456を小数点第2位で計算するとき 100倍 → 34.56 0.5をたす → 35.06 整数のみ取得 → 35 100で割る → 0.35 0.3456を小数点第2位で計算するとき 1000倍 → 345.6 0.5をたす ...続きを読む
0.3456を小数点第1位で計算するとき
10倍 → 3.456
0.5をたす → 3.956
整数のみ取得 → 3
10で割る → 0.3

0.3456を小数点第2位で計算するとき
100倍 → 34.56
0.5をたす → 35.06
整数のみ取得 → 35
100で割る → 0.35

0.3456を小数点第2位で計算するとき
1000倍 → 345.6
0.5をたす → 356.1
整数のみ取得 → 356
1000で割る → 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

'パラメータ1:ダブル型の数
'パラメータ2:小数点第何位にするかの値
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
レベル12

ベストアンサー率 65% (276/422)

訂正です 0.3456を小数点第2位で計算するとき 1000倍 → 345.6 0.5をたす → 356.1 整数のみ取得 → 356 1000で割る → 0.356 の部分は 0.3456を小数点第2位で計算するとき 1000倍 → 345.6 0.5をたす → 346.1 整数のみ取得 → 346 1000で割る → 0.346 です。 ...続きを読む
訂正です
0.3456を小数点第2位で計算するとき
1000倍 → 345.6
0.5をたす → 356.1
整数のみ取得 → 356
1000で割る → 0.356

の部分は

0.3456を小数点第2位で計算するとき
1000倍 → 345.6
0.5をたす → 346.1
整数のみ取得 → 346
1000で割る → 0.346

です。
お礼コメント
sakky_t

お礼率 35% (35/99)

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

少数表示なりました。
ただMe.Label1.Caption = funcRound(a, 2) では
エラーになりました。
Me.Label1.Caption = Round(a, 2)
にするとうまくいきました。
投稿日時 - 2001-11-11 23:25:14
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ