iki tarih arasındaki süreyi makro yazarak bulmak

[deneme038]

bu mesajımı daha önce göndermiştim..ancak makro olarak yazılmamış....iki tarih arasındaki süreyi bulacak makroyu excel de nasıl yazabiliriz....örnek 15.03.2007 den 17.07.2000 tarihini çıkarırsak sonuç olarak 020806 (GGAAYY) şeklinde tarih farkını yazacak makroyu nasıl yazabiliriz... kolay gelsin....

yukarıdaki örneğin aynısı olacak (020806) özellikle makro olarak yazılması yardımcı olursanız sevinirim........

 

[Recep İpek]

Aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

Function TarihFarki01(İ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
    a = Format(Y, "00")
    b = Format(M, "00")
    c = Format(d, "00")
    TarihFarki01 = c & b & a
End Function

 

[deneme038]

tarih farkının makro formülü için başlat çubuğuna ne yazmamız gerekir... ben
=tarihfarki(a1;a2) , =tarihfarki(a1,a2) =tarihfarki(a1-a2) gibi seçenekler yazdım ama hata verdi bunu nasıl yazacağız kolay gelsin

 

[Recep İpek]

Hücreye =TarihFarki01(a1;a2) yazmanız yeterlidir.

a1=İlk tarih
a2=Son tarih

 

[deneme038]

TeŞekkÜr Ederİm İlgİnİz İÇİnn.....gÖrÜŞmek Üzere Kolay Gelsİn