Soru Textbox ile tarih hesaplama sorunum.

Katılım
12 Ocak 2009
Mesajlar
838
Excel Vers. ve Dili
2003
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.
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
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ı.
Ekran Alıntısı.PNG
 

Ekli dosyalar

Üst