AccessTr.neT
İki Sayı Aralığında Tam Sayılar Kümesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İki Sayı Aralığında Tam Sayılar Kümesi (/konu-iki-sayi-araliginda-tam-sayilar-kumesi.html)

Sayfalar: 1 2


İki Sayı Aralığında Tam Sayılar Kümesi - accessman - 21/03/2020

mesela 1 den 100 kadar olan tam sayılar kümesini nasıl ifade ederiz

if (instr(arrayFromOneToHundred, 35)then
result = true
end if



Cvp: İki Sayı Aralığında Tam Sayılar Kümesi - accessman - 21/03/2020

sayılar diyelim ki şöyle olsun
35,006
35,016
35,206
36,506
36,206
37,106
37,806
38,006
38,106
bunlarda döngüde if komutu içine gelince
35 grubunda bir kez
36 grubunda bir kez
37 grubunda bir kez
38 grubunda bir kez

fonksiyon çalışsın


Cvp: İki Sayı Aralığında Tam Sayılar Kümesi - berduş - 21/03/2020

1 ile 100 arası tüm sayılar tam sayıdır zaten ifadenizde sayıları küsürlü bir işleme tabi tutan bir işlem yok ki
ayrıca önceki konunuzda belirttiğim if int(d)=d doğru çalışıyor kontrol ettim


Cvp: İki Sayı Aralığında Tam Sayılar Kümesi - berduş - 21/03/2020

ayrıca 2. mesajınızda hiç biri tam sayı değil en fazla gelen ilk küsürlü sayı tamsayıya dönüştürülüp farklı diziye eklenir sıradaki gelince eğer aynı tamsayıdan dizide var ise atlanır.


Cvp: İki Sayı Aralığında Tam Sayılar Kümesi - berduş - 21/03/2020

şöyle yapabilirsiniz
dim TamSay as string
Tamsay=",1,2,3,4...…..,100,"
if instr(Tamsay, "," & int(sayınız) & ",")>0 then
fonksiyonu Çağı
replace(Tamsay, "," & int(sayınız) & ",",",")
end if



Cvp: İki Sayı Aralığında Tam Sayılar Kümesi - accessman - 21/03/2020

100 kadar manuel yazacakmıyız