Kıdem Süresini Bulma

Kıdem Süresini Bulma dosyası, başlangıç ve bitiş tarihine göre çalışanların hizmet süresini yıl, ay ve gün olarak hesaplar. Hesaplama için VBA ile yazılmış bir Kullanıcı Tanımlı Fonksiyon (UDF) kullanılmıştır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

Dosyada Sheet1 adlı tek bir sayfa vardır ve veriler B2:D3 aralığında yer alır.

• B sütunu: başlangıç tarihi (B3 hücresi)
• C sütunu: bitiş tarihi (C3 hücresi)
• D sütunu: hesaplanan kıdem süresi (D3 hücresi)

Kullanılan formüller​

Dosyada tek formül vardır:

• D3: =KidemGunSayisi(B3,C3) formülü, B3 ve C3 hücrelerindeki tarihleri makro ile tanımlanmış fonksiyona gönderir ve sonucu metin olarak "X YIL, Y AY, Z GÜN" biçiminde döndürür.

Makrolar​

Dosyada Module1 adlı modül içinde KidemGunSayisi isimli bir fonksiyon bulunur. Fonksiyon bir alt yordam gibi çalıştırılmaz, doğrudan hücreden formül olarak çağrılır. Kod incelendiğinde dosya silme, dışarıya bağlantı kurma gibi zararlı bir işlem görülmemiştir.

• Bitiş tarihine 1 gün ekler. Böylece bitiş günü de süreye dahil edilir.
• Başlangıç tarihinden itibaren DateAdd fonksiyonuyla birer ay ekleyerek, bitiş tarihini aşmayacak şekilde tam ay sayısını bulur.
• Toplam ay sayısını 12'ye bölerek yılı, kalanı ay olarak alır.
• Tam aylar eklendikten sonra kalan gün farkını gün olarak hesaplar.
• Sonucu "YIL, AY, GÜN" biçiminde metin olarak verir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. B3 hücresine başlangıç (işe giriş) tarihini girin.
3. C3 hücresine bitiş tarihini girin.
4. D3 hücresinde kıdem süresi otomatik olarak görünür.
5. Başka satırlar için D3 hücresindeki formülü aşağı kopyalayıp aynı sütunlara tarih girebilirsiniz.

Dosyayı farklı bir çalışma kitabında kullanmak isterseniz Module1 içindeki fonksiyonu o dosyaya taşımanız gerekir.