mesela 1 den 100 kadar olan tam sayılar kümesini nasıl ifade ederiz
if (instr(arrayFromOneToHundred, 35)then
result = true
end if
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
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
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.
şö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
100 kadar manuel yazacakmıyız