iorekremy
Messages postés6Date d'inscriptionlundi 17 janvier 2005StatutMembreDernière intervention26 mars 2009
-
26 mars 2009 à 11:12
iorekremy
Messages postés6Date d'inscriptionlundi 17 janvier 2005StatutMembreDernière intervention26 mars 2009
-
26 mars 2009 à 17:54
Bonjour,
Je cherche une fonction me permettant d'arrondir un entier à la dixaine, par exemple avec 16 obtenir 20.
Donc si quelqu'un à une solution, merci d'avance.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 mars 2009 à 13:11
possible de faire
Public Function Round(ByVal vnNumber As Integer, Optional ByVal vnStep As Integer = 10) As Integer
If vnStep > 0 Then
Dim nMod As Integer = vnNumber Mod vnStep
If vnStep - nMod > nMod Then
Return vnNumber - nMod
Else
Return vnNumber + vnStep - nMod
End If
End If
End Function
se range tout seul près de la borne inférieure ou de la borne supérieur
13 => 10
16 => 20