Kod:
Function Kredi(Ort As Integer) Dim Kredi As Integer Dim Krdx As Integer If Ort 0 Then Kredi = Krdx / Ort Else Kredi = 0 End If End Function


Arkadaşlar yukarıdaki işlemi bir fonksiyon olarak yapmaya calıştım, ancak olmadı.
Bir cok yerde kullanmam gerektiği icin fonksiyon olarak duşundum.
(Aşağı yukarı 80 ders icin bu işlemi yapacak. Cunku bolumlere gore ders sayısı değişiyor.)

Oğrencinin Kredi Ağırlık Katsayısı(Krdx) ve Kredi toplamını(Kredi) bolmeyi
amaclayan bir formul.

Orneğin:

Oğrencinin Kredi Ağırlık Katsayısı 34 olsun

Kredi toplamı da 15


Ortalama = 34 / 15

Ortalama = 2,27 cıkacak

ya da değerler ne gelecekse ona gore sonuc elde edeceğim.

Yardımlarınız icin şimdiden Teşekkurler.
__________________