MCDMCM

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

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