Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 395 fois - Téléchargée 72 fois
'*********************************************************************************************************** ' Name : xGCF ' Purpose : Returns the Greatest Common Factor ' i.e. The largest number which will evenly divide into both X and Y ' Syntax : xGCF(Number1, Number2) ' Parameters : Number1 : 1st number ' Number2 : 2nd number ' Return : The Greatest Common Factor '*********************************************************************************************************** Public Function xGCF(ByVal Number1 As Long, ByVal Number2 As Long) As Long Dim lngTemp As Long Number1 = Abs(Number1) 'Make both numbers positive Number2 = Abs(Number2) lngTemp = Number1 Mod Number2 Do While lngTemp > 0 Number1 = Number2 Number2 = lngTemp lngTemp = Number1 Mod Number2 Loop xGCF = Number2 End Function
Et pourquoi ne pas utiliser la récursivité, dans cette "affaire" ?
Faisons-le, juste pour voir :
Public Function PGCD(X As Long, Y As Long) As Long
If X Mod Y = 0 Then
PGCD = Y
Else
PGCD = PGCD(Y Mod X, X)
End If
End Function
Amitiés à tous
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.