酷月历(公、农历)

农历

将以下文件保存为 calender.asp,调用时 用<include file="calender.asp">

<%
'原创:Jaron,转载请说明出处
Dim m_minyear
Dim m_maxyear
Dim NongLiDayName
Dim NongLiMonthName
m_minyear= 1950
m_maxyear= 2050
Dim CalendarData(99,2)
NongLiDayName= Array("初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","廿","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十")
NongLiMonthName = Array("正","二","三","四","五","六","七","八","九","十","十一","十二")
CalendarData(0,0)=&H2f
CalendarData(0,1)=&H6c
CalendarData(0,2)=&Ha0
CalendarData(1,0)=&H24
CalendarData(1,1)=&Hb5
CalendarData(1,2)=&H50
CalendarData(2,0)=&Hda
CalendarData(2,1)=&H53
CalendarData(2,2)=&H55
CalendarData(3,0)=&H2c
CalendarData(3,1)=&H4d
CalendarData(3,2)=&Ha0
CalendarData(4,0)=&H21
CalendarData(4,1)=&Ha5
CalendarData(4,2)=&Hb0
CalendarData(5,0)=&H57
CalendarData(5,1)=&H45
CalendarData(5,2)=&H73
CalendarData(6,0)=&Haa
CalendarData(6,1)=&H52
CalendarData(6,2)=&Hb0
CalendarData(7,0)=&H1e
CalendarData(7,1)=&Ha9
CalendarData(7,2)=&Ha8
CalendarData(8,0)=&H30
CalendarData(8,1)=&He9
CalendarData(8,2)=&H50
CalendarData(9,0)=&H26
CalendarData(9,1)=&H6a
CalendarData(9,2)=&Ha0
CalendarData(10,0)=&H9b
CalendarData(10,1)=&Hae
CalendarData(10,2)=&Ha6
CalendarData(11,0)=&H2d
CalendarData(11,1)=&Hab
CalendarData(11,2)=&H50
CalendarData(12,0)=&H23
CalendarData(12,1)=&H4b
CalendarData(12,2)=&H60
CalendarData(13,0)=&H18
CalendarData(13,1)=&Haa
CalendarData(13,2)=&He4
CalendarData(14,0)=&Hab
CalendarData(14,1)=&Ha5
CalendarData(14,2)=&H70
CalendarData(15,0)=&H20
CalendarData(15,1)=&H52
CalendarData(15,2)=&H60
CalendarData(16,0)=&H14
CalendarData(16,1)=&Hf2
CalendarData(16,2)=&H63
CalendarData(17,0)=&H27
CalendarData(17,1)=&Hd9
CalendarData(17,2)=&H50
CalendarData(18,0)=&H9d
CalendarData(18,1)=&H5b
CalendarData(18,2)=&H57
CalendarData(19,0)=&H2f
CalendarData(19,1)=&H56
CalendarData(19,2)=&Ha0
CalendarData(20,0)=&H24
CalendarData(20,1)=&H96
CalendarData(20,2)=&Hd0
CalendarData(21,0)=&H1a
CalendarData(21,1)=&H4d
CalendarData(21,2)=&Hd5
CalendarData(22,0)=&Had
CalendarData(22,1)=&H4a
CalendarData(22,2)=&Hd0
CalendarData(23,0)=&H21
CalendarData(23,1)=&Ha4
CalendarData(23,2)=&Hd0
CalendarData(24,0)=&H16
CalendarData(24,1)=&Hd4
CalendarData(24,2)=&Hd4
CalendarData(25,0)=&H29
CalendarData(25,1)=&Hd2
CalendarData(25,2)=&H50
CalendarData(26,0)=&H9e
CalendarData(26,1)=&Hd5
CalendarData(26,2)=&H58
CalendarData(27,0)=&H30
CalendarData(27,1)=&Hb5
CalendarData(27,2)=&H40
CalendarData(28,0)=&H25
CalendarData(28,1)=&Hb6
CalendarData(28,2)=&Ha0
CalendarData(29,0)=&H5b
CalendarData(29,1)=&H95
CalendarData(29,2)=&Ha6
CalendarData(30,0)=&Hae
CalendarData(30,1)=&H95
CalendarData(30,2)=&Hb0
CalendarData(31,0)=&H23
CalendarData(31,1)=&H49
CalendarData(31,2)=&Hb0
CalendarData(32,0)=&H18
CalendarData(32,1)=&Ha9
CalendarData(32,2)=&H74
CalendarData(33,0)=&H2b
CalendarData(33,1)=&Ha4
CalendarData(33,2)=&Hb0
CalendarData(34,0)=&Ha0
CalendarData(34,1)=&Hb2
CalendarData(34,2)=&H7a
CalendarData(35,0)=&H32
CalendarData(35,1)=&H6a
CalendarData(35,2)=&H50
CalendarData(36,0)=&H27
CalendarData(36,1)=&H6d
CalendarData(36,2)=&H40
CalendarData(37,0)=&H1c
CalendarData(37,1)=&Haf
CalendarData(37,2)=&H46
CalendarData(38,0)=&Haf
Calenda

时间: 2024-12-23 19:12:03

酷月历(公、农历)的相关文章

