function cek_hari(bulan as int,kondisi as string)
if kondisi="Pertama" then
cek_hari=weekday(cdate("01-"+cstr(right("00"+cstr(bulan),2))+"-"+cstr(year(date)))
else
cek_hari=weekday(cdate("01-"+cstr(right("00"+cstr(bulan+1),2))+"-"+cstr(year(date)
)-1)
end if
end function
----- Original Message -----
From: Ronal Baharuddin Hutagaol
To: [EMAIL PROTECTED]
Cc: [email protected]
Sent: Tuesday, September 04, 2007 9:54 AM
Subject: [Programmer-VB] Ngambil hari pertama dan hari terakhir
Dear All
Gimana caranya mengambil Hari Pertama dan Hari Terakhir setiap Bulannya
(Date) atau di bulan yang kita tentukan.
Terima Kasih atas bantuannya.....
