vb.net 教程 20-1 农历 1

发布时间：2020-12-17 07:31:48 所属栏目：百科来源：网络整理

导读：曾有段时间想开发个备忘录类的软件，也就是简单的将熟人的生日提醒一下，可是有些朋友的生日是农历的。这下就不好办了，农历的算法还是比较复杂。直到前不久发现.net其实已经提供了中国农历年的类：ChineseLunisolarCalendar，于是复杂问题简单化了。农历

曾有段时间想开发个备忘录类的软件，也就是简单的将熟人的生日提醒一下，可是有些朋友的生日是农历的。

这下就不好办了，农历的算法还是比较复杂。直到前不久发现.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 教程目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!