tarih formülünü modüle eklemek

[k0081]

merhaba arkadaşlar;

=YIL(B1)-YIL(E5)-EĞER(YADA(AY(B1)<AY(E5);VE(AY(B1)=AY(E5);GÜN(B1)<
GÜN(E5)));1;0)&" yıl, "&AY(B1)-AY(E5)+EĞER(VE(AY(B1)<=AY(E5);GÜN(B1)
<GÜN(E5));11;EĞER(VE(AY(B1)<AY(E5);GÜN(B1)>=GÜN(E5));12;EĞER(VE(AY(B1)>
AY(E5);GÜN(B1)<GÜN(E5));-1)))&" ay, "&B1-TARİH(YIL(B1);AY(B1)-
EĞER(GÜN(B1)<GÜN(E5);1;0);GÜN(E5))&" gün"

bu vermiş olduğum formül iki tarih arasındaki gün ay yıl farkını buluyor.. bu formül bir modüle eklenerek; daha kullanışlı bir hale getirilebilinirmi ?

yani mesela A1 = 12.05.2010 A2 = 17.09.2012
gibi iki tarihi seçtirip sonuç alabilirmiyiz ?

 

[YUSUF44]

İstediğinizin verdiğiniz formulden ne farkı var ki?

 

[k0081]

İstediğinizin verdiğiniz formulden ne farkı var ki?

olabilirmi merak ettim..

 

[YUSUF44]

B1 yerine A2, E5 yerine de A1 yazabilirsiniz. Ya da formülü hiç değiştirmeden B1’i A2’ye, E5’i de A1’e çekip bırakın. Gerçi ben hala bunu kastettiginizden emin değilim.

 

[Necdet]

merhaba arkadaşlar;

=YIL(B1)-YIL(E5)-EĞER(YADA(AY(B1)<AY(E5);VE(AY(B1)=AY(E5);GÜN(B1)<
GÜN(E5)));1;0)&" yıl, "&AY(B1)-AY(E5)+EĞER(VE(AY(B1)<=AY(E5);GÜN(B1)
<GÜN(E5));11;EĞER(VE(AY(B1)<AY(E5);GÜN(B1)>=GÜN(E5));12;EĞER(VE(AY(B1)>
AY(E5);GÜN(B1)<GÜN(E5));-1)))&" ay, "&B1-TARİH(YIL(B1);AY(B1)-
EĞER(GÜN(B1)<GÜN(E5);1;0);GÜN(E5))&" gün"

bu vermiş olduğum formül iki tarih arasındaki gün ay yıl farkını buluyor.. bu formül bir modüle eklenerek; daha kullanışlı bir hale getirilebilinirmi ?

yani mesela A1 = 12.05.2010 A2 = 17.09.2012
gibi iki tarihi seçtirip sonuç alabilirmiyiz ?

Formülü biraz uzun buldum.

Küçük Tarih A1, Büyük Tarih A2 de ise

=ETARİHLİ(A1;B1;"Y") & " Yıl " &ETARİHLİ(A1;B1;"YM") & " Ay  " & ETARİHLİ(A1;B1;"MD") & " Gün"

 

[k0081]

modül olarak yapılabilirmi onu soruyorum..?

****************

Necdet yeşertener ;

********

hocam cevap için teşekkürler.. evet bu şekilde de kullanışlı bir formül haline geldi.. modül olarak , cevap olmazsa bu da bir çözüm olabilir..

 

[Necdet]

modül olarak yapılabilirmi onu soruyorum..?

****************

Necdet yeşertener ;

********

hocam cevap için teşekkürler.. evet bu şekilde de kullanışlı bir formül haline geldi.. modül olarak , cevap olmazsa bu da bir çözüm olabilir..

Neden yapılmasın?

Ama neyi nasıl istediğinizi anlamak için örnek bir dosya ekleyiniz. Sonra gereksiz yazışmalara neden oluyor.

 

[Merhum İdris SERDAR]

modül olarak yapılabilirmi onu soruyorum..?

****************

Necdet yeşertener ;

********

hocam cevap için teşekkürler.. evet bu şekilde de kullanışlı bir formül haline geldi.. modül olarak , cevap olmazsa bu da bir çözüm olabilir..

.

KTF olarak:

Function TFark(T1 As Date, T2 As Date) As String
    Dim Y As Integer
    Dim A As Integer
    Dim G As Integer
    Dim TT As Date
    TT = DateSerial(Year(T2), Month(T1), Day(T1))
    Y = Year(T2) - Year(T1) + (TT > T2)
    A = Month(T2) - Month(T1) - (12 * (TT > T2))
    G = Day(T2) - Day(T1)
    If G < 0 Then
        A = A - 1
        G = Day(DateSerial(Year(T2), Month(T2) + 1, 0)) + G + 1
    End If
    TFark = Y & " yıl " & A & " ay " & G & " gün"
End Function

Kullanım:

=Tfark(A1;B1)

.

 

[Merhum İdris SERDAR]

.



Bu da;

=DATEDIF(A1;B1;"y")&" Yıl "&DATEDIF(A1;B1;"ym")&" Ay "&DATEDIF(A1;B1;"md")&" Gün"

formülünün KTF olarak kullanılması:

Function TFark1(T1 As Date, T2 As Date) As String
    TT1 = CLng(CDate(T1))
    TT2 = CLng(CDate(T2))
    
    YIL = Evaluate("=DATEDIF(" & TT1 & "," & TT2 & ",""y"")")
    AY = Evaluate("=DATEDIF(" & TT1 & "," & TT2 & ",""ym"")")
    GÜN = Evaluate("=DATEDIF(" & TT1 & "," & TT2 & ",""md"")")
    TFark1 = YIL & " Yıl , " & AY & " Ay , " & GÜN & " Gün"

End Function

Kullanım:

=TFark1(A1;B1)

.

 

[k0081]

.



Bu da;

=DATEDIF(A1;B1;"y")&" Yıl "&DATEDIF(A1;B1;"ym")&" Ay "&DATEDIF(A1;B1;"md")&" Gün"

formülünün KTF olarak kullanılması:

Function TFark1(T1 As Date, T2 As Date) As String
    TT1 = CLng(CDate(T1))
    TT2 = CLng(CDate(T2))
    
    YIL = Evaluate("=DATEDIF(" & TT1 & "," & TT2 & ",""y"")")
    AY = Evaluate("=DATEDIF(" & TT1 & "," & TT2 & ",""ym"")")
    GÜN = Evaluate("=DATEDIF(" & TT1 & "," & TT2 & ",""md"")")
    TFark1 = YIL & " Yıl , " & AY & " Ay , " & GÜN & " Gün"

End Function

Kullanım:

=TFark1(A1;B1)

.

kusura bakmayınız cevabı çok geç farkettim.. hocam çok teşekkürler,, tamamdır.. elinize yüreğinize sağlık..