vb.net 教程 20-1 农历 1

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
曾有段时间想开发个备忘录类的软件，也就是简单的将熟人的生日提醒一下，可是有些朋友的生日是农历的。

这下就不好办了，农历的算法还是比较复杂。直到前不久发现.net其实已经提供了中国农历年的类：ChineseLunisolarCalendar，于是复杂问题简单化了。

农历类ChineseLunisolarCalendar 在 System.Globalization  命名空间下，使用是必须先Imports

Imports System.Globalization

由于是简单例子，所以设计窗体也很简单，就一个按钮，一个文本框。这里就不截图了。

主要代码：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim chineseCalendar As New ChineseLunisolarCalendar
        Dim nowdate As DateTime = New DateTime(2017, 7, 12)
        Dim chineseY As Integer = chineseCalendar.GetYear(nowdate)
        Dim chineseM As Integer = chineseCalendar.GetMonth(nowdate)
        Dim chineseD As Integer = chineseCalendar.GetDayOfMonth(nowdate)
 
        Dim leapMonth As Integer = chineseCalendar.GetLeapMonth(chineseY)
        Dim isLeap As Boolean = False
        If leapMonth > 0 Then
            If leapMonth = chineseM Then
                isLeap = True
                chineseM -= 1
            ElseIf chineseM > leapMonth Then
                chineseM -= 1
            End If
        End If
 
        TextBox1.Text = chineseY & chineseM & chineseD
 
    End Sub
需要注意的是，农历有闰月。

ChineseLunisolarCalendar类的GetMonth() 方法获得的结果是1-13，

同时提供了leapMonth来获得当年的闰月。

如果leapMonth=7，也就是说当年闰6月（有两个6月），getMonth()获得的月份大于等于7的，都应该减1。

今天的农历日子是：2017年6月19

 

学习更多vb.net知识，请参看vb.net教程 目录

 
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。