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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 718 fois - Téléchargée 21 fois

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

Ajouter un commentaire

Commentaires

Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
49
Bonjour
Une fonction doit rendre une valeur
Aussi
Dim integerofdouble As Integer = number
Erreur problème de conversion. (option strict on et option explicit on)
et comme a suggéré Whismeril tu peux simplement ainsi
 Public Function RoundIntegerbyDefault(ByVal number As Double) As Int64
Return Convert.ToInt64(Math.Truncate(number))
End Function
Messages postés
14463
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
4 juillet 2020
420
Vu que le code est posté en VB.Net, pourquoi pas tout simplement
Dim toto As Double = Math.Round(1.123456789, 0)

Si on veut que le résultat soit un double.
Messages postés
74
Date d'inscription
samedi 8 décembre 2012
Statut
Membre
Dernière intervention
14 juin 2014
14
Bonjour,
Pourquoi écrire une fonction qui arrondi par défaut à l'entier près alors qu'il suffit d'utiliser "myNumber as Integer" ?

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.