曾有段时间想开发个备忘录类的软件，也就是简单的将熟人的生日提醒一下，可是有些朋友的生日是农历的。
这下就不好办了，农历的算法还是比较复杂。直到前不久发现.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 教程 目录
原文链接：https://www.f2er.com/vb/256542.html