/********************************************************************/
/* 名前:func_CurrentWeek											*/
/* 説明:今日の日付を返してくれる									*/
/* 履歴:Ver1.00		新規作成										*/
/********************************************************************/

/********************************************************************/
/* 変数宣言															*/
/********************************************************************/
/*初期設定用変数宣言*/
var:i(39080);

/* TDW */
Var:BaseWeek(0);
var:CW_work(0);
Input:UserDate(Numeric);

/* 今日の曜日を調べる */
BaseWeek = 39080;		/* 39080 = 2006.12.31 */

While UserDate <> JulianToDate(i){	/* 今日の曜日が分かるまで繰り返し */
    i = i+1;
}
CW_work = i;	/* この時点でiは今日の日付 */

CurrentWeek = (CW_work - BaseWeek) % 7;		/* 7で割った余りが0=日曜、1=月曜･･･ */