本帖最后由 tybbs21 于 2016-9-19 13:22 编辑
当前日期加上天数，得到预期的日期。
变量声明
程序（结构化文本）代码
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);//测试是否为实数
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//当前判断为大月
MaxMonthMark:=1;
else
MinMonthMark:=1;
end_if;
end_for;
if MinMonthMark then//当前月为小月且不等于二月
//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 指令 欢迎下载
【必读】版权免责声明
1、本主题所有言论和内容纯属会员个人意见，与本论坛立场无关。2、本站对所发内容真实性、客观性、可用性不做任何保证也不负任何责任，网友之间仅出于学习目的进行交流。3、对提供的数字内容不拥有任何权利，其版权归原著者拥有。请勿将该数字内容进行商业交易、转载等行为，该内容只为学习所提供，使用后发生的一切问题与本站无关。 4、本网站不保证本站提供的下载资源的准确性、安全性和完整性;同时本网站也不承担用户因使用这些下载资源对自己和他人造成任何形式的损失或伤害。 5、本网站所有软件和资料均为网友推荐收集整理而来，仅供学习用途使用，请务必下载后两小时内删除，禁止商用。6、如有侵犯你版权的，请及时联系我们（电子邮箱1370723259@qq.com）指出，本站将立即改正。
| 
