标题:自己编的日历
只看楼主
wszzg
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-1-13
得分:0 

好东西,把农历加上就好了

2007-01-13 20:50
tgb
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-4-8
得分:0 
好东西,好难!
2007-04-10 19:35
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
得分:0 
写的不错。。。鼓励一下

这个社会太复杂。。。
2007-04-10 20:13
wenber0598
Rank: 1
等 级:新手上路
帖 子:101
专家分:0
注 册:2007-2-27
得分:0 
可以吗?
以下是引用shenqk在2006-5-18 12:44:00的发言:
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:你能帮我解决这个问题吗?谢谢了!

9E49KPmm.rar (3.98 KB) 自己编的日历


这样可以吗?

三人行必有我师
2007-04-11 00:56
事业男儿
Rank: 2
等 级:论坛游民
帖 子:308
专家分:14
注 册:2007-4-25
得分:0 
写得好,要是在加上时间,把年份的动物,还加上自动报时功能就好了
2007-05-12 15:20
hyhhd
Rank: 2
等 级:论坛游民
威 望:1
帖 子:502
专家分:44
注 册:2006-5-12
得分:0 
这是从网上找的:

求出给定年(I),月(J),日(K)的儒略日:

儒略日= K - 32075 + 1461 * (I + 4800 + (J-14)/12)/4+367*(J-2-(J-14)/12*12)/12-3*((I+4900+(J-14)/12)/100)/4

例如1986年12月25日的儒略日(I=1986,J=12,K=25)=2446791
但程序计算为2446790,相差1,不知为何?


2007-05-12 18:33
ccc123
Rank: 1
等 级:新手上路
帖 子:55
专家分:0
注 册:2008-11-20
得分:0 
下来看看
2008-11-24 23:30
Laserw9
Rank: 1
等 级:新手上路
帖 子:2
专家分:7
注 册:2011-3-29
得分:0 
不会计算
2011-03-29 01:33



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-63473-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.152573 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved