arrondir à l entierRésolu

Question

Bonjour a tous, 

je suis sous vb.net et je chercher une solution pour arrondir certains calculs que j'execute.
Je souhaite arrondir &#224; l'entier 0, je m'explique:

1952 donne: 1950
13857 donne: 18860

comment faire?

merci d'avance 

spike

madbob · Accepted Answer

Tu t'&#233;cris ta propre fonction ...

soit traitement de chaine de caract&#232;re : un string qui r&#233;cup&#232;re le nombre

tu traites le dernier caract&#232;re (correspond &#224; un entier)

tu l'&#233;values 

tu surcharge ta string 

tu renvois le long


Sinon si t'es plus matheux

Tu peux &#233;crire une fonction r&#233;cursive avec l'usage de modulo, qui recherche l'unit&#233; et qui fait 

NBarrondi = nombre - unit&#233; et qui te retourne le nouveau nombre



Il n'y a pas de limite &#224; la cr&#233;ativit&#233;

Amuses toi bien
madbob

spike62300 · Answer

jvois a peu pres ske tu veux dire mais tu n'as pas un exemple pour que je comprenne mieux?

Merci d'avance

spike

madbob · Answer

Tiens un exemple en vba...




Function PB_CALC(byval P_Nombre as Long)


dim L_New as string


Dim L_Res As Long




'* je r&#233;cup&#232;re le nombre sous forme de chaine invers&#233;e - l'unit&#233; que je remplace par 0


L_new = 0 & Mid(StrReverse(P_Nombre), 2)




'* je remets la chaine &#224; l'endoit et je l'affecte &#224; un nombre


L_Res = StrReverse(L_new)




'* je renvois la nouvelle valeur


PB_CALC = L_Res






End Sub


madbob

talking · Answer

Ben ce que tu peux faire c'est faire une fonction qui r&#233;cup&#232;re le dernier chiffre

style 
Function arrondir(nombre As String) As Long
DernChiffre = Mid(nombre, Len(nombre))
End Function

Ensuite tu v&#233;rifies si le DernChiffre < 5 tu remplaces par 0
exemple si dernier chiffre = 4 alors je le remplace par0
Sinon si le dernier chiffre > 5 ben tu augmentes le nombre des dizaines de 1 par exemple apr&#233;s c'est &#224; toi de voir la m&#233;thode &#224; trait&#233; dans les conditions

PS : je suis &#224; vb6

madbob · Answer

L'exemple que je t'ai donn&#233; sert &#224; ex&#233;cuter ta question cad arrondir &#224; l'entier 0...




Je souhaite arrondir &#224; l'entier 0, je m'explique:




1952 donne: 1950


13857 donne: 18860






Spike t'es mignon mais si ta question change toutes les 2 minutes tu n'y arrivera pas. D'autre part je ne suis pas une girouette.



Avec l'exemple que je t'ai donn&#233; et un poil d'imagination tu peux
absolument arriver &#224; traiter tous les cas de figure... Fait transpirer
un peu tes neurones tu verras c'est pas si dur.



Ce code marche parfaitement sur VB6. (juste faut mettre un end function et non un end sub)




madbob

madbob · Answer

Excuse moi spike j'ai pas vu la greffe sur ton poste le message
pr&#233;c&#233;dent s'adresse &#224; talking et est un schouia en dehors du context


madbob

madbob · Answer

Et je suis pas r&#233;veill&#233; non plus talking 

compl&#232;tement mad le bob
Tiens un ptit kf&#233; pour me faire pardonn&#233; ?
madbob

spike62300 · Answer

Oui ok merci pour vos deux explications:

celle de talking j'ai compris mais par contre madbob j'ai essay&#233; la tienne sans vraiment comprendre ca marche sauf qu'il faut que je mette:
L_Res=StrReverse(L_new) & 0

Merci encore pour votre aide 

spike

spike62300 · Answer

Nan tinkiet c bon ^^

Jvais faire fonctionner mes neuronnes comme tu dit 

spike

Gobillot · Answer

bien plus simple:
    Dim N As Integer
    N = 1952
    N = (N \ 10) * 10
    MsgBox N

Daniel

cqui789 · Answer

Gobillot, c'est etonnant mais la seule reponse qui me semble valable est la seule qui ne soit pas acceptee...



il faudrais quand meme la modifiee un peu



Dim N As Integer

    N = 1957

    N = ((N + 5) \ 10) * 10 ' ###5 ou plus, donne la dizaine supperieure

    MsgBox N

Gobillot · Answer

heu oui j'avais pas vu qu'il fallait arrondir !

Daniel

Arrondir à l entier

12 réponses

Discussions similaires