question basique ^^ : création de fonction. Comment écrire le retour?Résolu

Question

Bonjour tout le monde
Encore une bête petite question ^^...à mon avis pas la dernière hehehe

Euh ben en fait j'ai suivi la synthaxe trouvée dans mon bouquin de vb pour créer une fonction tout à fait basique mais à la ligne: 
"Return monNBR"
ça me dit : fin d'instruction attendue

Ne vous énervez pas, j'ai regardé dans msdn comment faire une fonction mais j'ai pas tout assimilé là ^^

voilà la fonction... alors c'est quoi que je dois mettre à la place de Return monNBR? 

Public Function NBR(ByVal x As Integer) As Integer
    Dim monNBR As Integer
    If JourFérié(monNBR) = True Then
        monNBR = 2
    ElseIf x Mod 7 = 0 Then
        monNBR = 3
    Else 
        monNBR = 4
    End if
    Return monNBR
End Function

J'ai essayé de mettre NRB(x)= mon NBR aussi mais ça n'a pas marché. Je suis un peu (beaucoup) nulle hein heheh

thierrydelepine · Answer

Private Sub Command1_Click()
MsgBox test(1)
End Sub

Function test(i As Integer) As Integer
i = i + 10
test = i
End Function

comme tu peux le voir le retour ce fait par le test = i

pour toi

Public Function NBR(ByVal x As Integer) As Integer
Dim monNBR As Integer
If JourFérié(monNBR) = True Then
monNBR = 2
ElseIf x Mod 7 = 0 Then
monNBR = 3
Else 
monNBR = 4
End if
NBR =  monNBR
End Function

Skooma · Answer

merci beaucoup :)

Question basique ^^ : création de fonction. Comment écrire le retour?

2 réponses

Discussions similaires