皮皮网
皮皮网

【2017卡盟完整源码】【1688网站源码】【界面设计器源码】生肖源码_十二生肖源码

来源:ls源码 发表时间:2024-12-28 20:26:33

1.fullcalendar显示当月日历方法
2.Delphi实现的生肖生肖阴阳历转换源码具体是如何操作的?
3.用VB如何做万年历?

生肖源码_十二生肖源码

fullcalendar显示当月日历方法

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

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

       * 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;}

       结语

       至此就都改完了,剩下就是样式了,随便你怎么调可以自由发挥。含羞草源码 支付

       来源:/fullcalendar-gaizao-lunar/

Delphi实现的阴阳历转换源码具体是如何操作的?

       探索中国传统历法的魅力:阴阳历转换器详解</

       在数字化的世界里,了解并掌握阴阳历的转换无疑增加了生活中的文化趣味。今天,我们为您揭秘如何通过编程手段,特别是使用Delphi语言,实现生肖与阴阳历之间的追觅科技 融资 源码转换。

       Delphi源码揭秘</

       在Delphi的源码单元——Unit1中,程序员精心编写的代码犹如一把钥匙,打开了阴阳历转换的神秘之门。对象Form1的设计巧妙地将左上角的坐标设定为Left=,Top=,其简洁的界面背后隐藏着强大的功能。

       在线阴阳历转换工具,不仅提供直观的操作界面,更深层次地展示了历法体系的灵活性。只需轻轻一按,无论是查询生肖对应的阴历日期,还是反过来找出特定阳历日期的生肖属相,都变得轻而易举。

       实用价值与学习资源</

       这篇文章分享的不仅仅是代码片段,更是对历法转换背后原理的深入理解和实践。无论您是编程爱好者,还是对传统中国历法好奇的探索者,这里都有您需要的工具和知识。

       通过这个在线阴阳历转换器,我们期待您能够更好地理解和欣赏中国历法的丰富内涵,让这古老的智慧在现代社会中焕发新的活力。希望这份分享能为您的生活增添一份独特的文化韵味。

用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

相关栏目:知识