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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 254 fois - Téléchargée 23 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
cs_ShayW Messages postés 3258 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 56
Modifié par cs_ShayW le 20/05/2014 à 20:55
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
Whismeril Messages postés 17818 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 2 octobre 2022 618
20 mai 2014 à 20:15
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.
YepoMax Messages postés 74 Date d'inscription samedi 8 décembre 2012 Statut Membre Dernière intervention 14 juin 2014 20
20 mai 2014 à 19:50
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.