結算日語法如何寫 --- 恆生和摩台指

恆生和摩台指的最後交易日為每月的倒數第二個工作天，要寫結算語法的話比寫台指、小道瓊、那斯達克、小SP等困難得多了! 以下我示範怎麼寫:

 

Vars:x(0),y(0);

x = dayofweek(date);

y = dayofmonth(date);

 

If date <> date[1] then SecondLastWorkingDay = false;

 

If Month(date) = 2 or Month(date) = 4 or Month(date) = 6 or Month(date) = 9 or Month(date) = 11 then begin

   If Month(date) = 2 and Mod(year(date)+1900,4) = 0 then value1 = 29;

   If Month(date) = 2 and Mod(year(date)+1900,4) <> 0 then value1 = 28;

   If Month(date) = 4 or Month(date) = 6 or Month(date) = 9 or 

      Month(date) = 11 then value1 = 30;

   end else begin

   value1 = 31;  

end;

 

 

Value2 = Mod(value1-y,7);

 

If x + value2 = 6 or x + value2 = 7 or x + value2 = 0 then begin

   If x + value2 = 6 then value3 = value1-1;

   If x + value2 = 7 or x + value2 = 0 then value3 = value1-2;

   end else begin

   value3 = value1;

end;  

     

     

If dayofweek(date) = 1 and dayofmonth(date) = value3-1 then SecondLastWorkingDay = true;

If dayofweek(date) = 2 and dayofmonth(date) = value3-1 then SecondLastWorkingDay = true;

If dayofweek(date) = 3 and dayofmonth(date) = value3-1 then SecondLastWorkingDay = true;

If dayofweek(date) = 4 and dayofmonth(date) = value3-1 then SecondLastWorkingDay = true;

If dayofweek(date) = 5 and dayofmonth(date) = value3-3 then SecondLastWorkingDay = true;

 

 

在Powerlanguage Editor 裡新增一個函數SecondLastWorkingDay，函數回傳類型為True/False，儲存類型為時序，再定義兩個變數 Vars:x(0),y(0);

首先計算當月有幾多天數，儲存於value1，月份1,3,5,7,8,10,12 有31日，月份4,6,9,11 則有30日，至於2 月，可能是28日或29日。每四年便會出現一次2 月是29日的，如果年份可以被4整除的話，當年的2 月就有29日。例如今年2020 年，2020 可被4整除，所以今年的2 月有29 日。用Mod 這個關鍵字就能算出年份可不可以被4整除，這個關鍵字的語法是mod (被除數,除數)。Year 這個關鍵字則傳回年份，它傳回的格式是ELDate的年份，例如Year(1200617) 傳回120。

 

算完當月有幾多天數後，下一步計算當月最後的工作天是幾號，儲存於value3。如果當月最後一日是星期一至星期五，那麼當日便是最後的工作天 ( value1 = value3)。 如果當月最後一日是星期六或星期日，最後的工作天就會提早一天  (value3 = value1-1) 或兩天(value3 = value1-2)。

 

這一部份的計算會用到變數x和y，x = dayofweek(date); y = dayofmonth(date); dayofweek(date)傳回當天是星期幾，dayofmonth(date)傳回當天是幾號，Value2是計算當月剩餘的日子被 7 除之後的餘數，x + value2 可得出當月最後一日是星期幾，1 至 7 代表星期一至星期日。如果算出來 x + value2 等於1、2、3、4 或 5，當月最後一日是星期一至五，即是當月最後一日是工作天。如果算出來 x + value2 等於 6，當月最後一日是星期六，當天不是工作天，上一天才是工作天，所以value3 = value1-1。如果算出來 x + value2 等於 7，當月最後一日是星期天，當天不是工作天，上兩天才是工作天，所以value3 = value1-2。

 

到這裡還未完結啊! 還要算出最後交易日，最後交易日為每月的倒數第二個工作天，value3 再減1。可是這只是星期一至星期四正確，星期五的話value3 要減3。因為如果最後的工作天是星期一的話，最後交易日會是3日前。

 

如果看完後還是不明白，可以嘗試另一個寫法，就是把所有的可能性一一列出來。

語法如下，新增一個函數HSIsettlement，函數回傳類型為True/False，儲存類型為時序

var: M(0),DM(0),DW(0);

If date <> date[1] then HSIsettlement = false;

 

M=Month(Date);

DM=DayOfMonth(Date);

DW=DayOfWeek(Date);

 

If M=1 or M=3 or M=5 or M=7 or M=8 or M=10 or M=12 then begin

If DM=30 and DW=4 then HSIsettlement = true;

If DM=30 and DW=3 then HSIsettlement = true;

If DM=30 and DW=2 then HSIsettlement = true;

If DM=30 and DW=1 then HSIsettlement = true;

If DM=29 and DW=4 then HSIsettlement = true;

If DM=28 and DW=5 then HSIsettlement = true;

If DM=28 and DW=4 then HSIsettlement = true;

end;

 

 

 

If M=4 or M=6 or M=9 or M=11 then begin

If DM=29 and DW=4 then HSIsettlement = true;

If DM=29 and DW=3 then HSIsettlement = true;

If DM=29 and DW=2 then HSIsettlement = true;

If DM=29 and DW=1 then HSIsettlement = true;

If DM=28 and DW=4 then HSIsettlement = true;

If DM=27 and DW=5 then HSIsettlement = true;

If DM=27 and DW=4 then HSIsettlement = true;

end;

 

 

 

If M=2 and Mod(Year(Date)+1900,4) <> 0 then begin

If DM=27 and DW=4 then HSIsettlement = true;

If DM=27 and DW=3 then HSIsettlement = true;

If DM=27 and DW=2 then HSIsettlement = true;

If DM=27 and DW=1 then HSIsettlement = true;

If DM=26 and DW=4 then HSIsettlement = true;

If DM=25 and DW=5 then HSIsettlement = true;

If DM=25 and DW=4 then HSIsettlement = true;

end;

 

 

 

If M=2 and Mod(Year(Date)+1900,4) = 0 then begin

If DM=28 and DW=4 then HSIsettlement = true;

If DM=28 and DW=3 then HSIsettlement = true;

If DM=28 and DW=2 then HSIsettlement = true;

If DM=28 and DW=1 then HSIsettlement = true;

If DM=27 and DW=4 then HSIsettlement = true;

If DM=26 and DW=5 then HSIsettlement = true;

If DM=26 and DW=4 then HSIsettlement = true;

end;