Tarih Farkı Hesaplatma

[gecemavisi]

Merhaba Saygıdeğer Arkadaşlar;

mesela 02.09.03 tarihi ile 01.09.05 tarihi arasından kaç yıl geçtiğini net olarak nasıl hesaplatabiliriz.
Saygılarımla...

 

[Recep İpek]

Sayın :gecemavisi,

Forumda bu konu daha önce defalarca işlendi.

Eğer iki tarih arası süreyi yıl-ay-gün olarak istiyorsanız..

[vb:1:8a9f205de5]
Function TarihFarki(İlkTarih As Date, SonTarih As Date) As String
Dim Y As Integer
Dim M As Integer
Dim D As Integer
Dim Temp1 As Date
Temp1 = DateSerial(Year(SonTarih), Month(İlkTarih), Day(İlkTarih))
Y = Year(SonTarih) - Year(İlkTarih) + (Temp1 > SonTarih)
M = Month(SonTarih) - Month(İlkTarih) - (12 * (Temp1 > SonTarih))
D = Day(SonTarih) - Day(İlkTarih)
If D < 0 Then
M = M - 1
D = Day(DateSerial(Year(SonTarih), Month(SonTarih), 0)) + D
End If
TarihFarki = Y & " Yıl " & M & " Ay " & D & " Gün"
End Function
[/vb:1:8a9f205de5]

 

[AS3434]

Sn. gecemavisi
Konuyla ilgili forumda o kadar çok örnek var ki,
Sn. Yesertener'in çalışması
http://www.excel.web.tr/viewtopic.php?t=9281
Sn. fructose'nin çalışması
http://www.excel.web.tr/viewtopic.php?t=19839

İkiside işinize yaramıyorsa , sorunuzu daha net sorun.
Sevgilerle

 

[Guest]

Merhaba

Bunun için büyük tarihten küçük tarihi çıkartın örnek
=A1-A2
şeklinde daha sornada formulu girdiğiniz hücreye gelerek farenin sağ tuşuna basarak Hücre Formatı seçeneğini seçin ekrana gelecek pencerenin ilk sayfasındaki seçeneklerin en alt kısmındaki (Başlığın türkçesini tam hatırlamıyorum) Kullanış olması gerek onu seşerek oraya alttaki formatı kopyalayın bu şekilde yaptığınızda
30 gün 12 ay ve 1 yıl çıkıyor

gg.aa.yy
veya
gg."Gün "aa."Ay "yy".Yıl"

Kolay gelsin
Not: Soru sormadan önce forumumuzun çöplük olmaması için LÜTFEN ARA ÖZELLİĞİNİ KULLANALIM.