Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(NbChiffresFacto(329)) 'calculer 329!
End Sub
Public Function NbChiffresFacto(ByVal Nombre As Long) As Decimal
Dim s As Decimal
For i = 1 To Nombre
s += Math.Log10(i)
Next
Return Int(s + 1) 'Nombre de chiffres de la factorielle