Days365 formülü oluşturmak

[1903bjk]

Üstadlar Merhaba,

Excel de default olarak yeralan fonksiyonlardan days360 formülünü days365 e çevirmek istiyorum.Yani iki tarih arasındaki yılı 365 ayı 30 gün alacak bir formül uygulayabilirmiyiz

Teşekkürler yardımlarınız için
Saygılarımla

 

[Necdet]

Merhaba,

Belki KTF (Kullanıcı Tanımlı Fonksiyon) ile yapılabilir ama önce örnek bir dosyada olması gereken hesaplamayı da anlatırsanız yardımcı olacak bir arkadaş mutlaka çıkacaktır.

 

[1903bjk]

Merhaba,

Belki KTF (Kullanıcı Tanımlı Fonksiyon) ile yapılabilir ama önce örnek bir dosyada olması gereken hesaplamayı da anlatırsanız yardımcı olacak bir arkadaş mutlaka çıkacaktır.

Bir örneği ekte gönderiyorum.
yapılan yıl hesaplaması 360 gün üzerinden değil de 365 gün üzerinden olursa toplam gün sayısı tutacak

 

[1903bjk]

days365 formülü

bir örnek ektedir

 

[Merhum İdris SERDAR]

=DATEDIF(A1;B1;"y")*365+DATEDIF(A1;B1;"ym")*30+DATEDIF(A1;B1;"md")

DATEDIF= ETARİHLİ


şeklinde deneyin.

.

 

[1903bjk]

=DATEDIF(A1;B1;"y")*365+DATEDIF(A1;B1;"ym")*30+DATEDIF(A1;B1;"md")

DATEDIF= ETARİHLİ


şeklinde deneyin.

.

Sayın Yurttaş

öncelikle teşekkürler ilginize,

datedıf formülünü aha önce kurmuştum fakat değişik tarihlerde hata veriyor.
ekte gönderdiğim örnekte daha anlaşılır bir açıklaması var
1 gün fazla hesaplıyor.neden olduğu konusunda yardımınızı rica ederim

Saygılarımla

 

[Necdet]

Merhaba,

Sizin için KTF (Kullanıcı Tanımla Fonksiyon) hazırladım, umarım istediğiniz gibi olmuştur.

Eklenti(AddIns) olarak saklarsanız tüm dosyalarda kullanabilirsiniz.

Dosyada sarı renkli hücrelerde kullanılmıştır.

Option Explicit
Public Function Y365A30(BaşlangıçTarih As Date, BitişTarih As Date) As Long
Dim BsYıl As Long
Dim BsAy As Integer
Dim BsGün As Integer
Dim BtYıl As Long
Dim BtAy As Integer
Dim BtGün As Integer
Dim ToplamGün As Long
If IsDate(BaşlangıçTarih) = False Or IsDate(BitişTarih) = False Then
    Y365A30 = "Hatalı Tarih"
    Exit Function
End If
BsYıl = Year(BaşlangıçTarih)
BsAy = Month(BaşlangıçTarih)
BsGün = Day(BaşlangıçTarih)
BtYıl = Year(BitişTarih)
BtAy = Month(BitişTarih)
BtGün = Day(BitişTarih)
If BtGün < BsGün Then
    BtGün = BtGün + 30
    BtAy = BtAy - 1
End If
If BtAy < BsAy Then
    BtAy = BtAy + 12
    BtYıl = BtYıl - 1
End If
ToplamGün = (BtYıl - BsYıl) * 365 + (BtAy - BsAy) * 30 + (BtGün - BsGün)
Y365A30 = ToplamGün
End Function

 

[1903bjk]

üstadım

eline emeğine sağlık çok güzel olmuş

saygılarımla,

 

[Necdet]

Güle güle iyi günlerde kullanınız.

 

[Merhum İdris SERDAR]

Sayın Yurttaş

öncelikle teşekkürler ilginize,

datedıf formülünü aha önce kurmuştum fakat değişik tarihlerde hata veriyor.
ekte gönderdiğim örnekte daha anlaşılır bir açıklaması var
1 gün fazla hesaplıyor.neden olduğu konusunda yardımınızı rica ederim

Saygılarımla

Bir de bunu deneyin.

=(YEAR(B4-A4)-1900)*365+(MONTH(B4-A4)-1)*30+DAY(B4-A4)


YEAR=YIL
MONTH=AY
DAY=GÜN


.