Module Module1Public Enum ctArrondi
ParDefaut = -1
AuPlusPres = 0
ParExces = 1
End Enum
Function Arrondir(ByVal Nb As Double, ByVal Multiple As Double, Optional ByVal Sens As ctArrondi = ctArrondi.AuPlusPres) As Double
If Nb = Int(Nb / Multiple) * Multiple Then
Arrondir = Nb
Else
Arrondir = Int(Nb / Multiple + (Sens + 1) / 2) * Multiple
End If
End FunctionEnd Module
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Arrondir(CDbl(TextBox1.Text), 0.5, ctArrondi.AuPlusPres).ToString)
End Sub