自己编的日历，有些简单，还请高手在修改

希望年份上限再提前一些，最好提到1900年之前！

好了我已经修改好了，我重新发布

很好！
我又想到一个问题。就是关于儒略日。
1582年12月31日的儒略日是2299238。
VB可进行日期相减，如：#5/15/2006#-#12/31/1582#+2299238 = 2453871。
2453871就是2006年5月15日的儒略日。
现在的问题就是在你的日历中能否加上计算确定日期的儒略日？
只要在图像窗口加一个标签和在代码窗口加一段代码就可以了。
希望能成功！

儒略日是一种天文纪日法，没有年、月，只有日。
现在通用的格里历（公历），是在1582年10月从儒略历改变而来，并且还“丢失”了10月5日到10月14日这十天。所以计算儒略日以1582年12月31日为基准比较方便。

这个有点麻烦呢，要不楼上那位朋友你自己改一下，我对历法不是很清楚，没怎么研究过，谢谢呵呵

#5/15/2006#-#12/31/1582#+2299238
我不知道即日的VB语言如何实现，如：#5/15/2006#
最好能与日历的显示能同步！

Private Sub lblrl_Click()
Dim number&
Dim Var1, Var2 As Date
Var1 = #12/31/1582#
Var2 = #5/18/2006#
number = Var2 - Var1 + 2299238
lblrl.Caption = "儒略日：" & number
End Sub
我加了如上一段代码，能够运行。
但是，这红色代码不能与日历中的代码统一起来，因此还不能算成功。
sunsunmagic：你能帮我解决这个问题吗？谢谢了！

Var2 = #5/18/2006#

关键问题是：Var2的值不能随时间的改变而变化！
徒唤奈何！

如果把农历加上就好了