日期加法計(jì)算器（AB compact Logix）！！！

當(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 指令 歡迎下載

【必讀】版權(quán)免責(zé)聲明

1、本主題所有言論和內(nèi)容純屬會(huì)員個(gè)人意見(jiàn)，與本論壇立場(chǎng)無(wú)關(guān)。2、本站對(duì)所發(fā)內(nèi)容真實(shí)性、客觀性、可用性不做任何保證也不負(fù)任何責(zé)任，網(wǎng)友之間僅出于學(xué)習(xí)目的進(jìn)行交流。3、對(duì)提供的數(shù)字內(nèi)容不擁有任何權(quán)利，其版權(quán)歸原著者擁有。請(qǐng)勿將該數(shù)字內(nèi)容進(jìn)行商業(yè)交易、轉(zhuǎn)載等行為，該內(nèi)容只為學(xué)習(xí)所提供，使用后發(fā)生的一切問(wèn)題與本站無(wú)關(guān)。 4、本網(wǎng)站不保證本站提供的下載資源的準(zhǔn)確性、安全性和完整性;同時(shí)本網(wǎng)站也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的損失或傷害。 5、本網(wǎng)站所有軟件和資料均為網(wǎng)友推薦收集整理而來(lái)，僅供學(xué)習(xí)用途使用，請(qǐng)務(wù)必下載后兩小時(shí)內(nèi)刪除，禁止商用。6、如有侵犯你版權(quán)的，請(qǐng)及時(shí)聯(lián)系我們（電子郵箱1370723259@qq.com）指出，本站將立即改正。

各位朋友，急需工控幣下WinCC7.2 USB破解文件，希望大家多多支持！！！