Minimum et maximum

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 801 fois - Téléchargée 66 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
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 ?...
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

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.