<％
'*******************************
'機能：workdays（date_begin、date_end）
'引数：date_begin、開始日; date_end、終了日
著者：アリクシ
'日付：2007/7/15
'説明：2回以内の営業日を計算します
'例：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）then
就業日= 0
ford = 0todediff（ "d"、date_begin、date_end）
ifweekday（date_begin+d）<> 1andweekday（date_begin+d）<> 7then
職場=就業日+1
endif
次
それ以外
workdays = "不明"
endif
エンド機能
％>