本站提倡有节制游戏,合理安排游戏时间,注意劳逸结合。

【苍穹变 源码】【nginx源码事件模块】【甘草医生app源码】节气源码_节气 起源

2024-11-18 22:56:55 来源:时尚 分类:时尚

1.编写一份我国的节气节气农历
2.用VB如何做万年历?
3.fullcalendar显示当月日历方法
4.求 网页日历代码

节气源码_节气 起源

编写一份我国的农历

       1网上有现成的代码超级多

       2代码有jsp的也有C的或java的一般差不多

       3基本都是查表计算农历

       4因为表的都差不多所以基本都有年代限制,不能无限计算各个年代

       5要想写出完美的源码农历计算方法请学习牛顿力学和天体物理学等以通过太阳的黄经位置(阳历)计算月亮的视位置(农历),如果LZ能计算出来那我佩服之至并麻烦楼主将计算方法的起源源码发给我一份(dongbeirenlaguna@.com),我之前已一直求索这个问题

用VB如何做万年历?节气节气苍穹变 源码

       ç»™ä½ ä¸ªå†œåŽ†çš„VB源码.

       curTime = MaskEdBox1

       '星期名

       WeekName(0) = " * "

       WeekName(1) = "星期日"

       WeekName(2) = "星期一"

       WeekName(3) = "星期二"

       WeekName(4) = "星期三"

       WeekName(5) = "星期四"

       WeekName(6) = "星期五"

       WeekName(7) = "星期六"

       '天干名称

       TianGan(0) = "甲"

       TianGan(1) = "乙"

       TianGan(2) = "丙"

       TianGan(3) = "丁"

       TianGan(4) = "戊"

       TianGan(5) = "å·±"

       TianGan(6) = "庚"

       TianGan(7) = "辛"

       TianGan(8) = "壬"

       TianGan(9) = "癸"

       '地支名称

       DiZhi(0) = "子"

       DiZhi(1) = "丑"

       DiZhi(2) = "寅"

       DiZhi(3) = "卯"

       DiZhi(4) = "è¾°"

       DiZhi(5) = "å·³"

       DiZhi(6) = "午"

       DiZhi(7) = "未"

       DiZhi(8) = "申"

       DiZhi(9) = "酉"

       DiZhi() = "戌"

       DiZhi() = "亥"

       '属相名称

       ShuXiang(0) = "é¼ "

       ShuXiang(1) = "牛"

       ShuXiang(2) = "虎"

       ShuXiang(3) = "兔"

       ShuXiang(4) = "龙"

       ShuXiang(5) = "蛇"

       ShuXiang(6) = "马"

       ShuXiang(7) = "羊"

       ShuXiang(8) = "猴"

       ShuXiang(9) = "鸡"

       ShuXiang() = "狗"

       ShuXiang() = "猪"

       '农历日期名

       DayName(0) = "*"

       DayName(1) = "初一"

       DayName(2) = "初二"

       DayName(3) = "初三"

       DayName(4) = "初四"

       DayName(5) = "初五"

       DayName(6) = "初六"

       DayName(7) = "初七"

       DayName(8) = "初八"

       DayName(9) = "初九"

       DayName() = "初十"

       DayName() = "十一"

       DayName() = "十二"

       DayName() = "十三"

       DayName() = "十四"

       DayName() = "十五"

       DayName() = "十六"

       DayName() = "十七"

       DayName() = "十八"

       DayName() = "十九"

       DayName() = "二十"

       DayName() = "廿一"

       DayName() = "廿二"

       DayName() = "廿三"

       DayName() = "廿四"

       DayName() = "廿五"

       DayName() = "廿六"

       DayName() = "廿七"

       DayName() = "廿八"

       DayName() = "廿九"

       DayName() = "三十"

       '农历月份名

       MonName(0) = "*"

       MonName(1) = "æ­£"

       MonName(2) = "二"

       MonName(3) = "三"

       MonName(4) = "四"

       MonName(5) = "五"

       MonName(6) = "六"

       MonName(7) = "七"

       MonName(8) = "八"

       MonName(9) = "九"

       MonName() = "十"

       MonName() = "十一"

       MonName() = "腊"

       '公历每月前面的天数

       MonthAdd(0) = 0

       MonthAdd(1) =

       MonthAdd(2) =

       MonthAdd(3) =

       MonthAdd(4) =

       MonthAdd(5) =

       MonthAdd(6) =

       MonthAdd(7) =

       MonthAdd(8) =

       MonthAdd(9) =

       MonthAdd() =

       MonthAdd() =

       '农历数据

       NongliData(0) =

       NongliData(1) =

       NongliData(2) =

       NongliData(3) =

       NongliData(4) =

       NongliData(5) =

       NongliData(6) =

       NongliData(7) =

       NongliData(8) =

       NongliData(9) =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       NongliData() =

       '生成当前公历年、月、日 ==> GongliStr

       curYear = Year(curTime)

       curMonth = Month(curTime)

       curDay = Day(curTime)

       GongliStr = curYear & "å¹´"

       If curMonth < Then

       GongliStr = GongliStr & "0" & curMonth & "月"

       Else

       GongliStr = GongliStr & curMonth & "月"

       End If

       If curDay < Then

       GongliStr = GongliStr & "0" & curDay & "日"

       Else

       GongliStr = GongliStr & curDay & "日"

       End If

       '生成当前公历星期 ==> WeekdayStr

       curWeekday = Weekday(curTime)

       WeekdayStr = WeekName(curWeekday)

       '计算到初始时间年2月8日的天数:-2-8(正月初一)

       TheDate = (curYear - ) * + Int((curYear - ) / 4) + curDay + MonthAdd(curMonth - 1) -

       If curYear Mod 4 = 0 And curMonth > 2 Then

       TheDate = TheDate + 1

       End If

       '计算农历天干、地支、月、日

       isEnd = 0

       m = 0

       Do

       If NongliData(m) < Then

       k =

       Else

       k =

       End If

       n = k

       Do

       If n < 0 Then

       Exit Do

       End If

       '获取NongliData(m)的第n个二进制位的值

       bit = NongliData(m)

       For i = 1 To n Step 1

       bit = Int(bit / 2)

       Next

       bit = bit Mod 2

       If TheDate <= + bit Then

       isEnd = 1

       Exit Do

       End If

       TheDate = TheDate - - bit

       n = n - 1

       Loop

       If isEnd = 1 Then

       Exit Do

       End If

       m = m + 1

       Loop

       curYear = + m

       curMonth = k - n + 1

       curDay = TheDate

       If k = Then

       If curMonth = (Int(NongliData(m) / ) + 1) Then

       curMonth = 1 - curMonth

       ElseIf curMonth > Int(NongliData(m) / ) + 1 Then

       curMonth = curMonth - 1

       End If

       End If

       '生成农历天干、地支、属相 ==> NongliStr

       NongliStr = "农历" & TianGan(((curYear - 4) Mod ) Mod ) & DiZhi(((curYear - 4) Mod ) Mod ) & "å¹´"

       NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod ) Mod ) & ")"

       '生成农历月、日 ==> NongliDayStr

       If curMonth < 1 Then

       NongliDayStr = "闰" & MonName(-1 * curMonth)

       Else

       NongliDayStr = MonName(curMonth)

       End If

       NongliDayStr = NongliDayStr & "月"

       NongliDayStr = NongliDayStr & DayName(curDay)

       Label2 = NongliStr & NongliDayStr

