国产免费AV|泡泡玛特欧洲总部将设在伦敦|中文天堂网www新版资源在线|一本久道综合在线中文|国精产品一二三产区的使用方法|香蕉鱼在线观看|www.27eee

ELEOK

標(biāo)題: 日期加法計(jì)算器（AB compact Logix）?。?！ [打印本頁]
作者: tybbs21    時(shí)間: 2016-9-19 13:22
標(biāo)題: 日期加法計(jì)算器（AB compact Logix）?。?！
本帖最后由 tybbs21 于 2016-9-19 13:22 編輯

當(dāng)前日期加上天數(shù)，得到預(yù)期的日期。

變量聲明

程序（結(jié)構(gòu)化文本）代碼

Add_On 指令代碼：


MinMonth[0]:=2;
MinMonth[1]:=4;
MinMonth[2]:=6;
MinMonth[3]:=9;
MinMonth[4]:=11;
NewMonth:=Month_In;
NewYear:=Year_In+4*TRUNC((Day_Add*1.0)/1461.0);//測(cè)試是否為實(shí)數(shù)
NewDay:=Day_Add mod 1461 ;
NewDay:=Day_In+NewDay;
if NewDay<=28 then
   Day_Out:=NewDay;
else
   Done:=0;
   while Not Done do
                 if NewMonth=2 then
                    if NewYear mod 4=0 then//判斷是為閏年
                           if NewDay<=29 then//判斷是否為29天
                                  Day_Out:=NewDay;
                                  Done:=1;
                           else//大于29天
                                  NewDay:=NewDay-29;
                              NewMonth:=NewMonth+1;
                           end_if;
                        else//不為閏年
                           if NewDay<=28 then//判斷是否為28天
                              Day_Out:=NewDay;
                                  Done:=1;
                           else
                              NewDay:=NewDay-28;
                          NewMonth:=NewMonth+1;
                           end_if;
                   end_if;
                else
                   for Var:=0 to 4 do
                       if NewMonth <>MinMonth[Var] then//當(dāng)前判斷為大月
                                  MaxMonthMark:=1;
                           else
                              MinMonthMark:=1;
                           end_if;
                   end_for;
                   if MinMonthMark then//當(dāng)前月為小月且不等于二月
                      //a[1]:=a[1]+1;
                      if NewDay<=30 then
                             Day_Out:=NewDay;
                             Done:=1;
                      else
                             NewDay:=NewDay-30;
                             NewMonth:=NewMonth+1;
                      end_if;
                      MinMonthMark:=0;
           end_if;
                   if MaxMonthMark then
                      //a[2]:=a[2]+1;
                      if NewDay<=31 then
                         Day_Out:=NewDay;
                         Done:=1;
                      else
                     NewDay:=NewDay-31;
                         NewMonth:=NewMonth+1;
                         if NewMonth>=13 then
                            NewYear:=NewYear+1;
                                NewMonth:=1;
                         end_if;
                      end_if;
                         MaxMonthMark:=0;
               end_if;
       end_if;
            if Done then
           EXIT;
            end_if;
    end_while;
end_if;
Month_Out:=NewMonth;
Year_OUT:=NewYear;

附件中有完整的Add-On 指令 歡迎下載

DataAddDay.rar

2.06 KB

售價(jià): 1 E幣  [記錄]  [購(gòu)買]

時(shí)間加法計(jì)算（天）
作者: tybbs21    時(shí)間: 2016-9-19 14:32
各位朋友，急需工控幣下WinCC7.2 USB破解文件，希望大家多多支持！??！



歡迎光臨 ELEOK (http://www.afoofa.cn/) Powered by Discuz! X5.0