专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
sp; 公农历转换VB类 clsDate 网上流传很多计算公农历的源代码,很多,但是居然没有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 As Single Dim e [阅读全文] [PDF]
ute;下面是一个关于VB的农历算法´日期数据定义方法如下´前12个字节代表1-12月为大月或是小月,1为大月30天,0为小月29天,´第13位为闰月的情况,1为大月30天,0为小月29天,第14位为闰月的月´份,如果不是闰月为0,否则给出月份,10、11、12分别用A、B、C来表´示,即使用16进制。最后4位为当年家农历新年-即农历1月1日所在公历´的日期,如0131代表1月31日。´GetYLDate函数使用方式如下tYear为要输入的年,tMonth为月,tDay为& [阅读全文] [PDF]
明:本文为他人原作,现在我说知道的是本站用户泰山所作!Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)Dim curTime, curYear, curMonth, curDay, curWeekdayDim GongliStr, WeekdayStr, NongliStr, NongliDayStrDim i, m, n, k, isEnd, bit, TheDatePrivate Sub [阅读全文] [PDF]
1 共3条 分1页