Fonctions Min / Max

Le
jerome
Bonjour,

Existe-t-il en VB 6 des fonctions qui renvoient le min et le max d'une
série.
Comme valeur = MIN (expr1,expr2,expr3)

Merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-marc
Le #15394251
jerome wrote:
Bonjour,

Existe-t-il en VB 6 des fonctions qui renvoient le min et le max d'une
série.
Comme valeur = MIN (expr1,expr2,expr3...)

Merci



Hello,

Non ça n'existe pas.
Mais tu peux les implméenter comme ceci :


Public Function F_Min(ParamArray t() As Variant) As Variant
Dim i As Long
Dim v As Variant

v = t(LBound(t()))
For i = LBound(t()) To UBound(t())
If t(i) < v Then
v = t(i)
End If
Next i
F_Min = v
End Function


Et on appelle comme ça :

Dim min_dbl As Double
Dim min_str As String


min_dbl = F_Min(2.3, 4.78, 3.14, 8.456, 9.21, 1.789)
Debug.Print "min=" & min_dbl

min_str = F_Min("Hello", "abcd", "ABCD", "World")
Debug.Print "min=" & min_str


Sachant que:

- Ce n'est pas performant
- Ce n'est pas très élégant, ni très propre
- Ce n'est pas très sur.

Il vaut certainement mieux implémenter les fonctions MIN et MAX pour
qu'elles
prennent en argument un tableau bien typé.

Bonne prog.


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Publicité
Poster une réponse
Anonyme