威纶触摸屏公历阴历转换实例

1. 简介与操作
简介
以下范例介绍如何透过巨集指令将公历的年月日转换成太阳日。
太阳日共有 4位数，第一位代表西元年末位，后面三位数则以一年开始起计算天数。
例如: 西元 2014 年2月1号，太阳日为 4032。

威纶触摸屏公历阴历转换实例

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:Solar_Day_Converter.rar 
文件大小:10.55 KB  售价:1金币
下载权限: 不限 以上或 VIP会员   [购买捐助会员]   [充值积分]  

操作
输入欲转换的年月日后，触发巨集指令即可将公历转换成太阳日。
2. 設定程序
步驟 1. 建立巨集指令如下:
macro_command main()
short y, m, d, y1, m1, d1, solar
GetData(y, "Local HMI", LW, 9022, 1)
GetData(m, "Local HMI", LW, 9021, 1)
GetData(d, "Local HMI", LW, 9020, 1)
y1=y%10
if m==1 then
m1=0
end if
if m==2 then
m1=31
end if
if m==3 then
m1=59
end if
if m==4 then
m1=90
end if
if m==5 then
m1=120
end if
if m==6 then
m1=151
end if
if m==7 then
m1=181
end if
if m==8 then
m1=212
end if
if m==9 then
m1=243
end if
if m==10 then
m1=273
end if
if m==11 then
m1=304
end if
if m==12 then
m1=334
end if
solar = y1*1000+m1+d

if  y==2000  or  y==2004  or  y==2008  or  y==2012  or  y==2016  or  y==2020  then
    if m >= 3 then
  solar = y1*1000+m1+d+1
  end if
end if

SetData(solar, "Local HMI", LW, 10, 1)

end macro_command

步骤 2. 新增三个数值输入物件，
位址来源分别为 LW-9022、LW-9021、LW-9020，用来读/写年.月.日。

威纶触摸屏公历阴历转换实例

步骤 3. 新增一个功能键物件，用来触发巨集指令。

威纶触摸屏公历阴历转换实例

步骤 4. 新增一个数值物件，可将转换后的结果写入。

威纶触摸屏公历阴历转换实例