VBAで四捨五入

VBまたはVBAでは、本当の四捨五入はできないようです。
自分で関数を作るしかありません。

‘四捨五入関数
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



コメントを残す

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください