Sayın Metin,

Aşağıdaki fonksiyonu kullanabilirsiniz.




Örnek ekliyorum.

İyi çalışmalar

Teşekkür...

Merhaba..

Metin Bey, şimdiye kadarki konu ve cevaplarınızda genel anlamda sorunlarınızı ifade edememe durumu söz konusu.. Ya da biz anlamakta zorlanıyoruz diyelim.. Bundan dolayı da size yardımcı olmak çok zor oluyor.. Doğru önerilerde bulunmak için olmak için sorular soruyoruz ama konularınıza geri bildirimde de bulunmuyorsunuz.. Yanlış anlamayın lütfen ama bu durum size yardımcı olmamızı geçiktiriyor..

Bu sorunuza gelince..:

Yukarıdaki örnekte de bulunan bu fonksiyonu bir modüle kaydediniz..:




Daha sonra sorgunuzdaki boş bir alana fark([İlkTarihAlanı];[SonTarihAlanı]) şeklinde kullanınız..

Sizin alan isimlerinize göre de sanırım böyle olmalı..

Taruz hocam veya diğer arkadaşlar taruz hocamın yaptığı farktoplama modülüne 3. bir fark bölümü ekledim fark toplama kısmınıda 3 farkı birden toplayacak şekilde yapılandırmam lazım modülde aşağıdaki gibi düzenleme yaptım ama fark toplama alanına 3.fark alanını giremiyorum girdiğiniz ifadenin söz dizimi gerçersiz diyor kontrol etme imkanınız var mı ?

Function farktopla(a As Variant, b As Variant, c As Variant, d As Variant, e As Variant, f As Variant) As Variant
Dim trza As Integer
Dim osma As Integer
Dim ay As String
Dim gun As String
Dim yil As String
trza = (DateDiff("m", a, b) + (Day(b) < Day(a))) + (DateDiff("m", c, d) + (Day(d) < Day©)) + (DateDiff("m", e, f) + (Day(e) < Day(f)))
If Day(b) < Day(a) Or Day(d) < Day© Or Day(e) < Day(f) Then
osma = ((DateDiff("d", a, DateSerial(Year(a), Month(a) + 1, 0)) + (DateDiff("d", c, DateSerial(Year©, Month© + 1, 0)) + (DateDiff("d", e, DateSerial(Year(e), Month(e) + 1, 0))) + (Day(b)) + Day(d)) + Day(f)))
Else
osma = ((Day(b) + Day(d) + Day(f)) - (Day(a) + Day© + Day(e)))
End If
yil = LTrim(Str(trza \ 12))
ay = LTrim(Str(trza Mod 12))
gun = LTrim(Str(osma))
If gun >= 30 Then
gun = gun - 30
ay = ay + 1
End If
farktopla = yil & " Yıl " & ay & " Ay " & gun & " Gün"
End Function


Dosyayıda ekledim her ihtimale karşı ama yanlışı nerde yapıyorum onu anlamak istiyorum...

Sonun da yapmayı başardım tek eksik 3 farklı gün ay yıl toplamını alınan yerde gün sayısı 30 u geçince ay kısmını 1 artırmıyor belli bir noktadan sonra artırıyor ama hangi kurala göre artırıyor anlayamadım artık onada üstadlar bakıp bir yol çaresine bakarlar inşallah.
Dosyayı eke ekliyorum kolay gelsin herkese hayırlı geceler.

Metin26 denetim kaynagina
=farktopla([ilkTarih];[sonTarih];[ailkTarih];[asonTarih];[bilkTarih];[bsonTarih])
yazabilirsiniz.