自己编的日历 - VB6论坛 - 编程论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 自己编的日历

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3073 人关注过本帖

标题：自己编的日历

只看楼主加入收藏

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: 5

Rank: 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

等　级：论坛游民
帖　子：317
专家分：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

快速回复：自己编的日历

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

编程中国 版权所有，并保留所有权利。

Powered by Discuz, Processed in 0.062512 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved