tarihleri toplama

[Xumar]

Merhaba arkadaslar. bir konudan yardimlariniza ihtiyacm var sorun excelde tarihleri toplamadir. daha detayli yazarsam mesela
0 yil 4 ay 11 gun
3 yil 0 ay 18 gun
excelde toplamak istiyorum ama birsekilde hata veriyor.yardim edersiniz sevinirim.
onceden tesekkurler

 

[Necdet]

Merhaba,

Bu değerler tek bir hücrede mi?

Dosya ekleyemeseniz de ekran görüntüsünü ekleyin. Daha çabuk yardım alırsınız.

 

[Xumar]

soyle ifade edeyim
A1=0 yil 4 ay 11 gun
B1=3 yil 0 ay 18 gun

Onuda soyleyimki yukaridaki tarihleri yani 3 yil 0 ay 18 gun ve 0 yil 4 ay 11 gun tarihlerini datedif formula kullanarak almisam. simdide onlari toplamam lazim yani sonuc 3 yil 4ay 29 gun olmasi icin onlari toplamam icin formul yazmak istiyorum.
tesekkurler

 

[Necdet]

Merhaba,

Aşağıdaki kullanıcı tanımlı fonksiyonu dosyanızda bir modüle kopyalayınız.

Kullanımı : =tarihtopla(A1;B1)

Function TarihTopla(Tar1 As String, Tar2 As String)

    Dim t1, t2, i As Integer
    
    t1 = Split(Replace(Replace(Replace(Tar1, "yil ", ""), "ay ", ""), " gun", ""), " ")
    t2 = Split(Replace(Replace(Replace(Tar2, "yil ", ""), "ay ", ""), " gun", ""), " ")
    
    t2(2) = Val(t2(2)) + Val(t1(2))
    t2(1) = Val(t2(1)) + Val(t1(1))
    t2(0) = Val(t2(0)) + Val(t1(0))
    
    If Val(t2(2)) > 29 Then
        t2(2) = 30 - Val(t2(2))
        t2(1) = Val(t2(1)) + 1
    End If
    
    If Val(t2(1)) > 11 Then
        t2(1) = 12 - Val(t2(1))
        t2(0) = Val(t2(0)) + 1
    End If
    
    TarihTopla = t2(0) & " Yil " & t2(1) & " Ay " & t2(2) & " Gun"
    
End Function

 

[Xumar]

Necdet bey tesekkur ederim ama alinmadi bende.malesef (( baska yolu yokmu?

 

[Necdet]

ay, yil, gun ifadeleri önemli.

Büyük harf küçük harf duyarlı

Ben onların yazım biçimini sizin verdiğiniz örneğe göre yaptım.

gun yerine gün ya da Gün ya da GÜN kullandıysanız çalışmaz.

 

[Xumar]

Necdet bey ilgilendiyiniz icin tesekkur ederim. Cok yardimci oldunuz