yıl ay gün toplamı

[emre4242]

arkadaşlar bir adet kıdem hesaplama çalışma tablosu hazırladım fakat kıdem hesapları toplamını alabilçek formülü bilmiyorum ekte gönderdiğim tabloda toplamını almak istediğim yere yazdım yardımcı olabilirmisiniz

 

[irfancantr]

Merhaba;

I4 hücresine ;

=AŞAĞIYUVARLA(((H4-G4)/365);0)&" yıl "&AŞAĞIYUVARLA(((H4-G4)/30);0)&" ay "&(H4-G4)-(AŞAĞIYUVARLA(((H4-G4)/30);0)*30)&" gün"

yazıp aşağı doğru çektiğinizde istediğiniz oluyor mu?

 

[Necdet]

Merhaba,

Sanırım Kıdemlerin toplamanı istiyorsunuz.

Kıdemlerin hesaplanmasındaki formülü standart hale getirmek için aşağıdaki şekilde ekleme yaptım.

=METNEÇEVİR(YIL(H4)-YIL(G4);"00")&" yıl "&METNEÇEVİR(AY(H4-G4);"00")&" ay "&METNEÇEVİR(GÜN(H4-G4);"00")&" gün"

Bu formüle göre de Kullanıcı Tanımlı Fonksiyon (KTF) Yazdım. İşinize yararsa kullanırsınız.

KTF'nin doğru çalışıp çalışmadığını J-K-L sütunlarında da kontrolünü yaptım .

Public Function TOPLAMKIDEM(Alan As Range)
 
    Dim Gün As Long, _
        Ay  As Long, _
        Yıl As Long, _
        Hcr As Range
    
    Application.Volatile
    
    For Each Hcr In Alan
        Gün = Gün + Val(Mid(Hcr, 14, 2))
        Ay = Ay + Int(Gün / 30)
        Gün = Gün Mod 30
        Ay = Ay + Val(Mid(Hcr, 8, 2))
        Yıl = Yıl + Int(Ay / 12)
        Ay = Ay Mod 12
        Yıl = Yıl + Val(Left(Hcr, 2))
    Next Hcr
    
    TOPLAMKIDEM = Yıl & " Yıl " & Format(Ay, "00") & " Ay " & Format(Gün, "00") & " Gün"

End Function

 

[emre4242]

yardımcı olan herkeze teşekkürler