iki tarih aralığını ay ve gün olarak hesaplama

[kuva_i_milliye23]

Merhabalar;

Ben iki tarih aralığının gün ve ay olarak hesaplamasını formülle yaptırmak istiyorum. Uğraştım ama istediğim sonucu alamadım. Şöyleki örneğin 28.02.2009 ile 01.03.2009 arası farkı hesaplattığım zaman bana 1 ay ve -27 gün olarak verebiliyor. Ancak 0 ay ve 1 gün olarak vermesi gerekiyor.

Yardımcı olabilirmisiniz. ? İyi Çalışmalar.!!!

 

[Taruz]

Merhaba..

Bunu modül olarak kaydedin..:

Function fark(ilktarih As Variant, sontarih As Variant) As Variant
Dim trz   As Integer
Dim osm   As Integer
   trz = DateDiff("m", ilktarih, sontarih) + (Day(sontarih) < Day(ilktarih))
   If Day(sontarih) < Day(ilktarih) Then
      osm = DateDiff("d", ilktarih, DateSerial(Year(ilktarih), Month(ilktarih) + 1, 0)) + Day(sontarih)
   Else
      osm = Day(sontarih) - Day(ilktarih)
   End If
   fark = LTrim(Str(trz Mod 12)) & " Ay " & LTrim(Str(osm)) & " Gün"
End Function

Formdaki metin kutusunun denetim kaynağına

=fark([it];[st])

şeklinde çağırsanız farkı ay ve gün olarak alırsınız..

Hesaplamaya yılıda dahil etmek için modüldeki son satırı

   fark = LTrim(Str(trz \ 12)) & " Yıl " & LTrim(Str(trz Mod 12)) & " Ay " & LTrim(Str(osm)) & " Gün"

olarak değiştirin..

İyi geceler..

 

[kuva_i_milliye23]

Çok Teşekkür Ederim Sayın Taruz.
Sizede iyi geceler.!!