Mat - Massimo Comun Divisore E Minimo Comun Multiplo

Visual # Con la seguente funzione e' possibile calcolare il Massimo Comune Divisore fra
due numeri interi
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