~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Fonction : Min ' Retourne l'élèment le plus petit de la liste d'argument passée à la fonction Dim lgFor As Long, vrTmp vrTmp = Null ' Parcours de l'ensemble des arguments For lgFor = 0 To UBound(tabList) If IsNull(vrTmp) Then ' Initialisation de la valeur min vrTmp = tabList(lgFor) Else ' Comparaison de l'élément courant avec le min If (vrTmp > tabList(lgFor)) Then vrTmp = tabList(lgFor) End If Next lgFor ' Retourne l'élément le plus petit Min = vrTmp End Function |