Function modul(a As Integer)
If a < 0 Then modul = "modül değeri sıfırdan küçük olamaz"
If a > 0 And a <= 1.125 Then modul = "1"
If a > 1.125 And a <= 1.375 Then modul = "1.25"
If a > 1.375 And a <= 1.625 Then modul = "1.5"
If a > 1.625 And a <= 1.875 Then modul = "1.75"
If a > 1.875 And a <= 2.125 Then modul = "2"
If a > 2.125 And a <= 2.375 Then modul = "2.25"
If a > 2.375 And a <= 2.625 Then modul = "2.5"
If a > 2.625 And a <= 2.875 Then modul = "2.75"
If a > 2.875 And a <= 3.125 Then modul = "3"
If a > 3.125 And a <= 3.375 Then modul = "3.25"
If a > 3.375 And a <= 3.625 Then modul = "3.5"
If a > 3.625 And a <= 3.875 Then modul = "3.75"
If a > 3.875 And a <= 4.25 Then modul = "4"
If a > 4.25 And a <= 4.75 Then modul = "4.5"
If a > 4.75 And a <= 5.25 Then modul = "5"
If a > 5.25 And a <= 5.75 Then modul = "5.5"
If a > 5.75 And a <= 6.25 Then modul = "6"
If a > 6.25 And a <= 6.75 Then modul = "6.5"
If a > 6.75 And a <= 7.5 Then modul = "7"
If a > 7.5 And a <= 8.5 Then modul = "8"
If a > 8.5 And a <= 9.5 Then modul = "9"
If a > 9.5 And a <= 10.5 Then modul = "10"
If a > 10.5 And a <= 11.5 Then modul = "11"
If a > 11.5 And a <= 12.5 Then modul = "12"
If a > 12.5 And a <= 13.5 Then modul = "13"
If a > 13.5 And a <= 14.5 Then modul = "14"
If a > 14.5 And a <= 15.5 Then modul = "15"
If a > 15.5 And a <= 17 Then modul = "16"
If a > 17 And a <= 19 Then modul = "18"
If a > 19 And a <= 21 Then modul = "20"
If a > 21 And a <= 23.5 Then modul = "22"
If a > 23.5 And a <= 26.5 Then modul = "25"
If a > 26.5 And a <= 30 Then modul = "28"
If a > 30 And a <= 34 Then modul = "32"
If a > 34 And a <= 38 Then modul = "36"
If a > 38 And a <= 50 Then modul = "40"
If a > 50 Then modul = "modulün bu kadar büyük olduğuna emin misiniz?"
End Function
------
bu komutlar1 yaz1yorum ard1ndan
hücreye=modul(b1)
b1 e 1.24 yazigimda kabul etmiyo(tarihe çeviriyo)
virgüllüde de(1,24) yine dogru çalismiyo...
:agla: yarddiimmm eddiiinnn
If a < 0 Then modul = "modül değeri sıfırdan küçük olamaz"
If a > 0 And a <= 1.125 Then modul = "1"
If a > 1.125 And a <= 1.375 Then modul = "1.25"
If a > 1.375 And a <= 1.625 Then modul = "1.5"
If a > 1.625 And a <= 1.875 Then modul = "1.75"
If a > 1.875 And a <= 2.125 Then modul = "2"
If a > 2.125 And a <= 2.375 Then modul = "2.25"
If a > 2.375 And a <= 2.625 Then modul = "2.5"
If a > 2.625 And a <= 2.875 Then modul = "2.75"
If a > 2.875 And a <= 3.125 Then modul = "3"
If a > 3.125 And a <= 3.375 Then modul = "3.25"
If a > 3.375 And a <= 3.625 Then modul = "3.5"
If a > 3.625 And a <= 3.875 Then modul = "3.75"
If a > 3.875 And a <= 4.25 Then modul = "4"
If a > 4.25 And a <= 4.75 Then modul = "4.5"
If a > 4.75 And a <= 5.25 Then modul = "5"
If a > 5.25 And a <= 5.75 Then modul = "5.5"
If a > 5.75 And a <= 6.25 Then modul = "6"
If a > 6.25 And a <= 6.75 Then modul = "6.5"
If a > 6.75 And a <= 7.5 Then modul = "7"
If a > 7.5 And a <= 8.5 Then modul = "8"
If a > 8.5 And a <= 9.5 Then modul = "9"
If a > 9.5 And a <= 10.5 Then modul = "10"
If a > 10.5 And a <= 11.5 Then modul = "11"
If a > 11.5 And a <= 12.5 Then modul = "12"
If a > 12.5 And a <= 13.5 Then modul = "13"
If a > 13.5 And a <= 14.5 Then modul = "14"
If a > 14.5 And a <= 15.5 Then modul = "15"
If a > 15.5 And a <= 17 Then modul = "16"
If a > 17 And a <= 19 Then modul = "18"
If a > 19 And a <= 21 Then modul = "20"
If a > 21 And a <= 23.5 Then modul = "22"
If a > 23.5 And a <= 26.5 Then modul = "25"
If a > 26.5 And a <= 30 Then modul = "28"
If a > 30 And a <= 34 Then modul = "32"
If a > 34 And a <= 38 Then modul = "36"
If a > 38 And a <= 50 Then modul = "40"
If a > 50 Then modul = "modulün bu kadar büyük olduğuna emin misiniz?"
End Function
------
bu komutlar1 yaz1yorum ard1ndan
hücreye=modul(b1)
b1 e 1.24 yazigimda kabul etmiyo(tarihe çeviriyo)
virgüllüde de(1,24) yine dogru çalismiyo...
:agla: yarddiimmm eddiiinnn