台股結算日（BalanceDay）

相信已經有不少人發表過如何判斷結算日
在此將下單機中計算結算日日期分享給大家

已經將檔案轉成HTS與TS檔
懶的看的人可以匯入使用

使用方法：
　　假設今天是 2009/03/13（近月為200903）
　　BalanceDay(1) 　＝　1090218　（上個月結算日）
　　BalanceDay(0) 　＝　1090318　（近月結算日）
　　BalanceDay(-1) 　＝　1090415　（次月結算日）

　　假設今天是 2009/03/19（近月為200904）
　　BalanceDay(1) 　＝　1090318　（上個月結算日）
　　BalanceDay(0) 　＝　1090415　（近月結算日）
　　BalanceDay(-1) 　＝　1090520　（次月結算日）


TS新增自訂函數


HTS 版本（本地下載）

BalanceDay

/*
 Mail: ChunI.Kuo@Gmail.com
 Blog: http://chunikuo.blogspot.com/
 
 Designed by Chun-I Kuo
*/

parameters: Length(Numeric);
vars: ShortDate(0), TM(0), MBD(0), Q(0), M(0), Y(0);

ShortDate = floor((date/100))*100;
MBD = BalanceDayOfMonth(ShortDate);

if date > MBD then // The balance day of this month has passed
 TM = floor(date / 10000) * 12 + month(date) - Length + 1
else  // The balance day of this month doesn't arrival
 TM = floor(date / 10000) * 12 + month(date) - Length;
end if

BalanceDay = BalanceDayOfMonth((Floor(TM/12)*100 + Mod(TM, 12))*100);

BalanceDayOfMonth

/*
 Mail: ChunI.Kuo@Gmail.com
 Blog: http://chunikuo.blogspot.com/
 
 Designed by Chun-I Kuo
*/

parameters: M1(Numeric);

if dayofweek(M1+01) = 0 then
 BalanceDayOfMonth = M1+18
else
 if dayofweek(M1+01) = 1 then
  BalanceDayOfMonth = M1+17
  else
  if dayofweek(M1+01) = 2 then
   BalanceDayOfMonth = M1+16
    else
   if dayofweek(M1+01) = 3 then
    BalanceDayOfMonth = M1+15
     else
    if dayofweek(M1+01) = 4 then
     BalanceDayOfMonth = M1+21
      else
     if dayofweek(M1+01) = 5 then
      BalanceDayOfMonth = M1+20
       else
      if dayofweek(M1+01) = 6 then
       BalanceDayOfMonth = M1+19;
      end if
     end if
    end if
   end if
  end if
 end if
end if

TS 版本（本地下載）

BalanceDay

{
 Mail: ChunI.Kuo@Gmail.com
 Blog: http://chunikuo.blogspot.com/
 
 Designed by Chun-I Kuo
}

Inputs: Length(NumericSimple);
vars: ShortDate(0), TM(0), MBD(0), Q(0), M(0), Y(0);

ShortDate = floor((date/100))*100;
MBD = BalanceDayOfMonth(ShortDate);

if date > MBD then {The balance day of this month has passed} 
 TM = floor(date / 10000) * 12 + month(date) - Length + 1
else  {The balance day of this month doesn't arrival}
 TM = floor(date / 10000) * 12 + month(date) - Length;
 
BalanceDay = BalanceDayOfMonth((Floor(TM/12)*100 + Mod(TM, 12))*100);

BalanceDayOfMonth

{
 Mail: ChunI.Kuo@Gmail.com
 Blog: http://chunikuo.blogspot.com/
 
 Designed by Chun-I Kuo
}

Inputs: M1(NumericSimple);

if dayofweek(M1+01) = 0 then
 BalanceDayOfMonth = M1+18
else begin
 if dayofweek(M1+01) = 1 then
  BalanceDayOfMonth = M1+17
  else begin
  if dayofweek(M1+01) = 2 then
   BalanceDayOfMonth = M1+16
    else begin
   if dayofweek(M1+01) = 3 then
    BalanceDayOfMonth = M1+15
     else begin
    if dayofweek(M1+01) = 4 then
     BalanceDayOfMonth = M1+21
      else begin
     if dayofweek(M1+01) = 5 then
      BalanceDayOfMonth = M1+20
       else begin
      if dayofweek(M1+01) = 6 then
       BalanceDayOfMonth = M1+19;
     end;
    end;
   end;
  end;
 end;
end;