Ｐａｇｅ 531 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼競馬賞金 広島 04/3/9(火) 18:20 ┗Re:競馬賞金 こうちゃん 04/3/10(水) 10:37 ─────────────────────────────────────── ■題名 ： 競馬賞金 ■名前 ： 広島 <t1312865@hotmail.com> ■日付 ： 04/3/9(火) 18:20 -------------------------------------------------------------------------
| 競馬のデータを組んでいるものなのですが、賞金を計算するのに関数を使用するのですが 賞金 1着＝賞金*1倍 2着＝賞金*0.4倍 3着＝賞金*0.25倍 4着＝賞金*0.15倍 5着＝賞金*0.1倍 と、計算するのですが、この数値を左から3桁目を四捨五入しなければなりません。 競馬新聞を見れば分かると思いますが、何かうまい方法はないでしょうか。 よろしくお願いします。 (例）単位：＝万 1着＝3800 2着＝1500 3着＝950 4着＝570 5着＝380 こんな感じです。 |
| 広島さん、こんにちは >数値を左から3桁目を四捨五入しなければなりません。 >競馬新聞を見れば分かると思いますが、何かうまい方法はないでしょうか。 競馬新聞も見ませんし、競馬もしないので、よくわかりませんが、こんなことですか？ Sub test() MsgBox DIG2(22222, 1.5) End Sub Function DIG2(A As Double, B As Double) As Long Dim C As Double C = A * B DIG2 = Round(C * 10 ^ ((Len(CStr(Int(C))) - 2) * -1)) _ * 10 ^ (Len(CStr(Int(C))) - 2) End Function |