<٪
'*********************************
"الوظيفة: أيام العمل (date_begin ، date_end)
'الحجج: date_begin ، تاريخ البدء ؛ Date_end ، تاريخ الانتهاء
المؤلف: Alixi
"التاريخ: 2007/7/15
الوصف: احسب أيام العمل خلال مرتين
"مثال: أيام العمل (" 2007-05-18 "،" 2007-05-21 ")
'*********************************
عملات العمل (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)
ifweokday (date_begin+d) <> 1andweekday (date_begin+d) <> 7then
أيام العمل = أيام العمل+1
Endif
التالي
آخر
أيام العمل = "غير معروف"
Endif
الوظيفية
٪>