ACCESS FEED: Re: [belajar-access] selesih bulan antara 2 tanggal

Minggu, 24 Juli 2011

Re: [belajar-access] selesih bulan antara 2 tanggal

Kalau konversi menjadi function kira2 spt ini:

Function SelisihBulan(Date1, Date2)

diff_months = DATEDIFF('M', date1, date2)

date1_plus_diff_months = DATEADD('M', diff_months, date1)

SelisihBulan = diff_months - IIF(date2 < date1_plus_diff_months, 1, 0)

End Function

2011/7/22 him mah <himmah.mlg@gmail.com>

Assalamu'alaikum
saya ada sedikit masalah dengan menghitung selisih bulan antara dua tanggal
misal :
16-01-2011 s.d. 15-02-2011 ketemu 1 bulan
16-01-2011 s.d. 04-02-2011 ketemu 1 bulan

16-01-2011 s.d. 20-02-2011 ketemu 2 bulan
31-05-2011 s.d. 30-06-2011 ketemu 1 bulan

saya sudah coba pakai fungsi DATEDIFF ('M', date1, date2) tapi hasilnya belum sesuai

kemudian saya coba googling ketemu alamat ini how to calculate the month difference

hasilnya agak sedikit mendekati
SQLnya seperti ini

SELECT #2007-05-31# AS date1,
#2007-06-30# AS date2,
DATEDIFF('M', date1, date2) AS diff_months,
DATEADD('M', diff_months, date1) AS date1_plus_diff_months,
diff_months - IIF(date2 < date1_plus_diff_months, 1, 0) AS result

kalau dibuat fungsi kira-kira seperti apa ya?

terima kasih sebelumnya