begin screening 0
baseDate 2007 1 17
nLowHigh 0 5000
begin condition 0
and 1
	begin customExpSrc 1 0 1
//
// 年初来新高値銘柄を抽出
//

double	h0 = High(0);	// 今日の高値を得る。
if( Double.IsNaN(h0) )
	return	false;	// 今日取引がないならやめ

DateTime	today = DateTime.Today;	// 今日の日を得る。このあとtoday.Yearで今日の年がわかる。

// 今年最初の立会日のオフセット値を求める。
//	Offset関数は日付をオフセット値に変換するが、
// 	1月１日は、立会日ではないので、
//	Offset(１月１日）はもっとも最近の立会日に調整され去年のオフセット値になってしまうため、+1する。
int nensyo = Offset(new DateTime(today.Year,1,1))+1; 

// 年初から昨日までの高値を求める。
double	high = Lib_Bundle.Max( High_ts(),nensyo,-1);
if( Double.IsNaN(high) )
	return false;	// データがないときはやめ。

//　今日の高値が、昨日までの高値を越えていなければやめ
if( h0 <= high )
	return	false;

return	true;	// 合格


	<end>
end condition
end screening