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

> しかし・・・名前'ToHalfAdiust'は宣言されていません

Class1のメソッドですから。

Public Class Class1
  Public Shared Function ToHalfAdjust(ByVal dValue As Double, ByVal iDigits As Integer) As Double
    Dim dCoef As Double = System.Math.Pow(10, iDigits)
    If dValue > 0 Then
      Return System.Math.Floor((dValue * dCoef) + 0.5) / dCoef
    Else
      Return System.Math.Ceiling((dValue * dCoef) - 0.5) / dCoef
    End If
  End Function
End Class

Public Class Form1 

  Private Sub Form_Load()
    ' 有効小数桁数が小数第 2 位になるように四捨五入する
    Dim dValue As Double = Class1.ToHalfAdjust(12.325, 2)　'←こうすればいいよ
    ' 四捨五入した結果を表示する
    Console.WriteLine(dValue.ToString())  '12.33
  End Sub

  Public Shared Sub Main()
    Dim form As New Form1()
    form.Form_Load()
  End Sub
End Class

クラス名がメソッドのアタマにくっつくのがうぜーなら Module で。

Module Roundings
  Public Function ToHalfAdjust(ByVal dValue As Double, ByVal iDigits As Integer) As Double
    Dim dCoef As Double = System.Math.Pow(10, iDigits)
    If dValue > 0 Then
      Return System.Math.Floor((dValue * dCoef) + 0.5) / dCoef
    Else
      Return System.Math.Ceiling((dValue * dCoef) - 0.5) / dCoef
    End If
  End Function
End Module

Public Class Form1 

  Private Sub Form_Load()
    ' 有効小数桁数が小数第 2 位になるように四捨五入する
    Dim dValue As Double = ToHalfAdjust(12.325, 2)
    ' 四捨五入した結果を表示する
    Console.WriteLine(dValue.ToString())  '12.33
  End Sub

  Public Shared Sub Main()
    Dim form As New Form1()
    form.Form_Load()
  End Sub
End Class