[ÇÖZÜLDÜ] Bir zaman diliminden, başka bir zaman diliminin çıkarılması hk.

[enteresan]

Ekte gönderdiğim dosyada anlatmaya çalıştım ama burada da kısaca belirteyim. 3 yıl 5 ay 14 günden, 2 yıl 10 ay 3 gün gibi bir süreyi yine YIL-AY-GÜN şeklinde görünecek şekilde çıkarmak istiyorum. İlgilenenlere minnettar olurum. Saygılarımla..

 

[Necdet]

Tarih Çıkartma

Merhaba,

Anlaşamadığımız bir işlem var, onun haricinde anlaştık

1. Çıkartma Yıl :

=ETARİHLİ(TARİH(D6;F6;H6);TARİH(D5;F5;H5);"Y")

1. Çıkartma Ay :

=ETARİHLİ(TARİH(D6;F6;H6);TARİH(D5;F5;H5);"YM")

1. Çıkartma Gün : (bunda anlaşamadık)

=ETARİHLİ(TARİH(D6;F6;H6);TARİH(D5;F5;H5);"MD")

 

[enteresan]

Hocam teşekkür ederim. Bu formül ayı 31 gün olarak gördüğü için mi acaba böyle bir sonuç çıkarıyor. Başka bir yolu var mıdır. Saygılar....

 

[Necdet]

Merhaba,

Excelde çareler tükenir mi?
Sizin için Kullanıcı Tanımlı Fonksiyon yazdım, sıcak sıcak kullanınız.

Eklenen dosyayı eklenti olarak saklayıp Araçlar, Eklenti den TarihC yi bulup çentiklerseniz tüm excel dosyanızda kullanabilirsiniz.

1 le belirtilenler Büyük Tarih (Çıkartılan), 2 ler küçük tarih (Çıkan)

Sonuç :

1. Gün
2. Ay
3. Yıl

Function TarihC(Yıl1, Ay1, Gün1, Yıl2, Ay2, Gün2, Sonuç As Integer)
If Gün1 < Gün2 Then
    Gün1 = Gün1 + 30
    Ay1 = Ay1 - 1
End If
If Ay1 < Ay2 Then
    Ay1 = Ay1 + 12
    Yıl1 = Yıl1 - 1
End If
If Yıl1 < Yıl2 Then
    TarihC = "Hatalı"
    Exit Function
End If
Gün1 = Gün1 - Gün2
Ay1 = Ay1 - Ay2
Yıl1 = Yıl1 - Yıl2
If Sonuç = 1 Then
    TarihC = Gün1
ElseIf Sonuç = 2 Then
    TarihC = Ay1
Else
    TarihC = Yıl1
End If
End Function

 

[enteresan]

Hocam, excel'de çareler sizin gibiler sayesinde tükenmez. Birazdan deneyeceğim ama bir sorum daha olacak, toplama yapmak istediğimizde aynı fonksiyonu küçük bir değişiklikle kullanabilir miyiz acaba. Yoksa onun için ayrı bir fonksiyon mu yazmak gerekir. Saygılarımla...

 

[Necdet]

Toplamasını da yaparız
Bir kaç saniyemize mal olur, isterseniz hemen yapayım.

Ama ben bunu size bırakıyorum. Yukarıdaki kodda çıkartma değil toplama yaptıracaksınız.
Gün 29 dan büyük olunca, ay 11 den büyük olunca ilgili değişikliği yapacaksınız.

Ne dersiniz?

 

[enteresan]

Toplamasını da yaparız
Bir kaç saniyemize mal olur, isterseniz hemen yapayım.

Ama ben bunu size bırakıyorum. Yukarıdaki kodda çıkartma değil toplama yaptıracaksınız.
Gün 29 dan büyük olunca, ay 11 den büyük olunca ilgili değişikliği yapacaksınız.

Ne dersiniz?

vallahi hocam ne kadar isterdim yapabilmeyi.

 

[Necdet]

Tarih Toplama

Merhaba,

Toplama da hazır.

Function TarihT(Yıl1, Ay1, Gün1, Yıl2, Ay2, Gün2, Sonuç As Integer)
Gün1 = Gün1 + Gün2
If Gün1 > 29 Then
    Gün1 = Gün1 - 30
    Ay1 = Ay1 + 1
End If
Ay1 = Ay1 + Ay2
If Ay1 > 11 Then
    Ay1 = Ay1 - 12
    Yıl1 = Yıl1 + 1
End If
Yıl1 = Yıl1 + Yıl2
If Sonuç = 1 Then
    TarihT = Gün1
ElseIf Sonuç = 2 Then
    TarihT = Ay1
Else
    TarihT = Yıl1
End If
End Function

 

[enteresan]

Bende ona uğraşıyordum hocam ama maalesef ay ve yılı yaptım günü tutturamadım. Elinize sağlık. Saygılarımla...

 

[Necdet]

Güle güle kullanınız.

 

[enteresan]

Güle güle kullanınız.

Hocam, küçük bir sorun var. Toplama işleminde yılı arttırmadı. İnşallah ben yanılıyorumdur. Bir örnek göndermeye çalışacağım. Bi gözatarsanız sevinirim. Saygılar...

Örnek dosya EK'tedir hocam...

 

[Necdet]

Merhaba,

Yazım hatası yaptığım için yılı toplamıyordu,

Dosyayı ve makroyu düzelttim, önceki mesajdan alabilirsiniz.

 

[enteresan]

Evet hocam, ı ile 1 karışınca böyle olmuş demekki. Çok teşekkür eder saygılar sunarım.....