Kullanıcı Fonksiyon Oluşturmak

[Yesilyurtlu]

Ekte ki Dosyada ki oranlar için KTF oluşturabilmek için yardımcı olabilir misiniz

 

[Necdet]

Merhaba,

Sorunuz çok açık değil ama anladığım kadarıyla sınıfın bir önemi yok gibi.

Bu durumda 2 parametre gerekli

• Derece
• Okul Süresi

Bir deneyiniz.

Function OranBul(Derece As Integer, OgrenimSuresi As Integer) As Double
    Dim Oran As Variant
    If Derece < 3 Then
        Oran = 1
    ElseIf Derece < 5 Then
        Oran = 0.95
    Else
        Oran = 0.85
    End If
    If OgrenimSuresi > 2 Then
        Oran = Oran + 0.15
    ElseIf OgrenimSuresi > 1 Then
        Oran = Oran + 0.1
    End If
    OranBul = Oran
End Function

 

[Yesilyurtlu]

Necdet Abi
=OranBul(Derece;.........)
Okul Süresi kısmını yapamadım. Bir örnek dosya Yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Dosyayı ilk mesajıma ekledim.

 

[Yesilyurtlu]

Necdet Abi Teşekkür Ederim

 

[Necdet]

Güle güle kullanınız.