Tarih bulma...

[Ridan]

Merhaba,

Aşağıdaki formülü makro haline getiremedim. Kaydedilemiyor, iletisi alıyorum. Bu formül iki tarih (A1 ve A2) arasındaki gün, ay ve yıl'ı bulmak içindir. Bu konuda birçok örnekler var ama, benim formüle ettiğim aşağıdaki formülü fonksiyon haline getirip kullanmak... Nasıl fonksiyon haline getirebiliriz?

=EÐER(GÜN(A1)+AY(A1)*30>GÜN(A2)+AY(A2)*30;YIL(A2)-YIL(A1)-1;YIL(A2)-YIL(A1))&" Yıl "&EÐER(AY(A1)>=AY(A2);EÐER(GÜN(A1)>GÜN(A2);11-AY(A1)+AY(A2);EÐER(AY(A1)=AY(A2);"0";12-AY(A1)+AY(A2)));EÐER(GÜN(A1)>GÜN(A2);AY(A2)-AY(A1)-1;AY(A2)-AY(A1)))&" Ay "&EÐER(GÜN(A1)>GÜN(A2);30-GÜN(A1)+GÜN(A2);GÜN(A2)-GÜN(A1))&" Gün"

 

[veyselemre]

=farkbul(a1,a2) şeklinde kullanabilirsin


[vb:1:8c88daa31c]Function farkbul(tar_kucuk, tar_buyuk As Date)
yil2 = Year(tar_buyuk)
yil1 = Year(tar_kucuk)
ay2 = Month(tar_buyuk)
ay1 = Month(tar_kucuk)
gun2 = Day(tar_buyuk)
gun1 = Day(tar_kucuk)
If gun2 < gun1 Then
gun2 = gun2 + 30
ay2 = ay2 - 1
End If
If ay2 < ay1 Then
ay2 = ay2 + 12
yil2 = yil2 - 1
End If
farkbul = yil2 - yil1 & " Yıl " & ay2 - ay1 & " Ay " & gun2 - gun1 & " Gün "
End Function[/vb:1:8c88daa31c]

 

[Ridan]

Teşekkürler veyselemre...