主题:  我的Blog万年历代码~

金山羊

职务:普通成员
等级:4
金币:10.0
发贴:827
#162003/6/13 16:53:42
关键要能显示中国的农历才行


5d.cn
FLASHDEP
TECHNOLOGY SUPPORT
JAVA/ACTIONSCRIPT/javascript
CFML/JSP/COLDFUSION/FLASH REMOTING
JRUN/COLDFUSIONMX
FLASH/DREAMWEARER

s22

职务:版主
等级:4
金币:10.0
发贴:1634
#172003/6/13 16:58:17

这个想法够好。
不知道是不是有现成的c++ COM组件,或者JAVA的现成方法



wait

职务:普通成员
等级:1
金币:10.0
发贴:220
#182003/6/13 19:41:34
农历,现在用的人少咯.

不过我在乎的是编程思路,而不是有没有那些组件。

农历一年有多少天?二十四气节等等我一窍不通。。

编辑历史:[这消息被ColdFusion编辑过(编辑时间2003-06-13 20:00:55)]


金山羊

职务:普通成员
等级:4
金币:10.0
发贴:827
#192003/6/14 12:21:49
农历每年的天数是不一样的,19年才轮回一次
而且中间有晕月的时候
另外二十四节气跟农历没关系


5d.cn
FLASHDEP
TECHNOLOGY SUPPORT
JAVA/ACTIONSCRIPT/javascript
CFML/JSP/COLDFUSION/FLASH REMOTING
JRUN/COLDFUSIONMX
FLASH/DREAMWEARER

5D荣誉斑竹

职务:普通成员
等级:3
金币:10.0
发贴:751
#202003/6/14 13:18:48

function create_yearlist(yearnum){
    writeoutput('');
}

function create_monthlist(monthnum){
    writeoutput('');
}

