欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件金字塔软件问题提交 → [建议]建议时间函数列表加入回历

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5159人关注过本帖平板打印复制链接

主题:[建议]建议时间函数列表加入回历

帅哥哟,离线,有人找我吗?
wgh1256
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:134 积分:861 威望:0 精华:1 注册:2009/10/31 16:43:53
  发帖心情 Post By:2013/1/17 11:52:30 [只看该作者]

y := YEAR;
m := MONTH;
d := DAY;

jd := INTPART((1461 * (y + 4800 + INTPART((m - 14) / 12))) / 4) + INTPART((367 * (m - 2 - 12 * (INTPART((m - 14) / 12)))) / 12) - INTPART((3 * (INTPART((y + 4900 + INTPART((m - 14) / 12)) / 100))) / 4) + d - 32075;
k := jd - 1948440 + 10632;
n := INTPART((k - 1) / 10631);
k := k - 10631 * n + 354;
j := (INTPART((10985 - k) / 5316)) * (INTPART((50 * k) / 17719)) + (INTPART(k / 5670)) * (INTPART((43 * k) / 15238));
k := k - (INTPART((30 - j) / 15)) * (INTPART((17719 * j) / 50)) - (INTPART(j / 16)) * (INTPART((15238 * j) / 43)) + 29;

HMONTH : INTPART((24 * k) / 709);

HDAY : k - INTPART((709 * HMONTH) / 24);

HYEAR : 30 * n + j - 30;

 回到顶部