<%
'***********************************
'Fungsi: Workdays (date_begin, date_end)
'Argumen: date_begin, tanggal mulai; date_end, tanggal akhir
'Penulis: Alixi
'Tanggal: 2007/7/15
'Deskripsi: Hitung hari kerja dalam dua kali
'Contoh: Workdays ("2007-05-18", "2007-05-21")
'***********************************
functionWorkdays (date_begin, date_end)
date_begin = cdate (date_begin)
date_end = cdate (date_end)
ifisDate (date_begin) andisdate (date_end) lalu
Workdays = 0
ford = 0Todatediff ("d", date_begin, date_end)
ifweekday (date_begin+d) <> 1andweekday (date_begin+d) <> 7then
Workdays = Workdays+1
endif
Berikutnya
kalau tidak
Workdays = "tidak diketahui"
endif
fungsi endfungsi
%>