~ 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 : Max ' Retourne l'élèment le plus grand de la liste d'argument passé à 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 max vrTmp = tabList(lgFor) Else ' Comparaison de l'élément courant avec le max If (vrTmp < tabList(lgFor)) Then vrTmp = tabList(lgFor) End If Next lgFor ' Retourne l'élément le plus grand Max = vrTmp End Function |