落拓居论坛 » 音画、贴图、视频 » 自己做的日历
本页主题: 自己做的日历 打印 | 加为IE收藏 | 收藏主题 | 上一主题 | 下一主题

落拓居士

头衔:骆驼 骆驼

级别: 管理员
精华: 28
发帖: 3944
威望: 3338 点
金钱: 70644 银两
贡献值: 27 点
好评度: 391 点
朋友圈: 落拓
在线时间:521(小时)
注册时间:2005-12-13
最后登录:2025-04-26

自己做的日历

对什么VC,VB,C++这些都不了解,用FLASH做出了个日历,也带农历显示,不过只做了今年的,没继续做下去,有兴趣的朋友,不妨继续添加.
对于做这些东东不在行,只是学习一下数组的用法...欢迎大家讨论.
调节你电脑日期,下面FLASH中的日期与农历会自动变化.

[Full Screen]
源文件与FLASH文件
附件下载: rl.rar

只用了一个帧,在第一帧的动作脚本里输入了以下代码:
stop();
function work(){
  var a=new Array("初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","二十","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十");
var c=new Array(30,29,30,29,30,30,29,29,30,30,29,29,30);//定义农历月大与月小的天数
var f=new Array(31,28,31,30,31,30,31,31,30,31,30,31);//定义公历月大月小的天数
var e=new Array("正月","二月","三月","四月","五月","六月","七月","润七月","八月","九月","十月","冬月","腊月");
b=0;
my=new Date();
y=my.getMonth();
r=my.getDate();

q=0;
while(y>0){
  y=y-1;
  q=q+f[y];
 
}
x=q+r-28; //今年公历天数与农历天数相差28天,指的是正月初一,是公历1月29日.
z=c;
while(x>z){
  b++;
  z=z+c;
}
with(_root){
g=(e); //显示当前农历月
h=(a[(x-z+c)-1]); //显示当前农历日
i=my.getMonth()+1; //显示当前月
r=my.getDate();//显示当前天
hh=my.getHours();//显示当前小时
if(my.getMinutes()<10){//显示当前分钟数,小于十时自动在前面加0
  mm="0"+my.getMinutes();
}else{
mm=my.getMinutes();
}
if(my.getSeconds()<10){ //显示当前秒数,小于十秒时前面自动加0
  ss="0"+my.getSeconds();
}else{ss=my.getSeconds();
}
}}
setInterval(work,1000);
男人就应该象个男人,说男人的话,做男人的事!
顶端 Posted: 2006-04-04 15:22 | [楼 主]
莲儿
创意奖
头衔:聆听.感动 聆听.感动

级别: 总版主
精华: 60
发帖: 6234
威望: 4843 点
金钱: 35127 银两
贡献值: 22 点
好评度: 414 点
在线时间:815(小时)
注册时间:2006-04-01
最后登录:2017-09-15

你可真有耐心啊! 哈.....我看的头都晕了....反正我是不会,没有办法帮你继续添加.
天空没有翅膀的痕迹,而我已飞过。。。。。。。
 
顶端 Posted: 2006-04-04 16:12 | 1 楼
青青子衿
终身成就奖

级别: 管理员
精华: 84
发帖: 10666
威望: 7815 点
金钱: 70039 银两
贡献值: 1 点
好评度: 621 点
在线时间:406(小时)
注册时间:2006-05-11
最后登录:2013-03-21

落拓是个热爱生活的人!
慎独
顶端 Posted: 2006-04-04 21:31 | 2 楼
文清致远
热心会员奖 特殊贡献奖

级别: 总版主
精华: 30
发帖: 4694
威望: 4149 点
金钱: 31143 银两
贡献值: 2 点
好评度: 180 点
在线时间:629(小时)
注册时间:2005-12-18
最后登录:2012-05-26

Quote:
下面是引用青青子衿于2006-04-04 21:31发表的:
落拓是个热爱生活的人!


疏影暗香http://218.58.188.198:82/u/983/index.html
顶端 Posted: 2006-04-05 20:56 | 3 楼
落拓居士

头衔:骆驼 骆驼

级别: 管理员
精华: 28
发帖: 3944
威望: 3338 点
金钱: 70644 银两
贡献值: 27 点
好评度: 391 点
朋友圈: 落拓
在线时间:521(小时)
注册时间:2005-12-13
最后登录:2025-04-26

这也给我加精,厚爱了....
男人就应该象个男人,说男人的话,做男人的事!
顶端 Posted: 2006-04-05 21:46 | 4 楼
沧海客

头衔:我本善良 我本善良

级别: 贵宾
精华: 21
发帖: 1092
威望: 1751 点
金钱: 12949 银两
贡献值: 0 点
好评度: 76 点
在线时间:3(小时)
注册时间:2006-01-12
最后登录:2010-11-16

Quote:
下面是引用落拓居士于2006-04-05 21:46发表的:
这也给我加精,厚爱了....

骆驼出品,必为珍品

[fly]落水浮萍本无根,相逢何必曾相识[/fly]
顶端 Posted: 2006-04-06 12:23 | 5 楼


级别: 主簿(正九品)
精华: 0
发帖: 127
威望: 483 点
金钱: 21003 银两
贡献值: 0 点
好评度: 0 点
在线时间:0(小时)
注册时间:2006-01-07
最后登录:2007-01-08

哈哈!
一个一无所有而且没有过去的人
顶端 Posted: 2006-05-17 14:51 | 6 楼
wanglz821001


级别: 赤脚
精华: 0
发帖: 3
威望: 326 点
金钱: 20456 银两
贡献值: 0 点
好评度: 0 点
在线时间:0(小时)
注册时间:2006-07-26
最后登录:2006-07-26

看不懂
顶端 Posted: 2006-07-26 09:45 | 7 楼
落拓居论坛 » 音画、贴图、视频

Total 0.009360(s) query 6, Time now is:06-16 11:54, Gzip disabled 蜀ICP备11007877号-1
Powered by PHPWind v5.3 Certificate Code © 2003-07 PHPWind.com Corporation