extraiare la valeur maximaleRésolu

Question

bonjour, j'aurais aimer savoir s'il existait un fonction permettant d'extraire la valeur maximale entre plusieures variables en vb6


j'mexplique : l'utilisteur saisi 4 nombres (avec la fonction InputBox) et le programme doit renvoyer le nombre le plus grand parmis ceux qui ont &#233;t&#233; saisis.


J'ai d&#233;j&#224; un algorithme qui me permet de faire cette manipulation avec des structures conditionnelles If...Then, mais j'aimerai savoir si c'est possible d'utiliser directement une fontion du type "R&#233;sultat = Max ( Nb1, Nb2, Nb3, Nb4)"


Voila merci pour votre aide.

cboulas · Accepted Answer

Salut, voici tout ce que j'ai &#224; te proposer pour le moment :

    If a > b And a > c And a > d Then
        toto = a
    ElseIf b > a And b > c And b > d Then
        toto = b
    ElseIf c > a And c > b And c > d Then
        toto = c
    ElseIf d > a And d > c And d > b Then
        toto = d
    End If


Chris...
Web : Firstruner

jpleroisse · Answer

Bonjour,

Si tu mettais ton code se serait mieux pour essayer de trouver une solution.

jpleroisse

cs_max510 · Answer

voici mon code actuel si ca peut aider :

Public Sub main()

Dim x As Single
Dim y As Single
Dim z As Single
Dim t As Single
Dim Max As Single


x = InputBox("Quelle est la valeur de x ?")
y = InputBox("Quelle est la valeur de y ?")
z = InputBox("Quelle est la valeur de z ?")
t = InputBox("Quelle est la valeur de t ?")


If  x > y Then
    Max = x
    Else
    Max = y
End If


If  Max < z  Then
    Max = z
End If


If Max < t Then
    Max = t
End If


Debug.Print "La valeur maximale est :"; Max


End Sub

cboulas · Answer

toto te renvoyant bien entendu la maleur max


Chris...
Web : Firstruner

cs_max510 · Answer

ok, merci

PCPT · Answer

salut, pour adapter en "fonction" : Private Function GetMax(ByVal lA As Long, ByVal lB As Long, _ ByVal lC As Long, ByVal lD As Long) As Long If (lA > lB And lA > lC And lA > lD) Then GetMax = lA ElseIf (lB > lA And lB > lC And lB > lD) Then GetMax = lB ElseIf (lC > lA And lC > lB And lC > lD) Then GetMax = lC ElseIf (lD > lA And lD > lC And lD > lB) Then GetMax = lD End If End Function Coloration syntaxique automatique [AFCK] PCPT

Extraiare la valeur maximale

6 réponses

Discussions similaires