uzun süreli izinlerde ilgili aydaki kısmı alma

[ferhataata57]

Merhaba arkadaşlar. Çok acil bir yardıma ihtiyacım var. Hastanemizde yeni bir otomasyon sistemine geçildi. İzinlerle ilgili sorun yaşıyoruz. Şöyle ki; örneğin 22.04.2025 tarihinde 15 gün izin kullanan bir personelin bu izin süresinin mayıs ayına sarkan kısmını almak istiyorum. Ya da 2024 yılının Ağustos ayından itibaren 600 gün ücretsiz izne ayrılmış. Bu 600 günlük izin süresinden bana sadece 2025/Mayıs ayındaki izin süresi lazım. Bu beni aşan bir durum, konuyla ilgili acil yardıma ihtiyacım var.

 

[Tevfik_Kursun]

Merhaba,
A1 hücresinde 22.04.2025 olsun. B1 hücresine =A1+15-1 yazarsanız Mayıs ayının kaçına kadar izinli olduğunu bulursunuz.
İyi çalışmalar

 

[ferhataata57]

bazısı için uygun ama bir çoğu için uygun değil bu formül hocam. 15 gün örnekti. bu förmülü diğer satırlara uyguladım ama olmuyor.

 

[Tevfik_Kursun]

Örnek koymadan, özellikleri yazmadan ancak bu kadar olur

 

[ferhataata57]

örneği şöyle vereyim hocam ; aşağıda liste var. sağdaki boş kısma Mayıs ayına denk gelen izin süreleri olacak. 650 kişilik bir listenin sadece bir kısmı

İzin başlangıç tarihi	izin süresi
07.04.2025	103​
10.03.2025	101​
07.03.2025	97​
21.04.2025	90​
25.04.2025	90​
24.02.2025	70​
03.04.2025	68​
10.05.2025	60​
18.03.2025	60​
25.03.2025	59​
20.05.2025	56​
20.05.2025	56​
23.05.2025	56​
19.04.2025	45​
26.03.2025	45​
02.05.2025	40​
03.04.2025	34​

 

[Tevfik_Kursun]

Üçüncü sütuna da bulunması gerekenleri de yazsanız belki daha kolay olabilir !!!

 

[Tevfik_Kursun]

Sizin B sütununuzdakiler de sayı görünümlü metin, sanırım sorun burada
not: makro ile kontrol ettim, her iki sütun da metin. Elle değiştirip siz de kontrol edebilirsiniz.
İyi çalışmalar

 

[muhasebeciyiz]

A2 : 07.04.2025 B2:103

C2: Formül : =MAK(0;MİN(TARİH(2025;5;31);A2+B2-1)-MAK(TARİH(2025;5;1);A2)+1)

Sonuç :31

07.04.2025 + 103 gün = 19.07.2025
Yani izin süresi: 07.04.2025 – 19.07.2025 arası
Bu süre içinde 1 – 31 Mayıs 2025 tamamen yer alıyor
Dolayısıyla Mayıs ayına denk gelen izin süresi = 31 gün

Böylemi olacak deneyiniz

 

[Tevfik_Kursun]

Alternatif:
Bu da KTF olarak çözümü

Function MayisGunSayisi(BaslangicTarihi As Date, GunSayisi As Long) As Long
    Dim MayisBaslangic As Date
    Dim MayisBitis As Date
    Dim GercekBaslangic As Date
    Dim GercekBitis As Date
    
    MayisBaslangic = DateSerial(2025, 5, 1)
    MayisBitis = DateSerial(2025, 5, 31)
    
    GercekBaslangic = WorksheetFunction.Max(MayisBaslangic, BaslangicTarihi)
    GercekBitis = WorksheetFunction.Min(MayisBitis, BaslangicTarihi + GunSayisi - 1)
    
    If GercekBitis < GercekBaslangic Then
        MayisGunSayisi = 0
    Else
        MayisGunSayisi = GercekBitis - GercekBaslangic + 1
    End If
End Function

C1 hücresine =MayisGunSayisi(A1;B1) yazıp aşağıya çekiniz.
iyi çalışmalar