请教VB如何获取二十四节气数据

这主要取决于节气如何计算

我摆渡到以下数据，不过不知道如何计算的

#include<stdio.h>

int main()
{
    /*
      通式寿星公式——[Y×D+C]-L
      D=0.2422
      本世纪C=4.475
      Y 年份
      L=闰年数 年/4-15
    */
    double D=0.2422;
    double C=4.475;
    int lichun;
    int Y=2015;
    lichun=(int)(Y*D+C)-(int)(Y/4-15);
    printf("%d年的立春日期是%d月%d日。\n",Y,2,lichun);
    return 0;
}

/*
   运行结果如下：
   2015年的立春日期是2月4日。
*/

网页bug 导致重复发帖

[ 本帖最后由 wp231957 于 2015-1-4 08:45 编辑 ]

我花了很长时间写程序，核对万年历有的日期还是不对，不知错对是谁。具体到时分还不懂怎样写程序。你也玩择吉编程？我是由于爱好择吉而选择了自学编程帮助记忆。

按照回归年为365.2422天计算，代码如下：

  Dim i As Double, d As Date
  Const bs = "2014-2-4 6:3:15"
  i = 2017 - 2014
  i = i * 365.2422 * 24 * 3600
  d = DateAdd("s", i, bs)
  MsgBox "2017年立春时间为：" & d

运行后会提示“2017年立春时间为：2017-02-03 23:29:33 ”
经查2017年立春时间实际为 02月03日 23:34:01 ，差268秒，不知为什么。有的年份居然隔600多秒，10多分钟，不知道是按什么算的。

现在想来，估计是由于地球并不是在一个圆形轨道上运转造成的，当立春正处于近日点时，地球公转速度快，可能会出现负数，立春在远日点，地球公转慢，则会出现大于的误差（如2013年就是-56秒），看来要准确计算，要有天体轨道运算公式才行，甚至要考虑到月球的影响。

[ 本帖最后由 xzlxzlxzl 于 2015-1-4 15:07 编辑 ]

天体运动周期测算要精确到秒级估计不太可能吧。再者说每回归一次所用的时间也不一样。回归年按天算近似到四位小数，也是多个年份的综合考虑，也许就是平均值。用平均值计算得到的结果和真实值总会有出入。普通应用上足够了，精准时间只能由天文学家来推测了。

地球公转的周期是非常稳定的，一恒星年为365.25天，一回归年为365.24219天，如果有其他天体的摄动，估计影响是在纳秒量级。
24节气是按阳历来排的，每年相同节气间隔应该是一个365.24219天的等差数列，现实查表发现最大有正负10分钟的误差，不是等差，就应该是地球公转的非圆形轨道造成的。

如果农历年的每个月永远不变是三十天还好说，但有“闰”的问题，很难精确解决。二十四节气如何推算出来就更不知如何下手了。作为阴历月的划分依据，要择日什么的节气必不可少。真是麻烦

怎样取得二十四个节气呢？