Sevgili dostum beab ile VBA' de iki tarih arası farkını "1 YIL 2 AY 12 GÜN" gibi formatta çeviren fonksiyon ihtiyacı olabileceğini düşündük.

Bu amaçla hazırladığımız fonksiyonun faydalı olması dileklerimizle...


[code=vba]Public Function DateDiff_ze_bb(KUCUK_TARIH As Date, BUYUK_TARIH As Date) As String
Dim GUN&, AY%, YIL%
Dim GG As Date, GG2 As Date

GUN = DateDiff("d", KUCUK_TARIH, BUYUK_TARIH)
AY = Int((GUN Mod 365.25) / 30)
YIL = Int(GUN \ 365.25)
GG = Da

[align=justify]Merhaba;

Aşağıdaki örneği "DateDiff" fonksiyonuna ve formu boşaltarak temizlemeye basit bir örnek olması amacıyla hazırladım.

Bilindiği gibi "DateDiff", tarih aralığını veren bir fonksiyondur ve iki tarih arasındaki farkı gün, ay, yıl, saat, saniye, hafta v.s. cinslerinden gösterebiliriz. Bu fonksiyonu sorgularda, denetimlerimizin "denetim kaynağında" veya VBA kodlarında kullanabiliriz. An

yaş hesaplamada sadece yıla göre hesap yaptırmak istiyorum .bunun için ne yapmalıyım doğum tarihini gün ay yıl değil sadece yıl girmek istiyorum..teşekkürler

DateDiff fonksiyonu yardımı ile iki tarih arasındaki belirli bir tarih/zaman farkını elde edebiliriz..

Basitçe kullanım biçimi şu şekildedir..

DateDiff(zaman_aralığı, ilk_tarih, ikinci_tarih)

Kullanabileceğimiz zaman aralıkları listesi aşağıdaki gibidir..:

[Resim: http://www.access-sql.com/resim/fdate1.jpg]

Birkaç deneme yapalım şimdi..

[img]http://www.access-sql.com/resim

Benim şöyle bir formulüm var.

=Diff2Dates("yyyy";[ibt];[bugun])

mesela sonucum 5 yıl, kutucukta 5 Yıl olarak yazıyor. Ben sadece 5 yazmasını istiyorum. Bir türlü ayarlayamadım.

SQL dilinde "DateDiff" fonksiyonunun çalışma mantığı biraz farklı olduğundan istemediğimiz farklar döner.

Kıdem tazminatı vs. gibi önemli konularda istediğimiz sonuçları görebilmek için aşağıdaki proseduru (aynı zamanda bir fonksiyondur) hazırlama gereği duydum.

Şimdiye kadar yaptığım testlerde hatalı sonuç çıkmadı.

Faydalı olmasını dilerim...

y : iki tarih arasındaki Toplam Yılı hesaplar
m : iki tarih arasında Toplam Ayı hesaplar
d : iki tarih arasında T

DateDiff("n",kapanan.ustlenme_tarihi, kapanan.ulasma_tarihi)

hocalarım yukarıdaki kodun içine saati de ekleye bilirmiyiz

ss,dd şeklinde gösterebiliyormuyuz

Sayın Hocalarım
Şu şekilde denediğimizde 
GecikmeAy = DateDiff("m", SonOdemeTarihi, Date) 
Hata vermiyor fakat ;
tablodaki her kişi bilgisini gezmem gerekiyor.bu daha uzun zahmetli bir iş.

Kısa yoldan Update koduna eklemek ve her ay topluca bir defa yapmak istiyorum.

Burdaki amaç Bugün diye bir alan kullanmadan Günün tarihini baz aldırarak Son Ödeme Tarihi arasındaki Ay Farkını
GecikmeAy Alanınına attırmak (Güncellettirmek) istiyoruz.

DoCmd.RunSQL ("UPDATE Aıdat SET GecikmeAy = Dat