fullcalendar显示当月日历方法

       切图网专注于前端开发,包括fullcalendar日历改造,源码最近项目就遇到了,起源nginx源码事件模块项目中日期插件用的节气节气是fullcalendar,需要显示农历、源码阴历、起源节气、节气节气当前是源码第几周、星期几、起源天干地支、节气节气甘草医生app源码生肖年等等,源码实现的起源demo效果如下:

       由于插件本身不支持使用农历、节日展示所以对fullcalendar进行了修改,区块链ico源码当你重新安装是需要手动去修改源码,修改内容如下

       * 1、在fullcalendar.js之前引入lunar.js

       lunar.js是一个计算农历和各种节假日的第三方js,需在fullcalendar前引用。怎么使用框架源码

       * 2、修改fullcalendar.js

       正常生成的日历只是包含一个日期,想要显示农历就需要手动修改源码,目前我使用的版本是3.9.0,改动仅有一处。

       if (isDayNumberVisible) { html += view.buildGotoAnchorHtml(date, , date.format(D) // inner HTML);//此处可以搜索fc-day-number,在下面添加以下代码var cTerm = lunar(date).term;if(cTerm){ html+=div class=fc-day-cnTerm+cTerm+/div;}var fes = lunar(date).festival();if(fesfes.length0){ html += div class=fc-day-cnTerm + $.trim(fes

       .desc)+/div;}if(!cTerm (!fes || fes.length == 0)){ html += div class=fc-day-cnDate+lunar(date).lMonth+月+lunar(date).lDate+/div;}

       结语

       至此就都改完了,剩下就是样式了,随便你怎么调可以自由发挥。

       来源:t = 0;

       var dStyle;

       document.onmousemove = mEvn;

       //显示详细日期资料

       function mOvr(v) {

        var s,festival;

        var sObj=eval('SD'+ v);

        var d=sObj.innerHTML-1;

        //sYear,sMonth,sDay,week,

        //lYear,lMonth,lDay,isLeap,

        //cYear,cMonth,cDay

        if(sObj.innerHTML!='') {

        sObj.style.cursor = 's-resize';

        if(cld[d].solarTerms == '' && cld[d].solarFestival == '' && cld[d].lunarFestival == '')

        festival = '';

        else

        festival = '<TABLE WIDTH=% BORDER=0 CELLPADDING=2 CELLSPACING=0 BGCOLOR="#CCFFCC"><TR><TD>'+

        '<FONT COLOR="#" STYLE="font-size:9pt;">'+cld[d].solarTerms + ' ' + cld[d].solarFestival + ' ' + cld[d].lunarFestival+'</FONT></TD>'+

        '</TR></TABLE>';

        s= '<TABLE WIDTH="" BORDER=0 CELLPADDING="2" CELLSPACING=0 BGCOLOR="#"><TR><TD>' +

        '<TABLE WIDTH=% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN="right"><FONT COLOR="#ffffff" STYLE="font-size:9pt;">'+

        cld[d].sYear+' 年 '+cld[d].sMonth+' 月 '+cld[d].sDay+' 日<br>星期'+cld[d].week+'<br>'+

        '<font color="violet">农历'+(cld[d].isLeap?'闰 ':' ')+cld[d].lMonth+' 月 '+cld[d].lDay+' 日</font><br>'+

        '<font color="yellow">'+cld[d].cYear+'年 '+cld[d].cMonth+'月 '+cld[d].cDay + '日</font>'+

        '</FONT></TD></TR></TABLE>'+ festival +'</TD></TR></TABLE>';

       document.all["detail"].innerHTML = s;

        if (snow == 0) {

        dStyle.left = x+offsetx-(width/2);

        dStyle.top = y+offsety;

        dStyle.visibility = "visible";

        snow = 1;

        }

        }

       }

相关推荐
一周热点