Tarihleri Toplama

[fobo_53]

Merhabalar;

Ekteki tabloda 1 den fazla tarihten oluşmaktadır.

Tablodaki tarihleri toplayabilirmişiz.

Örnek;

1 yıl 8 ay 15 gün
3 yıl 6 ay 28 gün

Toplam xx yıl xx ay xx gün şeklinde
Tablo ektetir.

 

[Ömer]

Merhaba,

Deneyiniz.

=ETARİHLİ(C1;C2+1;"y")&" Yıl "&ETARİHLİ(C1;C2+1;"ym")&" Ay "&ETARİHLİ(C1;C2+1;"md")&" Gün"

 

[fobo_53]

Merhaba,

Deneyiniz.

=ETARİHLİ(C1;C2+1;"y")&" Yıl "&ETARİHLİ(C1;C2+1;"ym")&" Ay "&ETARİHLİ(C1;C2+1;"md")&" Gün"

Burada sadece tek tarih bulabilirim
ben bulunan sonuçları toplamaktan bahsediyorum

 

[Necdet]

Hizmet süresini mi hesaplamak istiyorsunuz?
Eğer bu ise isteğiniz aşağıdaki KTF yi kullanabilirsiniz.

C29 :

=HizmetToplam(C1:C27)

Function HizmetToplam(Rng As Range) As String

    Dim Hcr As Range, _
        t   As String, _
        Txt As Variant, _
        Y   As Integer, _
        A   As Integer, _
        G   As Integer
   
    For Each Hcr In Rng
        If Hcr Like "*Yıl*" Then
             t = Replace(Replace(Replace(Hcr, "Yıl ", ""), "Ay ", ""), " Gün", "")
             Txt = Split(t, " ")
             Y = Y + Txt(0)
             A = A + Txt(1)
             G = G + Txt(2)
        End If
    Next Hcr
     
        A = A + Int(G / 30)
        G = G Mod 30
        Y = Y + Int(A / 12)
        A = A Mod 12
       
        HizmetToplam = Y & " Yıl " & A & " Ay " & G & " Gün"
   
End Function

Not : RegExp ile çözümü merak ediyorum.

 

[fobo_53]

Hizmet süresini mi hesaplamak istiyorsunuz?
Eğer bu ise isteğiniz aşağıdaki KTF yi kullanabilirsiniz.

C29 :

=HizmetToplam(C1:C27)

Function HizmetToplam(Rng As Range) As String

    Dim Hcr As Range, _
        t   As String, _
        Txt As Variant, _
        Y   As Integer, _
        A   As Integer, _
        G   As Integer
  
    For Each Hcr In Rng
        If Hcr Like "*Yıl*" Then
             t = Replace(Replace(Replace(Hcr, "Yıl ", ""), "Ay ", ""), " Gün", "")
             Txt = Split(t, " ")
             Y = Y + Txt(0)
             A = A + Txt(1)
             G = G + Txt(2)
        End If
    Next Hcr
    
        A = A + Int(G / 30)
        G = G Mod 30
        Y = Y + Int(A / 12)
        A = A Mod 12
      
        HizmetToplam = Y & " Yıl " & A & " Ay " & G & " Gün"
  
End Function

Not : RegExp ile çözümü merak ediyorum.

Sayın Üstadım çok teşekkürler

Lakin ben başaramadım
Tablo üzerine uygularsanız anlayabilir.

Şimdiden teşekkürler

 

[Necdet]

Buyrun

 

[Haluk]

.....
...
Not : RegExp ile çözümü merak ediyorum.

Fazla merakta bırakmayalım, o zaman

Not: Dosya revize edildi (Gereksiz olan bir For-Next döngüsü iptal edildi).
.

 

[fobo_53]

Fazla merakta bırakmayalım, o zaman


.

Çok Teşekkür Ederim Elinize sağlık,

Bir sorunum daha var ilgilenirseniz sevinirim

Ben etarihli formülünü kullanıyorum

Ama tarihleri bulurken şöyle bir hata ile karşılaşıyorum

Normalde 1 yıl alması gerekirken aşağıdaki gibi sonuç veriliyor.

İşe Giriş Tarihi	:	01.01.2020
İşten Ayrılış Tarihi	:	31.12.2020
Çalışma Süresi	:	0 Yıl 11 Ay 30 Gün

Çalışma günü olarak 1 gün eklenmesi gerekir

Şimdiden teşekkürler.

 

[Haluk]

Yeni sorunuzu ayrı bir başlık açıp da sorun ki; konular birbirine karışmasın .... ileride arayanlar rahatça bulabilsin.

Ayrıca; altın üye olduğunuza göre, örnek dosya ile sorunuzu desteklemenizde fayda var.

.