Estimation

Je veux savoir comment la fonction qui permetterais d'estimer un chiffre à son blus bas (ex: 3.9 = 3) ou a son plus haut (ex: 3.2 = 4) avec Vb.net
Merci

pour le plus petit, tu fait comme sa:
Valeur = int(Valeur)
et pour le plus haut:
If Len(CStr(Valeur)) > 1 Then Valeur = CStr(Int(Valeur) + 1)
K@zuya

Sauf que ca ne marche pas si ton nombre est du style 33.2

La solution est :
- si ton nombre est positif :
- valeur + petit : int (valeur)
- valeur + haut : int(valeur) + 1
- si ton nombre est négatif
- valeur + petit : int(valeur) : int(-3.2) = -4
- valeur + haut : fix(valeur) : int(-3.2) = - 3

Sinon tu as aussi la fonction round
round(3.2) = 3
round (3.6) = 4

mais bon tu traite tes chaine de caractere

plus petit ac un chiffre apres la virgule

nb=left(3.2,len(3.2)-2)

ou un split
dim nb() as integer
nb=split(3.2,".")
ton nombre est alors dans nb(0)

est la plus de prob de nombre aprés la virgule

si tu veux le nombre d'au dessus tu ais plus un
mais bon c'est des chiffre pas des lettre

Salut !

V'là une procédure qui devrai fonctionner :

Function MyRound(ByVal Number As Single, ByVal ToSup As Boolean)

If ToSup Then
If Number < 0 Then
MyRound = Fix(Number)
Else
MyRound = Int(Number) + IIf(Int(Number) <> Number, 1, 0)
End If
Else
MyRound = Int(Number)
End If

End Function

Pour avoir l'inférieur c'est resultat=MyRound(nombre,False) et le supérieur c'est resultat=MyRound(nombre,True)

On peut peut-être optimiser mais bon...

Bricomix

Oups pardon c'est du VB.net j'avais pas fais gaffe bon bas tant pis

Bricomix