MCMMCC

Function MaxComuneDivisore(Primo As Long, Secondo As Long) As Long
Dim Temp As Long
Primo = Abs(Primo)
Secondo = Abs(Secondo)
Temp = Primo Mod Secondo
Do While Temp > 0
Primo = Secondo
Secondo = Temp
Temp = Primo Mod Secondo
Loop
MaxComuneDivisore = Secondo
End Function

'Con la seguente funzione e possibile calcolare il Minimo Comune Multiplo

'fra due numeri interi

Function MinimoComuneMult(Primo As Long, Secondo as Long) As Long
MinimoComuneMult = abs(Secondo) * (Abs(Primo) \ MaxComuneDivisore(Primo,Secondo))
End Function

Con la seguente funzione e possibile calcolare il Massimo
Comune Divisore fra due numeri interi