易码技术论坛

 找回密码
 加入易码
搜索
查看: 126468|回复: 8

[下载]我做的第一个BAS程序,可以知道任何一天星期几!!!

[复制链接]
发表于 2005-6-26 14:15:00 | 显示全部楼层
鼓励...
但真的没意思啊......
大小缩减没什么用.都16K
发表于 2005-6-26 15:29:00 | 显示全部楼层
查日期可以用蔡勒公式
W=int(c/4)-2c+y+int(y/4)+int(26(m+1)/10)+d-1(m=3 to 14)
其中W是所求日期,如果W>7可减去7的倍数,直到小于7为止。c是公元年份前两位,y是后两位,m是月数,d是日数。月份如果是1,2月,则视为上一年13,14月。
 楼主| 发表于 2005-6-26 12:31:00 | 显示全部楼层

文件在这
 楼主| 发表于 2005-6-26 12:34:00 | 显示全部楼层
如果觉得文件还大,应该再小一些,请下载下面的精简版,呵呵
发表于 2005-6-26 15:34:00 | 显示全部楼层
by the way
楼主是否用的是蔡勒公式??
不会是S=x-1+int((x-1)/4)-int((x-1)/100)+int((x-1)/400)+C这个吧,这个太难算了。
发表于 2005-6-27 17:10:00 | 显示全部楼层
好好学习吧
编程都是由过程的,由简单得到难的
发表于 2005-6-28 22:04:00 | 显示全部楼层

这个公式=天书?
什么时候才学这个公式啊?
 楼主| 发表于 2005-7-1 13:09:00 | 显示全部楼层
我的那个程序好象没那么复杂.
 楼主| 发表于 2005-6-26 12:30:01 | 显示全部楼层 |阅读模式
这是我做的第一个程序,虽然只有3KB,但以后你就不愁任何一天星期几了,呵呵.

如果不好的话希望给出修改建议,谢谢
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-6-18 22:00 , Processed in 0.012061 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表