DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=(yıl(b1)-yıl(a1))*12 + ay(b1)-ay(a1)+1
=DATEDIF(A1;B1;"m")
Sub tarihcikar59()
MsgBox VBA.DateDiff("m", Range("a1").Value, Range("B1").Value)
End Sub
İdris beyin verdiği formülün vba fonksiyonu ile yapılışı.
Tariler A1 ve B1 hücrelerinde.
Kod:Sub tarihcikar59() MsgBox VBA.DateDiff("m", Range("a1").Value, Range("B1").Value) End Sub
Anladım.Lakin ben sizin yaptığınız formülün vba fonksiyonu ile çözümünü verdim.Evren bey,
Verdiğim tarihler için 1 ay verdi. Oysa verdiğim tarihler arası 1 gün fark var.
Bu nedenle, Sayın sward175'in ayın tanımını yapması, hesaplama yapmak için önemli görünüyor.
.
.
Herkese Günaydın,
Formülleri uyguluyorum sonuç 32 ay, Tarih başlangıcı 01.04.2016 olması nedeni ile Nisan ayını da dahil etmesi gerekiyor, Bu nedenle ilk yanıtta olduğu gibi 19033emre34 arkadaşın formülü ile +1 çözümü bulmuş kabul ediyorum, VBA ile açıkçası denemedim uygulayacağım dosya çok el dolaşacağı için uygun olmayabilir diye düşünüyorum,
Teşekkürlerimi sunarım.
İyi Çalışmalar dileğiyle,
sward175