点击文件名下载附件
操作
输入欲转换的年月日后,触发巨集指令即可将公历转换成太阳日。
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