yıl ay gün toplamı

Katılım
30 Ekim 2010
Mesajlar
2
Excel Vers. ve Dili
2007 tr
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
 

Ekli dosyalar

irfancantr

Altın Üye
Katılım
18 Haziran 2007
Mesajlar
625
Excel Vers. ve Dili
Excel 365 - İmngilizce
Altın Üyelik Bitiş Tarihi
07-05-2029
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,496
Excel Vers. ve Dili
Ofis 365 Türkçe
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 .


Kod:
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
 

Ekli dosyalar

Katılım
30 Ekim 2010
Mesajlar
2
Excel Vers. ve Dili
2007 tr
yardımcı olan herkeze teşekkürler
 
Üst