VBA da EVEN ve ODD fonksiyonları

[Tevfik_Kursun]

Merhaba Arkadaşlar,
mod(2) yada TEKMİ, ÇİFTMİ, ISODD, ISEVEN fonksiyonlarını kullanmadan VBA da sayının çift yada tek olduğunu excel nasıl söyler?
Saygılarımla

 

[tamer42]

Merhaba Arkadaşlar,
mod(2) yada TEKMİ, ÇİFTMİ fonksiyonlarını kullanmadan VBA da sayının çift yada tek olduğunu excel nasıl söyler?
Saygılarımla

deneyiniz....

If a Mod 2 = 0 Then

MsgBox "Sayı Çift"

Else

MsgBox "Sayı tek"

End If

 

[Tevfik_Kursun]

Mod kullanmadan yok mu?

 

[Korhan Ayhan]

Bölme işlemi yaparak sonuç alabilirsiniz.

Bölende kalan yoksa sayı çifttir. Aksi durumda tektir.

 

[Tevfik_Kursun]

Sizlere katılıyorum. Bölünebilme kurallarına da iiraz etmiyorum. Ama =TEKMİ(A1) sorusuna cevap DOĞRU yada YANLIŞ oluyor. Bunu VBA da demenin mod(2) ve fonksiyon dışında bir yolu varsa, onu arıyorum.
Saygılarımla

 

[veyselemre]

Sub TEST()
    sayi = 23
    MsgBox IIf((-1) ^ sayi > 0, "Çift", "Tek")
End Sub

Function tekSayi(sayi)
    tekSayi = IIf((-1) ^ sayi < 0, True, False)
End Function

 

[Korhan Ayhan]

Bu önerimi veyselemre bey gibi fonksiyon haline getirip kullanabilirsiniz.

Option Explicit

Sub Test()
    Dim My_Number As Variant
    
    On Error GoTo Son
    
    My_Number = InputBox("Lütfen bir sayıs giriniz...")

    MsgBox K_ISEVEN(My_Number)
    
    Exit Sub

Son: MsgBox "Hatalı değer girdiniz!", vbCritical
End Sub

Function K_ISEVEN(ByVal My_Number As Variant) As Boolean
    K_ISEVEN = IIf(My_Number / 2 = Int(My_Number / 2), True, False)
End Function

 

[Tevfik_Kursun]

Hepinize teşekkür ederim.
Saygılarımla