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

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://blog.csdn.net/uruseibest/article/details/75041887

栏目列表