/********************************************************************/
/* 名前:CurrentWeek													*/
/* 説明:今日の日付を返してくれる									*/
/* 履歴:Ver1.00		新規作成										*/
/*     :Ver1.01		日足チャートに対応.BaseWeekの値を変更(Dukeさん)	*/
/********************************************************************/

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

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

/* 今日の曜日を調べる */
BaseWeek = 36455;		/* 36455 = 1999.10.24 (日曜日) */

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

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