Merhaba arkadaşlar.
Ekli çalışmada bulunan icra modülünde evrakın tebliğ tarihi ve maaş tarihleri kriterine göre icra başlangıç ve bitiş tarihlerini hesaplatmak istiyorum.
İcra başlangıç tarihi olayını aşağıdaki şekilde çözdüm.
Algoritmam şu şekilde;
Tebliğ edilen evrak maaş yapım tarihinden önce ise
ilk icra kesintisi maaş tarihi oluyor, sonrası ise bir ay sonrasını hesaplıyor.
Takıldığım nokta ise; icra bitiş tarihi hesaplamak.
Bitiş tarihi; net ücretin 1/4 ü hesaplanarak bulunan rakam toplam süre oluyor.
Örneklersek;
2500 TL net ücretin 1/4 ü 625 TL ediyor. Evrak 02.03.2019 tebliğ edilirse ve maaş yapım günü de 10.03.2019 ise icranın bitiş tarihi: 02.07.2019 olmalı.
Ekli çalışmada bulunan icra modülünde evrakın tebliğ tarihi ve maaş tarihleri kriterine göre icra başlangıç ve bitiş tarihlerini hesaplatmak istiyorum.
İcra başlangıç tarihi olayını aşağıdaki şekilde çözdüm.
Algoritmam şu şekilde;
Tebliğ edilen evrak maaş yapım tarihinden önce ise
ilk icra kesintisi maaş tarihi oluyor, sonrası ise bir ay sonrasını hesaplıyor.
Kod:
Private Sub Textbox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox3 = "" Or TextBox12 = "" Then Exit Sub
If CLng(CDate(TextBox3)) < CLng(CDate(TextBox12)) Then
TextBox10 = CLng(CDate(TextBox12))
TextBox10.Value = Format(TextBox10, "dd.mm.yyyy")
ElseIf CLng(CDate(TextBox3)) > CLng(CDate(TextBox12)) Then
TextBox10 = CLng(CDate(TextBox12)) + 30
TextBox10.Value = Format(TextBox10, "dd.mm.yyyy")
End If
End Sub
Bitiş tarihi; net ücretin 1/4 ü hesaplanarak bulunan rakam toplam süre oluyor.
Örneklersek;
2500 TL net ücretin 1/4 ü 625 TL ediyor. Evrak 02.03.2019 tebliğ edilirse ve maaş yapım günü de 10.03.2019 ise icranın bitiş tarihi: 02.07.2019 olmalı.
Ekli dosyalar
-
266 KB Görüntüleme: 12