aeGNoR
Destek Ekibi
- Katılım
- 10 Mar 2021
- Mesajlar
- 878
- Çözümler
- 116
- Aldığı beğeni
- 1,017
- Excel V
- Office 2021 TR
Merhaba,
Kullandığınız dosya içerisinde bir modül içerisine aşağıdaki kodları eklerseniz asal sayı kontrolü yapabilirsiniz.
Kullandığınız dosya içerisinde bir modül içerisine aşağıdaki kodları eklerseniz asal sayı kontrolü yapabilirsiniz.
C++:
Option Explicit
Public Function ASALMI(Deger As Long) As Boolean
Dim i As Integer
Dim Bolum As Double
On Error GoTo Err:
For i = 2 To Deger / 2
Bolum = Deger / i
If Bolum = CLng(Bolum) Then
ASALMI = False
Exit Function
End If
Next i
ASALMI = True
Exit Function
Err:
ASALMI = err.Description
End Function