Minimum et maximum

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 119 fois - Téléchargée 65 fois

Contenu du snippet

Un petite fonction pour controle les entrés de valeur

Source / Exemple :


Pour la valeur Maximun :
Dim Nombre_Entre As Integer 'As long, As byte etc... (numerique)
Dim Nombre_Sorti As Integer 'As long, As byte etc... (numerique)
Dim Nombre_Maximum As Integer 'As long, As byte etc... (numerique)

Nombre_Sorti = IIF(Nombre_Entre < Nombre_Maximum, Nombre_Entre, Nombre_maximum)

Pour minimum (une copy pas identique)

Nombre_Sorti = IIF(Nombre_Entre > Nombre_Minimum, Nombre_Entre, Nombre_Minimum)

Assemblage : (long mais très rapide)

Nombre_Sorti = IIF(Nombre_Entre < Nombre_Maximum, IIF(Nombre_Entre > Nombre_Minimum, Nombre_Entre, Nombre_Minimum), Nombre_maximum)

A voir également

Ajouter un commentaire

Commentaires

cs_vatoo
Messages postés
55
Date d'inscription
mardi 29 mai 2001
Statut
Membre
Dernière intervention
1 juillet 2005
-
Je rappelle qu'il est possible de faire simplement et sans test une fonction de maximum :

max(a,b) = 1/2*(a+b+abs(a-b))

min(a,b) = 1/2*(a+b-abs(a-b))

vouala
ninocris07
Messages postés
11
Date d'inscription
jeudi 15 janvier 2009
Statut
Membre
Dernière intervention
28 mai 2009
-
ca sert a quoi un max ds le code ?...

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.