Private Function ArrondiMaison(ByVal x As Double) As Double x = x * 10 Return (Math.Truncate(x) + If((x - Math.Truncate(x))=0, 0, 1)) / 10 End Function
titi = (toto * 100) - (Int(toto) * 100) If Not titi Mod 10 0 Then titi (titi \ 10) + 1 Else titi = titi / 10 MsgBox Int(toto) + titi / 10
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction MyRound(ByVal dValue As Decimal) As Decimal Return Math.Round((dValue + 0.04D), 1, MidpointRounding.ToEven) End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim ad() As Decimal = {14.67D, 14.11D, 14.19D, 14.4D} For Each d As Decimal In ad Console.WriteLine("'{0}' donne '{1}'", d, MyRound(d)) Next d End Sub
'14,67' donne '14,7' '14,11' donne '14,2' '14,19' donne '14,2' '14,4' donne '14,4'