大家都知道，Windows系統中的日歷，并沒有顯示農歷的功能，這對于那些喜歡查農歷的朋友來說就顯得有點兒不太方便了，所以筆者想借助一個第三方農歷控件來制作顯示農歷功能的日歷。

（控件地址：http：//member.netease.com/jackyyin/download/calendar_ocx.zip）。



一、添加控件

在利用農歷控件進行編程之前，我們首先要將它加載到我們的VB當中。現在，打開VB6.0，單擊“工程”下拉菜單下的“部件”子菜單，選擇“控件”選項，接著單擊“瀏覽”，將它添加到列表當中，最后選中它。


圖1

接下來，我們先來了解一下它有哪些屬性，這樣有助于我們后面的使用。該控件的主要屬性如下：

ChineseAnimal：用于顯示農歷中的生肖。
ChineseDate：用于顯示農歷中的日期。
ChineseDateType：用于顯示農歷日期的類型。如果將它賦值為0，將以字符類型返回農歷日期；如果將它賦值為“1”，則以字符類型返回農歷日期。
ChineseGanZhi：用于顯示農歷中的干支。
ChineseSolarTerm：用于顯示農歷中的節氣。
DateNow：用于設置農歷控件的日期。

二、設計界面

在了解了控件之后，就可以先設計日歷的界面了。打開VB6.0，利用我們前面的方法，添加農歷控件和“Microsoft Calendar Contrl8.0“控件。然后分別將它們放置到Form1中，此外還需要兩個Test控件，一個Frame控件和兩個OptionButton控件（圖2）。


圖2

將Form1中的屬性設置如下：

Caption精美日歷

將Text1和Text2中的屬性設置如下：

MultiLineTrue
ScrollBars2

將Frame1中的屬性設置如下：

Caption選擇農歷顯示的類型

將Option1中的屬性設置如下：

Caption字符類型
ValueTrue

將Option2中的屬性設置如下：

Caption數字類型

三、完成代碼

設置完以上屬性，我們就可以編寫代碼了。在Form1中輸入代碼：

Option Explicit '顯示農歷相關信息的過程 Sub dispdated As String Dim Ganzhi As String Dim Animal As String Dim JQ As String Dim sMsgChineseDate As String '判斷參數是否為日期型 If IsDated Then '判斷是否在有效的范圍內 If CDated < CDate″1920-1-1″ Or CDated > CDate″2019-12-31″ Then Text1.Text = ″精美日歷顯示范圍為1920年到2019年間100年的陽歷轉換″ Else '設置需要轉換的陽歷日期 Calendar2.DateNow = CDated '獲取農歷日期 sMsgChineseDate = Calendar2.ChineseDate '獲取農歷干支年份 Ganzhi = Calendar2.ChineseGanZhi '獲取農歷屬相 Animal = Calendar2.ChineseAnimal '獲取農歷節氣 JQ = Calendar2.chineseSolarTerm '在文本框中顯示相關的農歷信息 Text1.Text = ″陽歷的 ″ & CDated & ″ 對應農歷的 ″ & Ganzhi & _ ″（″ & Animal & ″）″ & sMsgChineseDate & ″ ″ & JQ End If Else Text1.Text = ″請輸入有效的日期″ End If End Sub Private Sub Calendar1_Click Call dispdateCalendar1.Value '調用顯示農歷相關信息的過程 End Sub Private Sub Option1_Click If Option1.Value = True Then Calendar2.ChineseDateType = 0 End If End Sub Private Sub Option2_Click If Option2.Value = True Then Calendar2.ChineseDateType = 1 End If End Sub

到此為止，運行這個程序，我們就可以看到一個可以顯示農歷的日歷了。