mysql 获取农历年份_ASP获取农历日期程序代码
dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9),DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
dim curTime, curYear, curMonth, curDay, curWeekday
dim GongliStr, WeekdayStr, NongliStr, NongliDayStr
dim i, m, n, k, isEnd, bit, TheDate
'星期名
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
'获取当前系统时间
curTime = Now()
'生成当前公历年、月、日 ==> GongliStr
curYear = Year(curTime)
curMonth = Month(curTime)
curDay = Day(curTime)
GongliStr = curYear&\"年\"
If (curMonth
GongliStr =GongliStr&\"0\"&curMonth&\"月\"
Else
GongliStr =GongliStr&curMonth&\"月\"
End If
If (curDay
GongliStr =GongliStr&\"0\"&curDay&\"日\"
Else
GongliStr =GongliStr&curDay&\"日\"
End If
'生成当前公历星期 ==> 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 ((curYear Mod 4) = 0 AND curMonth > 2) Then
TheDate = TheDate + 1
End If
'计算农历天干、地支、月、日
isEnd = 0
m = 0
Do
If (NongliData(m)
k = 11
Else
k = 12
End if
n = k
Do
If (n
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 <= 29 + bit) Then
isEnd = 1
Exit Do
End If
TheDate = TheDate - 29 - bit
n = n - 1
Loop
If (isEnd = 1) Then
Exit Do
End If
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
End if
End If
'生成农历天干、地支、属相 ==> NongliStr
NongliStr = \"农历\"&TianGan(((curYear - 4) Mod 60) Mod 10)&DiZhi(((curYear - 4) Mod 60) Mod 12)&\"年\"
NongliStr =NongliStr&\"(\"&ShuXiang(((curYear -4) Mod 60) Mod 12)&\")\"
'生成农历月、日 ==> NongliDayStr
If (curMonth
NongliDayStr = \"闰\"&MonName(-1 * curMonth)
Else
NongliDayStr = MonName(curMonth)
End If
NongliDayStr = NongliDayStr&\"月\"
NongliDayStr = NongliDayStr&DayName(curDay)
%>
mysql 获取农历年份_ASP获取农历日期程序代码相关推荐
- java获取当前年份、月份和日期字符串等
Java获取当前年份.月份和日期是通过Calendar类的实例对象来获取的. 首先创建一个Calendar类的实例对象,Calendar类属于java.util包. Calendar calendar ...
- java获取当前年月日历_java获取当前年份、月份和日期字符串等
Java获取当前年份.月份和日期是通过Calendar类的实例对象来获取的. 首先创建一个Calendar类的实例对象,Calendar类属于java.util包. Calendar calendar ...
- mysql 获取农历年份_iOS 获取公历、农历日期的年月日
iOS 获取公历.农历日期的年月日 介绍三种方法获取 Date (NSDate) 的年月日. 用 date 表示当前日期.测试日期为公历 2017 年 2 月 5 日,农历丁酉年,鸡年,正月初九. l ...
- mysql 获取农历年份_php获取农历(阴历)、节日、节气的类的方法以及用法
这篇文章主要介绍了php实现获取农历(阴历).节日.节气的类与用法,结合实例形式分析了php日期工具类Lunar的具体定义与获取农历日期.节气等相关操作技巧,需要的朋友可以参考下 具体如下: /* * ...
- java获取当前年份(java获取当前年份后两位)
html标题中怎么动态显示当前年份例如标题:XXX2012年X? 请看标题,qq:912305899 JAVA什么时候会获取数据? 根据设计或应用程序复杂度的不同,这些Bean可以是自包含的并具有持续 ...
- Java获取当前年份、月份和日期
使用Calendar类的实例对象,取自java.util包 Calendar calendar = Calendar.getInstance();// 获取当前年 int year = calenda ...
- php 阴历年份,农历年份对照表
农历年份对照表,介绍<农历年份对照表>,价格和牌子,六十甲子与年份对照表,农历纪年对照表,中国农历年号表,中国农历年份表. 第1条:农历年份对照表,农历年份对应属相_百度文库 答:发布时间 ...
- php农历生日计算,计算农历的函数
函数|农历 代码:-------------------------------------------------------------------------------- [本篇全文] [回复 ...
- LocalDateTime工具类:根据当前、周、月、季度、半年、年等维度获取时间hutool工具包获取农历日期,生肖,传统节日
1. 简介 Java8提供了全新的日期处理包(java.time.*),根据Java8日期新特性封装日期时间工具类LocalDateTimeUtils. 2. 工具类方法目录 说明 方法名称 当前时间 ...
- MySQL获取当前年份月份日期
MySQL获取当前年份月份日期 – 获取年份 YEAR(CURDATE()): 2019 – 获取月份 MONTH(CURDATE()): 6 – 当前时间 DATE(CURDATE()): 2019 ...
最新文章
- 修改mysql数据库编码
- 海量分布式爬取抖音视频,几行代码搞定
- C++容器(三):pair类型
- dmc matlab程序,matlab编的DMC程序.doc
- Java基础--面向对象以及相关知识
- java怎么写事件listener_java 事件监听器ActionListener
- 什么是CAS及其相关的配置
- logistic回归 简介_从零实现机器学习算法(四)Logistic回归
- 湖畔大学官微改名为“湖畔创研中心”
- JAVA GUI THREAD---***
- js+css淡入效果
- mysql 工具 国产_推荐一款国产化比较好用的数据可视化工具(BI工具)
- linux es数据库 head,Elasticsearch可视化插件ES-HEAD安装启动步骤
- ASCII 码表(完整版)
- vue使用富文本编辑器vue-quill-editor
- 中文分词软件包的使用
- allow control allow origin_热分析/红外光谱联用的数据分析方法 第7部分 在Origin软件中三维红外光谱图的作图方法...
- ncut算法matlab程序,Ncut算法的MATLAB代码下载及实现在MATLAB上正常运行
- 事件抽取中的“门面技术”:事件名称生成浅谈
- 复仇者联盟4影评数据分析
热门文章
- c语言:输出一个菱形图案
- Sql Server 使用T-Sql 面向工业领域中商品的进货、销售、库存和记账等业务开发一个数据库应用系统:某客户、供应商以及他们之间往来的商品如汽车、电器等,需有效地记录这些商品进货、库存等账目,
- 后台界面也可以很酷!31个高大上的后台管理系统模版
- 拼多多:“优惠券Bug属网络诈骗”;抖音多闪上架 App Store;任正非不知谁是接班人 | 极客头条...
- 5G+北斗融合定位技术介绍
- 网页磁贴模板_【Win 10应用开发】Adaptive磁贴模板的XML文档结构
- 威胁猎人 | 2018年上半年短视频行业黑灰产研究报告
- tukey 窗口_C语言完成窗口算法
- Facebook母公司:混合现实走向市场还需要数年时间
- 打印纸张尺寸的简单说明