Arrondi d'une variable double par défaut à l'entier près

Commenter

Contenu du snippet

Bonjour !
Je pratique le VB depuis longtemps, et au cours d'un de mes logiciels j'ai eu besoin d'arrondir une variable double par défaut à l'entier près. 
Public Function RoundIntegerbyDefault(ByVal number As Double)
    Dim integerofdouble As Integer = number 'Déclarer la valeur entière du nombre double. Lorsque une variable Integer prend la valeur d'une variable Double, elle arrondit la valeur de cette dernière par défaut.
    If number < integerofdouble Then 'Si le nombre est inférieur à la valeur arrondie, c'est que le nombre est plus près de l'entier supérieur.
        integerofdouble = integerofdouble - 1 'Décrémenter la valeur entière du nombre double de 1
    Else
        'Sinon, c'est que la valeur est déjà arrondie par défaut, et c'est ce que l'on veut.
    End If
    Return integerofdouble 'Retourner la valeur arrondie
End Function

Cette fonction est très simple à réaliser, et doit être appelée en tant que valeur.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ThuleMalta)