資源描述：
《公歷與農歷的轉換》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。
1、公歷與農歷的轉換OptionExplicitDimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)DimcurTime,curYear,curMonth,curDay,curWeekdayDimGongliStr,WeekdayStr,NongliStr,NongliDayStrDimi,m,n,k,isEnd,bit,TheDatePrivateSubForm_Load()'獲取當前系統(tǒng)時間c
2、urTime=Now()'星期名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)="辛"TianG
3、an(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)="蛇"Shu
4、Xiang(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)=
5、"十一"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)=
6、"廿八"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)=0MonthAdd(1)=31MonthAd
7、d(2)=59MonthAdd(3)=90MonthAdd(4)=120MonthAdd(5)=151MonthAdd(6)=181MonthAdd(7)=212MonthAdd(8)=243MonthAdd(9)=273MonthAdd(10)=304MonthAdd(11)=334'農歷數據NongliData(0)=2635NongliData(1)=333387NongliData(2)=1701NongliData(3)=1748NongliData(4)=267701NongliData(5)=694NongliData(6)
8、=2391NongliData(7)=133423NongliData(8)=1175NongliData(9)=396438NongliData(10)=3402NongliData(11)
