C# と VB.NET の質問掲示板

お世話になります。hitoと申します。

現在、VB2008にてフォームの開発をしているのですが、
フォーム上にはDataGridViewを設置しています。
そして、そのDataGridViewには、数値のみを格納した列があります。

まず、その列のすべてのCellの値の合計値をします。
こちらがそのコードです。

	'列の合計を求める。
        Dim a As String = 0
        Dim s As Integer
        s = 0
        Dim i As DataGridViewRow
        For Each i In DataGridView_Sub.Rows
            If Not i.IsNewRow Then
                a = DataGridView_Sub(1, i.Index).Value
                If a <> "" Then
                    s = s + a
                End If
            End If
        Next i

一応上記のコードで合計値を求めることができます。
次にDataGridViewの１つのCellの値(数値型)を、上記のコードで求めた合計値で割り算をしたいと考えております。
こちらがそのソースになります。
         Dim Y As Integer
         Y = DataGridView_Sub.CurrentCellAddress.Y
         Dim b As Integer = 0
         Dim c As Integer = 0
         Dim DGV As Integer = 0
         DGV = DataGridView1(1, Y).Value
       　b = (DGV / s)
         Round2(b) 　　'<---四捨五入を行う
         c = b * 80

仮に、s の値が「14」だとします。
そうしますと、b = (4 / s)の部分で、bの値が0.2857........となります。
やりたい作業は、b の値を算出した直後にbを四捨五入するという仕様を作りたいということなのですが、
四捨五入をする際の計算方法がよく分からないんです・・・。
一応サイトを見て回り、
このようなサンプルコードを発見いたしました。
   Function Round2(ByVal A As Double)    '四捨五入関数
        If A = 0 Then
            Round2 = 0
        ElseIf A > 0 Then
            Round2 = Int(A + 0.5)
        Else
            Round2 = -Int(-A + 0.5)
        End If
    End Function

こちらのソースで四捨五入が出来るかと思ったのですが、このファンクションを通ったあと、
どのようにして、元のイベントに戻り値を返したらよいかが分からないんです。
恐縮ですが、Functionを通過した後の、戻り値の取得方法を教えてはいただけないでしょうか。
よろしくお願いします。

■No36140 (hito さん) に返信
> やりたい作業は、b の値を算出した直後にbを四捨五入するという仕様を作りたいということなのですが、
> 四捨五入をする際の計算方法がよく分からないんです・・・。
> 一応サイトを見て回り、
> このようなサンプルコードを発見いたしました。
>    Function Round2(ByVal A As Double)    '四捨五入関数
>         If A = 0 Then
>             Round2 = 0
>         ElseIf A > 0 Then
>             Round2 = Int(A + 0.5)
>         Else
>             Round2 = -Int(-A + 0.5)
>         End If
>     End Function
今試せる環境がないのですが、
このままだとエラーになりませんか？

> こちらのソースで四捨五入が出来るかと思ったのですが、このファンクションを通ったあと、
> どのようにして、元のイベントに戻り値を返したらよいかが分からないんです。
> 恐縮ですが、Functionを通過した後の、戻り値の取得方法を教えてはいただけないでしょうか。
Functionの使い方を調べると幸せになれると思います。
http://www.google.co.jp/search?hl=ja&q=vb+function+%96%DF%82%E8%92l

魔界の仮面弁士さん
s2nさん
回答ありがとうございます。

魔界の仮面弁士さんからのご指摘どおり、
bに代入した時点で、小数ではない値となっておりました。
現在はDouble型として宣言し、小数の値として扱えるようにしております。

その後、四捨五入のソースなんですが、
以下のように出来上がりました。

    ' ------------------------------------------------------------------------
    '       指定した精度の数値に四捨五入します。
    '
    ' @Param    dValue      丸め対象の倍精度浮動小数点数。
    ' @Param    iDigits     戻り値の有効桁数の精度。
    ' @Return               iDigits に等しい精度の数値に四捨五入された数値。
    ' ------------------------------------------------------------------------
    Public Function ToHalfAdjust(ByVal dValue As Double, ByVal iDigits As Integer) As Double
        Dim dCoef As Double

        dCoef = (10 ^ iDigits)

        If dValue > 0 Then
            ToHalfAdjust = Int(CDbl(dValue * dCoef + 0.5)) / dCoef
        Else
            ToHalfAdjust = Fix(CDbl(dValue * dCoef - 0.5)) / dCoef
        End If
    End Function

ただ、自分で書いたわけではなく、サイトを見てそのまま引用してしまったものなので、
具体的な説明は出来ないのですが・・・
bを引数として渡す際、iDigitsという変数に小数の桁数を渡します。
例えば、
dValue = ToHalfAdjust(b, 1)であれば、

bの値を小数第一位まで四捨五入するという事になります。

一応、目的の四捨五入ができるようになりましたので、解決いたしました。
ありがとうございました。