-
-
'ฟังก์ชั่น: วันทำงาน (date_begin, date_end)
'อาร์กิวเมนต์: date_begin, วันที่เริ่มต้น; วันที่ _end วันที่สิ้นสุด
'ผู้แต่ง: Alixi
'วันที่: 2007/7/15
'คำอธิบาย: คำนวณวันทำงานภายในสองครั้ง
'ตัวอย่าง: วันทำงาน ("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) จากนั้น
วันทำงาน = 0
ford = 0Todatediff ("D", date_begin, date_end)
ifweekday (date_begin+d) <> 1andweekday (date_begin+d) <> 7 จากนั้น
วันทำงาน = วันทำงาน+1
endif
ต่อไป
อื่น
Workdays = "ไม่ทราบ"
endif
endfunction
-