十年网站开发经验+多家企业客户+靠谱的建站团队
量身定制+运营维护+专业推广+无忧售后，网站问题一站解决
万年历不难做。难得是数据，数据比较庞大啊。
分析一下。你只需要考虑一下闰年。农历60年一个循环，
阴历阳历分开算，最后数据组合就是既有阴历又有阳历了。
同样，节气也是，做一个阴历节气表，一个阳历节气表。
做下对应就可以了。
具体实现就不多说了。比较容易，你可以做基于web的也可以基于form的。开发语言可以用vs系列，java系列。如果是web的，可以用php，aspx，jsp。数据库用mysql就可以，mssql比较傻瓜容易上手。oracle的话没必要。
提供一个解决方案：
做基于web的。aspx+c#+ado.net+mssql
这样你就可以把工作重点放在算法实现上。
dimCurDayasstring
dimCurTimeasstring
curday=day()
curtime=time()
Label1.Caption=Date
就能在Label16显示当前日期
而
year()
month()
day()
等等则可以从now返回的值中分别提取年，月，日的信息
VB.NET包含内置的或内部的函数，如MsgBox、CStr等。此外，还可用Function语句编写自己的VB.NETFunction过程。函数过程的语法是：
{Private|Public|Friend|}
Functionfunctionname(argumentlist)[Asdatatype]
Statements
EndFunction
与Sub过程一样，VB.NETFunction过程也是一个独立的过程，可读取参数、执行一系列语句并改变其参数的值。与Sub过程不同的是，Function过程可返回一个值到调用的过程。在Sub过程与Function过程之间有三点区别：
(1)一般来说，语句或表达式的右边包含函数过程名和参数（returnvalue=function），这就调用了函数。
(2)与变量完全一样，函数过程有数据类型。这就决定了返回值的类型（如果没有As子句，缺省的数据类型为Object）。
(3)可以给functionname赋一个值，即为返回的值。
VB.NETFunction过程返回一个值时，该值可成为表达式的一部分。例如，下面是已知直角三角形直角边的值，计算第三边（斜边）的函数：
FunctionHypotenuse(AasInteger,BAsInteger)AsString
Hypotenuse=Math.Sqrt(A^2+B^2)
在VisualBasic中调用VB.NETFunction过程的方法和调用任何内部函数的方法是一样的：
Label1.Text=CStr(Hypotenuse(CInt(Text1.Text),CInt(Text2.Text)))