A voir également:
- Python arrondi supérieur
- Php arrondi supérieur ✓ - Forum PHP
- Java arrondi supérieur ✓ - Forum Java
- Arrondi à n chiffres significatifs - Forum Java
- Partie entière d'un double ✓ - Forum Java
- Faire un arrondi par rapport à un pas ✓ - Forum PHP
2 réponses
J'espère que ça t'aidera
Private Sub Command1_Click()
v = Text1 'valeur à arrondir
f = v - Int(v) 'ne prend que les décimales
f = CStr(f)
f = Mid(f, 6, 1) 'repère le chiffre
If f <= 5 And f <> 0 Then 'analyse
v = Format(v, "0.000") + 0.001
Else
v = Format(v, "0.000")
End If
Text1 = v 'remet la nouvelle valeur
End Sub
Private Sub Command1_Click()
v = Text1 'valeur à arrondir
f = v - Int(v) 'ne prend que les décimales
f = CStr(f)
f = Mid(f, 6, 1) 'repère le chiffre
If f <= 5 And f <> 0 Then 'analyse
v = Format(v, "0.000") + 0.001
Else
v = Format(v, "0.000")
End If
Text1 = v 'remet la nouvelle valeur
End Sub
