步步汇盈

标题: 【2】时区换算成【8】时区公式,可任意加入主图。 [打印本页]

作者: 好心境    时间: 2013-4-14 15:02
标题: 【2】时区换算成【8】时区公式,可任意加入主图。
本帖最后由 好心境 于 2013-4-14 15:06 编辑

源码如下:(夏令时也自动转换,想加入年份的可自己加入)
variable:
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
lfy:=LYEAR;
lfm:=LMONTH;
lfd:=LDAY;
wd:=WEEKDAY;
xs1:=if(fm>=4,HOUR+5,HOUR+6);
xs:=if(xs1>=24,xs1-24,xs1);
f:=MINUTE;
p:=SYSPARAM(1);
str1:='北京时间:'+'\n'+NUMTOSTR(fm[p],0)+'/'+NUMTOSTR(fd[p],0)+','+NUMTOSTR(xs[p],0)+':'+NUMTOSTR(f[p],0);
DRAWTEXTex(1,1,500,950,str1),color808080;

[attach]193[/attach][attach]193[/attach]




作者: 我心飞扬    时间: 2013-4-17 13:11
感谢,我试试
作者: 冷暖人生    时间: 2013-4-27 19:37
谢谢,我也试试,就是不知道时间准不准。
作者: 画虎ETF    时间: 2013-6-15 08:40
谢谢分享!!!!!!!!!!!!




欢迎光临 步步汇盈 (http://bbs.58851.com/) Powered by Discuz! X3.2