Números primos

La siguiente fórmula personalizada te indica si es un
número primo o no. En caso de no ser primo de dice cuáles
son sus múltiplos.

Es un procedimiento recursivo, por lo que para valores muy
elevados tardará. En caso de ser superiores a 100000 te
aparece un cuadro de diálogo que te permite cancelar el
cálculo.

Function numprimo(esprimo)
If esprimo > 100000 Then
a = MsgBox("Esta operación será algo larga",
vbOKCancel)
If a = 2 Then
numprimo = "cancelado, operación larga"
Exit Function
End If
End If
recursivo = esprimo - 1
While recursivo <> 1
If esprimo / recursivo = Int(esprimo / recursivo) Then
calculo = calculo & " ," & recursivo
End If
recursivo = recursivo - 1
Wend
If calculo = "" Then
numprimo = "Es número primo, divisible por él mismo y
por la unidad"
Else
numprimo = "No es primo, sus múltiplos son: " & calculo
End If

End Function


Saludos,


Benito Merino
Barcelona

Muchisimas gracias a todos por vuestra ayuda. La verdad,
me ha sorprendido la dificultad de conseguirlo.
Un saludo a todos.

Hola a todos.

Alguien conoce una formula para saber si un número es
primo ?

Gracias anticipadas.
.