`
king_tt
  • 浏览: 2326086 次
  • 性别: Icon_minigender_1
  • 来自: 深圳
社区版块
存档分类
最新评论

可显示农历的VBS+JS代码：

 
阅读更多

显示农历的VBS代码：

<scriptlanguage=vbscript>
Functionnl()
'获取当前系统时间
curTime=Now()
DimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)
'星期名
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(10)="戌"
DiZhi(11)="亥"
'属相名称
ShuXiang(0)="鼠"
ShuXiang(1)="牛"
ShuXiang(2)="虎"
ShuXiang(3)="兔"
ShuXiang(4)="龙"
ShuXiang(5)="蛇"
ShuXiang(6)="马"
ShuXiang(7)="羊"
ShuXiang(8)="猴"
ShuXiang(9)="鸡"
ShuXiang(10)="狗"
ShuXiang(11)="猪"
'农历日期名
DayName(0)="*"
DayName(1)="初一"
DayName(2)="初二"
DayName(3)="初三"
DayName(4)="初四"
DayName(5)="初五"
DayName(6)="初六"
DayName(7)="初七"
DayName(8)="初八"
DayName(9)="初九"
DayName(10)="初十"
DayName(11)="十一"
DayName(12)="十二"
DayName(13)="十三"
DayName(14)="十四"
DayName(15)="十五"
DayName(16)="十六"
DayName(17)="十七"
DayName(18)="十八"
DayName(19)="十九"
DayName(20)="二十"
DayName(21)="廿一"
DayName(22)="廿二"
DayName(23)="廿三"
DayName(24)="廿四"
DayName(25)="廿五"
DayName(26)="廿六"
DayName(27)="廿七"
DayName(28)="廿八"
DayName(29)="廿九"
DayName(30)="三十"
'农历月份名
MonName(0)="*"
MonName(1)="正"
MonName(2)="二"
MonName(3)="三"
MonName(4)="四"
MonName(5)="五"
MonName(6)="六"
MonName(7)="七"
MonName(8)="八"
MonName(9)="九"
MonName(10)="十"
MonName(11)="十一"
MonName(12)="腊"
'公历每月前面的天数
MonthAdd(0)=0
MonthAdd(1)=31
MonthAdd(2)=59
MonthAdd(3)=90
MonthAdd(4)=120
MonthAdd(5)=151
MonthAdd(6)=181
MonthAdd(7)=212
MonthAdd(8)=243
MonthAdd(9)=273
MonthAdd(10)=304
MonthAdd(11)=334
'农历数据
NongliData(0)=2635
NongliData(1)=333387
NongliData(2)=1701
NongliData(3)=1748
NongliData(4)=267701
NongliData(5)=694
NongliData(6)=2391
NongliData(7)=133423
NongliData(8)=1175
NongliData(9)=396438
NongliData(10)=3402
NongliData(11)=3749
NongliData(12)=331177
NongliData(13)=1453
NongliData(14)=694
NongliData(15)=201326
NongliData(16)=2350
NongliData(17)=465197
NongliData(18)=3221
NongliData(19)=3402
NongliData(20)=400202
NongliData(21)=2901
NongliData(22)=1386
NongliData(23)=267611
NongliData(24)=605
NongliData(25)=2349
NongliData(26)=137515
NongliData(27)=2709
NongliData(28)=464533
NongliData(29)=1738
NongliData(30)=2901
NongliData(31)=330421
NongliData(32)=1242
NongliData(33)=2651
NongliData(34)=199255
NongliData(35)=1323
NongliData(36)=529706
NongliData(37)=3733
NongliData(38)=1706
NongliData(39)=398762
NongliData(40)=2741
NongliData(41)=1206
NongliData(42)=267438
NongliData(43)=2647
NongliData(44)=1318
NongliData(45)=204070
NongliData(46)=3477
NongliData(47)=461653
NongliData(48)=1386
NongliData(49)=2413
NongliData(50)=330077
NongliData(51)=1197
NongliData(52)=2637
NongliData(53)=268877
NongliData(54)=3365
NongliData(55)=531109
NongliData(56)=2900
NongliData(57)=2922
NongliData(58)=398042
NongliData(59)=2395
NongliData(60)=1179
NongliData(61)=267415
NongliData(62)=2635
NongliData(63)=661067
NongliData(64)=1701
NongliData(65)=1748
NongliData(66)=398772
NongliData(67)=2742
NongliData(68)=2391
NongliData(69)=330031
NongliData(70)=1175
NongliData(71)=1611
NongliData(72)=200010
NongliData(73)=3749
NongliData(74)=527717
NongliData(75)=1452
NongliData(76)=2742
NongliData(77)=332397
NongliData(78)=2350
NongliData(79)=3222
NongliData(80)=268949
NongliData(81)=3402
NongliData(82)=3493
NongliData(83)=133973
NongliData(84)=1386
NongliData(85)=464219
NongliData(86)=605
NongliData(87)=2349
NongliData(88)=334123
NongliData(89)=2709
NongliData(90)=2890
NongliData(91)=267946
NongliData(92)=2773
NongliData(93)=592565
NongliData(94)=1210
NongliData(95)=2651
NongliData(96)=395863
NongliData(97)=1323
NongliData(98)=2707
NongliData(99)=265877
'生成当前公历年、月、日==>GongliStr
curYear=Year(curTime)
curMonth=Month(curTime)
curDay=Day(curTime)
GongliStr=curYear&"年"
If(curMonth<10)Then
GongliStr=GongliStr&"0"&curMonth&"月"
Else
GongliStr=GongliStr&curMonth&"月"
EndIf
If(curDay<10)Then
GongliStr=GongliStr&"0"&curDay&"日"
Else
GongliStr=GongliStr&curDay&"日"
EndIf
'生成当前公历星期==>WeekdayStr
curWeekday=Weekday(curTime)
WeekdayStr=WeekName(curWeekday)
'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)
TheDate=(curYear-1921)*365+Int((curYear-1921)/4)+curDay+MonthAdd(curMonth-1)-38
If((curYearMod4)=0AndcurMonth>2)Then
TheDate=TheDate+1
EndIf
'计算农历天干、地支、月、日
isEnd=0
m=0
Do
If(NongliData(m)<4095)Then
k=11
Else
k=12
EndIf
n=k
Do
If(n<0)Then
ExitDo
EndIf
'获取NongliData(m)的第n个二进制位的值
bit=NongliData(m)
Fori=1TonStep1
bit=Int(bit/2)
Next
bit=bitMod2
If(TheDate<=29+bit)Then
isEnd=1
ExitDo
EndIf
TheDate=TheDate-29-bit
n=n-1
Loop
If(isEnd=1)Then
ExitDo
EndIf
m=m+1
Loop
curYear=1921+m
curMonth=k-n+1
curDay=TheDate
If(k=12)Then
If(curMonth=(Int(NongliData(m)/65536)+1))Then
curMonth=1-curMonth
ElseIf(curMonth>(Int(NongliData(m)/65536)+1))Then
curMonth=curMonth-1
EndIf
EndIf
'生成农历天干、地支、属相==>NongliStr
NongliStr="农历"&TianGan(((curYear-4)Mod60)Mod10)&DiZhi(((curYear-4)Mod60)Mod12)&"年"
NongliStr=NongliStr&"("&ShuXiang(((curYear-4)Mod60)Mod12)&")"
'生成农历月、日==>NongliDayStr
If(curMonth<1)Then
NongliDayStr="闰"&MonName(-1*curMonth)
Else
NongliDayStr=MonName(curMonth)
EndIf
NongliDayStr=NongliDayStr&"月"
NongliDayStr=NongliDayStr&DayName(curDay)
nl=NongliStr&NongliDayStr
EndFunction
msgboxnl
</script>

阴历的JS代码：

<scriptlanguage="JavaScript">
<!--
varbsYear;
varbsDate;
varbsWeek;
vararrLen=8;//数组长度
varsValue=0;//当年的秒数
vardayiy=0;//当年第几天
varmiy=0;//月份的下标
variyear=0;//年份标记
vardayim=0;//当月第几天
varspd=86400;//每天的秒数

varyear1999="30;29;29;30;29;29;30;29;30;30;30;29";//354
varyear2000="30;30;29;29;30;29;29;30;29;30;30;29";//354
varyear2001="30;30;29;30;29;30;29;29;30;29;30;29;30";//384
varyear2002="30;30;29;30;29;30;29;29;30;29;30;29";//354
varyear2003="30;30;29;30;30;29;30;29;29;30;29;30";//355
varyear2004="29;30;29;30;30;29;30;29;30;29;30;29;30";//384
varyear2005="29;30;29;30;29;30;30;29;30;29;30;29";//354
varyear2006="30;29;30;29;30;30;29;29;30;30;29;29;30";

varmonth1999="正月;二月;三月;四月;五月;六月;七月;八月;九月;十月;十一月;十二月"
varmonth2001="正月;二月;三月;四月;闰四月;五月;六月;七月;八月;九月;十月;十一月;十二月"
varmonth2004="正月;二月;闰二月;三月;四月;五月;六月;七月;八月;九月;十月;十一月;十二月"
varmonth2006="正月;二月;三月;四月;五月;六月;七月;闰七月;八月;九月;十月;十一月;十二月"
varDn="初一;初二;初三;初四;初五;初六;初七;初八;初九;初十;十一;十二;十三;十四;十五;十六;十七;十八;十九;二十;廿一;廿二;廿三;廿四;廿五;廿六;廿七;廿八;廿九;三十";

varYs=newArray(arrLen);
Ys[0]=919094400;Ys[1]=949680000;Ys[2]=980265600;
Ys[3]=1013443200;Ys[4]=1044028800;Ys[5]=1074700800;
Ys[6]=1107878400;Ys[7]=1138464000;

varYn=newArray(arrLen);//农历年的名称
Yn[0]="己卯年";Yn[1]="庚辰年";Yn[2]="辛巳年";
Yn[3]="壬午年";Yn[4]="癸未年";Yn[5]="甲申年";
Yn[6]="乙酉年";Yn[7]="丙戌年";
varD=newDate();
varyy=D.getYear();
varmm=D.getMonth()+1;
vardd=D.getDate();
varww=D.getDay();
if(ww==0)ww="<fontcolor=RED>星期日";
if(ww==1)ww="星期一";
if(ww==2)ww="星期二";
if(ww==3)ww="星期三";
if(ww==4)ww="星期四";
if(ww==5)ww="星期五";
if(ww==6)ww="<fontcolor=RED>星期六";
ww=ww;
varss=parseInt(D.getTime()/1000);
if(yy<100)yy="19"+yy;

for(I=0;I<arrLen;I++)
if(ss>=Ys[I])...{
iyear=I;
sValue=ss-Ys[I];//当年的秒数
}
dayiy=parseInt(sValue/spd)+1;//当年的天数

vardpm=year1999;
if(iyear==1)dpm=year2000;
if(iyear==2)dpm=year2001;
if(iyear==3)dpm=year2002;
if(iyear==4)dpm=year2003;
if(iyear==5)dpm=year2004;
if(iyear==6)dpm=year2005;
if(iyear==7)dpm=year2006;
dpm=dpm.split(";");

varMn=month1999;
if(iyear==2)Mn=month2001;
if(iyear==5)Mn=month2004;
if(iyear==7)Mn=month2006;
Mn=Mn.split(";");

varDn="初一;初二;初三;初四;初五;初六;初七;初八;初九;初十;十一;十二;十三;十四;十五;十六;十七;十八;十九;二十;廿一;廿二;廿三;廿四;廿五;廿六;廿七;廿八;廿九;三十";
Dn=Dn.split(";");

dayim=dayiy;

vartotal=newArray(13);
total[0]=parseInt(dpm[0]);
for(I=1;I<dpm.length-1;I++)total[I]=parseInt(dpm[I])+total[I-1];
for(I=dpm.length-1;I>0;I--)
if(dayim>total[I-1])...{
dayim=dayim-total[I-1];
miy=I;
}
bsWeek=ww;
bsDate=yy+"年"+mm+"月";
bsDate2=dd;
bsYear="农历"+Yn[iyear];
bsYear2=Mn[miy]+Dn[dayim-1];
if(ss>=Ys[7]||ss<Ys[0])bsYear=Yn[7];
functionCAL()...{
document.write("<tableborder='1'cellspacing='3'width='90'bordercolor='#000000'bgcolor='#FFFFFF'height='110'cellpadding='2'");
document.write("<tr><tdalign='center'><b><fontcolor=#008040>"+bsDate+"</font><br><fontface='Arial'size='6'color=#FF8040>"+bsDate2+"</font><br><fontcolor=#008040><spanstyle='FONT-SIZE:10.5pt'>");
document.write(bsWeek+"</span><br>"+"<br></b><fontcolor=#9B4E00>");
document.write(bsYear+"<br>"+bsYear2+"</td></tr></table>");
}
//-->
</script>
<scriptlanguage="javascript">CAL();</script>
分享到：
| QQ2007戏曲形象造型[转]
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    javascript获取阴历农历

    document.body.innerHTML = "调用代码示例Demo&lt;/strong&gt;&lt;br /&gt;" +"阳历："+lunar.cYear + "年" +lunar.cMonth + "月" + lunar.cDay +"日（"+lunar.astro+"） " +"农历："+lunar.lYear + "年"+lunar.IMonthCn+...

    显示农历的日期时间代码

    本文将详细讲解如何实现一个显示农历日期时间的代码，以及如何根据需求调整显示的详细程度。 首先，我们需要理解农历和公历的区别。公历（阳历）是我们日常生活中普遍使用的国际标准历法，而农历（阴历）则根据月亮...

    js显示时间 农历 节日节气 - 自动刷新不带格式

    在JavaScript（JS）编程中，处理时间、农历和节日节气是常见的需求，尤其是在开发网页应用时。本文将深入探讨如何使用JavaScript实现这些功能，并基于提供的"js显示时间 农历 节日 - 自动刷新不带格式.html"文件进行...

    带农历的js日期显示（包含农历闰月）

    "带农历的js日期显示（包含农历闰月）"是一个专门用于处理农历日期的JavaScript函数库，它提供了丰富的功能，如显示天干、地支、属相以及时辰等，还能够准确判断农历的闰月情况。 首先，让我们了解一下农历的基础...

    很全的显示阴历（农历）日期的js代码

    【标题】: "很全的显示阴历（农历）日期的js代码" 【描述】: "这段代码可以方便地在JavaScript环境中实现农历日期的显示功能。" 【标签】: "阴历", "农历", "日期", "js代码" 在JavaScript中处理农历日期通常涉及...

    全新STC12C5A60S2单片机+LCD19264大屏万年历农历生肖节气节日显示+闹钟+温湿度+台灯.rar

    全新STC12C5A60S2单片机+LCD19264大屏万年历农历生肖节气节日显示+闹钟+温湿度+台灯 全新STC12C5A60S2单片机+LCD19264大屏万年历农历生肖节气节日显示+闹钟+温湿度+台灯 全新STC12C5A60S2单片机+LCD19264大屏万年历...

    元旦倒计时代码+（HTML+css+JavaScript + canvas）写的一个 2023 年跨年倒计时代码

    前端语言（HTML+css+JavaScript + canvas）写的一个 2023 年跨年倒计时代码 倒计时日期格式：月-日-时-分-秒 也可以自定义日期格式 自定义添加祝福语等 代码时按照元旦作为计算日期 也可以按照农历新年作为日期格式

    原生js万年历农历日期代码.zip

    这个代码库利用纯JavaScript语言，不依赖任何外部库，如jQuery或其他类似的框架，实现了显示公历和农历日期的功能。下面将详细介绍这个万年历代码的核心知识点： 1. **日期对象处理**：JavaScript内置了Date对象，...

    C#实现带阴历显示的日期代码

    本文实例讲述了C#实现带阴历显示的日期代码，分享给大家供大家参考。具体方法如下： 这是一个用于酒店预定功能的带日期控件，类似去哪网酒店预定，由于需要设置节假日不同时期内的价格，因此需要自己写个时间控件。...

    小程序日历组件，可显示农历！休假补班！自定义提醒

    农历与公历之间存在一定的转换规则，可以通过农历转换库（如JavaScript的`lunar-js`或`china-calendar`）进行计算。 2. 节气处理：农历不仅有月份和日期，还有节气，如立春、清明等，这些也需要在日历中显示。 三...

    农历阳历日期节日JS代码.zip

    本压缩包"农历阳历日期节日JS代码.zip"提供了这样的功能，它包含了一个JavaScript代码文件，能够帮助开发者在网页上显示农历日期以及对应的节日信息。 首先，JavaScript是一种广泛用于网页动态效果和交互的编程语言...

    html+js+css带阴历的日历控件

    在这个特定的例子中，该控件不仅包含了公历日期，还特别添加了阴历（农历）的支持，使得功能更加全面，能够满足中国地区用户的特殊需求。下面将详细介绍这个日历控件的实现原理、关键技术和可能遇到的问题。 一、...

    带节日节气农历的js万年历日期控件

    本文将详细讲解一个重要的JavaScript（js）控件：带节日节气农历的万年历日期控件。这个控件集成了公历、农历、节日和节气，提供了一种全面的日历显示和选择功能。 首先，我们来理解“农历”。农历，又称阴历，是...

    日期显示JS代码--年月日-时分秒--农历全部显示.rar_AEWK_JS 日期显示_instrumentout_农历日期

    在这个压缩包文件"日期显示JS代码--年月日-时分秒--农历全部显示.rar_AEWK_JS 日期显示_instrumentout_农历日期"中，包含的是一个能够显示日期和时间，包括农历日期的JavaScript代码实现。这个功能对于中国的互联网...

    原生js万年历农历日期代码

    以上是关于“原生js万年历农历日期代码”的核心知识点，实际开发过程中，可能还需要结合项目需求和用户体验进行更多的定制和优化。通过理解并掌握这些概念，开发者就能创建出功能完备且用户体验良好的万年历应用。

    js实现在网页上展示农历日历

    在网页上展示农历日历是许多中国用户需求的功能，JavaScript（简称js）作为一种广泛用于前端开发的脚本语言，能够方便地实现这一功能。本文将详细介绍如何使用JavaScript来实现在网页上展示农历日历，以及如何参考...

    js万年历带农历节日代码.zip

    【标题】"js万年历带农历节日代码.zip" 是一个包含JavaScript实现的万年历功能的代码资源，尤其值得关注的是它集成了农历节日显示。这样的功能在网页设计或者开发日历应用时非常有用，因为它提供了对传统农历节日的...

    带农历的js日期源码

    在IT行业中，JavaScript（简称js）是一种广泛使用的前端编程语言，尤其在网页开发中不可或缺。本文将深入探讨“带农历的js日期源码”这一主题，帮助开发者理解如何在JavaScript中实现农历日期功能。 首先，...

    asp日历代码 显示农历

    ### ASP日历代码显示农历知识点解析 #### 一、ASP技术背景 - **ASP (Active Server Pages)** 是一种服务器端脚本环境，在其中可以结合HTML页面、VBScript（或JScript）以及ActiveX组件共同创建动态、交互式网页...

Magicbox
Global site tag (gtag.js) - Google Analytics