Factorielle (n!) de n<170

Commenter

Contenu du snippet

Un code pour calculer la factorielle d'un nombre...
Le nombre doit etre plus petit que 171.
Il existe un autre pour les numbres jusqu'à 800, mais il est plus compliqé... Vous pouvez le trouver à http://www.vbfrance.com/article.aspx?Val=1514

Source / Exemple : 


Function Factorial(ByVal Number As Long) As Double
    Dim Result As Double
    Dim n As Integer
        
    If (Number < 0) Or (Number > 170) Then
        Call MsgBox("Number too high : " & CStr(Number), vbCritical + vbOKOnly)
        Exit Function
    End If

    Result = 1
    For n = 1 To Number
        Result = Result * n
    Next
    
    Factorial = Result
End Function

Conclusion :


Voila... aucun bog connu ;)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_seyev)