msgbox ve inputbox kullanarak asgari geçim indirim oranı hesaplama

[mesudiye_052]

Selamlar;

Şu aralar msgbox ve inputbox konularını öğrenmeye çalışıyorum
bu konuları daha iyi anlamam için böyle bir örnek uygun gördüm
yardımcı olursanız sevinirim

msgbox ve inputbox kullanarak asgari geçim indirim oranı hesaplama

Kriterler
1-Evli - bekar sorgusu
2-Eş çalışyor - Eşi çalışmıyor sorgusu
3-Çocuk sayısı

Ssk'lı kendisi için %50 (zaten bekar ise kafadan %50 eş sorgulamasına gerek yok)
Eşi çalışmıyorsa %10 Eşi çalışmıyorsa %0
2 çocuğa kadar %7,5'ar (mesela 2 çocuğu varsa %15 gibi)
2 çocuktan sonra %5'er (mesela 3 çocuğu varsa (2 çocuk %15)+(3.çocuk %5)=%20
şayet çocuk sayısı 4'den fazla ise orana dahil edilmiyor (devlet 4 çocuğa kadar oran belirliyor)
toplam asgari geçim inidiri %85'i geçemez

Teşekkürler

 

[mesudiye_052]

Selamlar;

Yardımcı olursanınz sevinirim

teşekkürler

 

[Ayhan Ercan]

Merhaba

Önce Asgari Geçim inidirmin nasıl hesaplandığı hakkında bilgi vermeniz gerekecektir.
ilk mesajınızda bir takım oran yüzdeleri yazmışsınız. Bu yüzdeler neyin yüzdeleri olacak?
Birde Msgbox ve İnputbox ile bunları nasıl biribirne bağladınız bunu anlayamadım.
Msgbox ile İnputbox u öğrenmeye çalışıyorsanız bu tür sorularla bu iki nesnenin amac ve görevlerini öğrenebileceğinizi sanmıyorum.

Bence, Excel Dershanesi bölümüne girin ve orda Msgbox İnputbox ile ilgili bilgileri ve konu başlıklarını takip edin.

 

[mesudiye_052]

Sayın Ayhan Ercan ;

Mesala
Excelde bir buton kunulacak bu butona basınca bir msgbox çıkacak ve Evlimisiniz ibaresi çıkacak
Hayır derse bir msgbox çıkacak ve "Asgari geçim indirim oranının %50'dir diyecek ve programı sonlanrıacak
şayet evet derse
Bir msgbox çıkacak ve Eşiniz çalışıyomu
Evet hayır tuşlarından birine basınca
bir inputbox çıkacak ve çocuk sayınızı giriniz diyecek
ve yukarıdaki ölçülere göre oran belirlenip
bir msgbox ile "Asgari geçim indirim oranı %....'dir diyip programı sonlandıracak

Bir örnek vereyim

Evli Eşi çalışmıyor 4 çocuk
1-Ssklı olduğu için kendisine %50
2-Eşi çalışmadığı için %10
3-4 çocuk (2çocuğa kadar %7,5'ar odan sonrakiler 4 çocuğa kadar %5'er şayet 4 den fazla ise çocuk sayısı yine 4 çocuk varmış gibi hareket edilir ona göre oranlanır) %25
toplam=%85
sonuç
msgbox'da "Asgari geçim indirim oranı %85'dir" yazacak


Teşekkürler

 

[mesudiye_052]

Selamlar;

cevaplarsanız sevinirim

Teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.


Kullanılan kod; (Boş bir modüle uygulayınız.)

Option Explicit
 
Sub ASGARİ_GEÇİM_İNDİRİMİ_HESAPLAMA()
    Dim ONAY As Byte, ÇOCUK_SAYISI As Byte, İNDİRİM_ORANI As Byte
 
    İNDİRİM_ORANI = 50
 
    If MsgBox("Evli misiniz?", vbYesNo) = vbNo Then
    MsgBox "Asgari geçim indirim oranın %" & İNDİRİM_ORANI & " 'dir.", vbInformation
    Exit Sub
    End If
 
    ONAY = MsgBox("Eşiniz çalışıyor mu?", vbYesNo)
 
    ÇOCUK_SAYISI = InputBox("Çocuk sayınızı giriniz.", "ÇOCUK SAYISI", 1)
    If ÇOCUK_SAYISI = Empty Or ÇOCUK_SAYISI = False Then Exit Sub
 
    If ONAY = vbNo Then
        İNDİRİM_ORANI = İNDİRİM_ORANI + 10
        Else
        İNDİRİM_ORANI = İNDİRİM_ORANI
    End If
 
        Select Case ÇOCUK_SAYISI
            Case Is = 1
            İNDİRİM_ORANI = İNDİRİM_ORANI + 7.5
            Case Is = 2
            İNDİRİM_ORANI = İNDİRİM_ORANI + 15
            Case Is = 3
            İNDİRİM_ORANI = İNDİRİM_ORANI + 20
            Case Is = 4
            İNDİRİM_ORANI = İNDİRİM_ORANI + 25
            Case Is > 4
            İNDİRİM_ORANI = İNDİRİM_ORANI + 25
        End Select
 
    MsgBox "Asgari geçim indirim oranın %" & İNDİRİM_ORANI & " 'dir."
End Sub

 

[mesudiye_052]

Sayın Korhan Ayhan;

çok teşekkür ederim