function create_calendar(){
    if(isdefined("form.yearlist")){
        yearnow=form.yearlist;
        monthnow=form.monthlist;
    }else{
        yearnow=year(now());
        monthnow=month(now());    
    }
    if(isdefined("form.next")){
        if(form.monthlist neq 12){
            yearnow=form.yearlist;
            monthnow=form.monthlist+1;
        }else{
            yearnow=form.yearlist+1;
            monthnow=1;    
        }
    }
    if(isdefined("form.prev")){
        if(form.monthlist neq 1){
            yearnow=form.yearlist;
            monthnow=form.monthlist-1;
        }else{
            yearnow=form.yearlist-1;
            monthnow=12;    
        }
    }    
    /*
    if(arraylen(arguments) eq 0){
        yearnow=year(now());
        monthnow=month(now());
    }
    if(arraylen(arguments) eq 2){
        yearnow=arguments[1];
        monthnow=arguments[2];
    }
    if((arraylen(arguments) eq 1) and (listlen(arguments[1]) eq 4)){
        yearnow=arguments[1];
        monthnow=month(now());
    }else{
        yearnow=year(now());
        monthnow=arguments[1];
    }
    */
    /*一个月第一天的日期*/
    first_day=createdate(yearnow,monthnow,1);
    /*当月的天数*/
    all_days=daysinmonth(first_day);
    /*第一天在星期中的编号(星期天是1)*/
    day_inweek=dayofweek(first_day);
    /*最后一天的日期*/
    last_day=createdate(yearnow,monthnow,all_days);
    /*最后一天在星期中的编号(星期天是1)*/
    lastday_inweek=dayofweek(last_day);
    writeoutput('');
    for(j=1;j lt day_inweek; j=j+1){
        writeoutput("");
    }
    
    for(i=1;i lt all_days+1;i=i+1){
        if(((i+j-1) mod 7) neq 0){
            writeoutput("");
        }else{
            writeoutput("");
        }
    }
    for(k=lastday_inweek+1;k lt 8;k=k+1){
        writeoutput("");
    }
    writeoutput("
');
    create_yearlist(yearnow);
    writeoutput('年  ');
    create_monthlist(monthnow);
    writeoutput('月');
    writeoutput('
SunMonTueWenThuFirSat
 " & i & "" & i & "
 
");
}


调用方法很简单
再区中加上

#create_calendar()#

就可以了。呵呵

编辑历史:[这消息被都市无情人编辑过(编辑时间2003-06-14 13:24:20)]


金山羊

职务:普通成员
等级:4
金币:10.0
发贴:827
#212003/6/14 21:42:03
这样就能显示农历马


5d.cn
FLASHDEP
TECHNOLOGY SUPPORT
JAVA/ACTIONSCRIPT/javascript
CFML/JSP/COLDFUSION/FLASH REMOTING
JRUN/COLDFUSIONMX
FLASH/DREAMWEARER

网络白痴 | 5D荣誉斑竹

职务:普通成员
等级:4
金币:10.0
发贴:1657
#222003/6/14 22:16:30
当天日子没有用其它颜色区别开:(



雅痞公子

职务:普通成员
等级:3
金币:-3.0
发贴:732
#232003/6/15 1:15:40
历害历害,这辈子都不用买万年历了,但今天的日子能不能换别的颜色.
图片如下:



5D荣誉斑竹

职务:普通成员
等级:3
金币:10.0
发贴:751
#242003/6/15 8:39:06
这个修正过了,大家喜欢就拿去用吧,可以显示当天日期了,


function create_yearlist(yearnum){
    writeoutput('');
}

function create_monthlist(monthnum){
    writeoutput('');
}

function create_calendar(){
    if(isdefined("form.yearlist")){
        yearnow=form.yearlist;
        monthnow=form.monthlist;
    }else{
        yearnow=year(now());
        monthnow=month(now());    
    }
    if(isdefined("form.next")){
        if(form.monthlist neq 12){
            yearnow=form.yearlist;
            monthnow=form.monthlist+1;
        }else{
            yearnow=form.yearlist+1;
            monthnow=1;    
        }
    }
    if(isdefined("form.prev")){
        if(form.monthlist neq 1){
            yearnow=form.yearlist;
            monthnow=form.monthlist-1;
        }else{
            yearnow=form.yearlist-1;
            monthnow=12;    
        }
    }    
    /*
    if(arraylen(arguments) eq 0){
        yearnow=year(now());
        monthnow=month(now());
    }
    if(arraylen(arguments) eq 2){
        yearnow=arguments[1];
        monthnow=arguments[2];
    }
    if((arraylen(arguments) eq 1) and (listlen(arguments[1]) eq 4)){
        yearnow=arguments[1];
        monthnow=month(now());
    }else{
        yearnow=year(now());
        monthnow=arguments[1];
    }
    */
    /*一个月第一天的日期*/
    first_day=createdate(yearnow,monthnow,1);
    /*当月的天数*/
    all_days=daysinmonth(first_day);
    /*第一天在星期中的编号(星期天是1)*/
    day_inweek=dayofweek(first_day);
    /*最后一天的日期*/
    last_day=createdate(yearnow,monthnow,all_days);
    /*最后一天在星期中的编号(星期天是1)*/
    lastday_inweek=dayofweek(last_day);
    writeoutput('');
    for(j=1;j lt day_inweek; j=j+1){
        writeoutput("");
    }
    
    for(i=1;i lt all_days+1;i=i+1){
        if(((i+j-1) mod 7) neq 0){
            if(day(now()) eq i and year(now()) eq yearnow and month(now()) eq monthnow){
            writeoutput("");
            }else{
            writeoutput("");
            }
        }else{
            if(day(now()) eq i and year(now()) eq yearnow and month(now()) eq monthnow){
            writeoutput("");
            }else{
            writeoutput("");
            }
        }
    }
    for(k=lastday_inweek+1;k lt 8;k=k+1){
        writeoutput("");
    }
    writeoutput("
');
    create_yearlist(yearnow);
    writeoutput('年  ');
    create_monthlist(monthnow);
    writeoutput('月');
    writeoutput('
SunMonTueWenThuFirSat
 " & i & "" & i & "" & i & "
" & i & "
 
");
}



s22

职务:版主
等级:4
金币:10.0
发贴:1634
#252003/6/16 23:55:10
有小礼品送,请发代码的两位联系我



5D荣誉斑竹

职务:普通成员
等级:3
金币:10.0
发贴:751
#262003/6/17 11:20:18
靠,S22你玩什么把戏。晕,礼品?倒



s22

职务:版主
等级:4
金币:10.0
发贴:1634
#272003/6/17 12:31:06
我的MSN:actionscripts@hotmail.com
日期截至明日下班