公农历转换VB类

农历|转换 网上流传很多计算公农历的源代码,很多,但是居然没有VB的,晕, 所以..... 用法: 以l开始的方法均为阴历,以s开始的方法均为公历 基本的两个初使函数: lInitDate:用农历年月日初使化日期对象 sInitDate: 用公历年月日初使化日期对象 其它的方法看下面的一小段代码吧 示例代码 Private Sub Command1_Click() Dim t As clsDate Dim y As Long Dim m As Long Dim d As Long Dim st

Excel中查询生日的公农历重合日

可能好多人因为传统习惯,会过农历生日,于是带来一个好奇的问题,生日到哪一年公农历会重合?一定要查吗?好吧,算你狠,虽然有19年公农历会重合一说,实际上间隔年数也的确接近19倍数,就用"公农历趣味查询.xls"来解惑吧,打开Excel文件之后. 只要在第一处输入农历的年月日以及是否闰月(只有浅绿色的格子可输),会自动算出指定年份到2050年间对应公历,农历是闰月的,次年是按不闰月计算生日的,最后在"重复"列上进行筛选即可,比如农历66年5月17出生的兄弟就比较郁闷了,

Javascript:公农历节日周年计算

/* Geovin Du 塗聚文 20130608修改 toString():把数组转换成一个字符串 toLocaleString():把数组转换成一个字符串 join():把数组转换成一个用符号连接的字符串 shift():将数组头部的一个元素移出 unshift():在数组的头部插入一个元素 pop():从数组尾部删除一个元素 push():把一个元素添加到数组的尾部 concat():给数组添加元素 slice():返回数组的部分 reverse():将数组反向排序 sort():对数组进

人生日历生活好帮手 便捷查询公农历

农历是中国传统的历法,设置了24节气,帮助人们了解气候的变化.在日常的生活中,很多时候我们会需要对农历日期进行查询,使用人生日历就能一目了然清晰的查看.1.0.3.20版的人生日历在原有的功能上,又加入了哪些新的功能和设计呢?快来看看吧! 打开人生日历,我们可以看到人生日历的界面上都是双日历模式,日历格的上方显示的是公历的日期,下方显示的是农历的日期.新版本发布后,在界面的右上角,用户还可以查看到农历年份,属相. 图1 黄历是在中国农历基础上产生出来的,带有表示当天吉凶的一种历法.在人生日历界面

新版公农历转换类(C#)

using System; namespace ExpertLib.ChinaSpecial {     #region ChineseCalendarException     /// <summary>     /// 中国日历异常处理     /// </summary>     public class ChineseCalendarException : System.Exception     {         public ChineseCalendarExcept

php 阴历-农历-转换类代码_php实例

复制代码 代码如下: <?php/*** 公农历转换(1912 - 2012) * * Usage:*   // 公历1983-10-5转农历*   $lunar = new Lunar();*   $date = $lunar->getLar('1983-10-5',0);*   echo date("Y-m-d", $date);*   // 农历1983-8-29转公历*   $date = $lunar->getLar('1983-8-29',1);*   e

PHP实现的汉字拼音转换和公历农历转换类及使用示例_php实例

本文整理了PHP汉字拼音转换和公历农历转换两个功能类文件,非常实用.比如我们查找通讯录可以通过联系人姓名的拼音首字母来查询,可以通过首字母来导航大数据量,可以通过转换拼音来做网站优化等.公农历转化一般用在日历日程安排的项目中,方便农历的节日提醒等等. 1.PHP汉字转拼音 Pinyin.class.php类文件可以将大多数汉字转换成汉语拼音,当然也有个别生僻字不能转换,如果你想转换所有的汉字拼音的话,可能需要再配合一个汉字字库来实现,使用该类文件就基本能满足你的项目需求了.用法: 复制代码 代码

优酷家公司如何盈利?

一个整天微笑的"老男孩",却在资本市场拥有一双翻云覆雨手. 古永锵,优酷网(NYSE:YOKU)创始人,人们习惯叫他的英文名字Victor Koo,时间长了就演绎成"V酷".2012年4月,中国第一.二大视频网站优酷.土豆宣布合并,他被视作新一代互联网大佬. 外人眼中,古永锵不同于百度的李彦宏.腾讯的马化腾等产品技术派,他和新浪曹国伟是一类,属于财务派.古永锵投资出身,创业前曾任搜狐CFO,深谙资本市场.同样,优酷可以被浓缩为一个资本推动下的成长故事-六轮融资(这在

2016抢票浏览器哪个好

  2016抢票浏览器哪个好? 抢票软件一:qq浏览器抢票专版 qq浏览器抢票专版帮你买票回家,抢票软件哪个好,qq浏览器抢票专版抢票最在行!qq浏览器抢票版集超小安装包和超强稳定性于一身,访问网页速度也得到进一步优化. 正式外发版将智能支持IE内核,根据系统情况后台拉取IE8内核,有效提升网页兼容性,减少系统漏洞.其目的是为用户打造一款快速.稳定.安全.网络化的优质浏览器. 抢票软件二:uc浏览器抢票版 uc浏览器抢票专版是uc推出的抢火车票专版浏览器,uc浏览器抢票专版集成uc12306抢票