要篩選出目前實施庫藏股的股票,程式如下
但沒有任何股票符合,後來發現原因是 GetField("庫藏股開始日期")、GetField("庫藏股結束日期") 取得的資料太舊了
全部股票中最新的庫藏股開始日期,竟然是 20160906,但現在都十二月底了耶
Value21 = GetField("庫藏股開始日期");
Value22 = GetField("庫藏股結束日期");
Condition1 = ((DateDiff(Value21,CurrentDate) >= 0) AND (DateDiff(Value22,CurrentDate) <= 0) AND NOT((Value21 = 0) OR (Value22 = 0)));
IF Condition1 Then
Begin
Ret = 1;
OutputField(01,Value21,"庫藏股開始日期");
OutputField(02,Value22,"庫藏股結束日期");
End;
2 評論