曾有段时间想开发个备忘录类的软件,也就是简单的将熟人的生日提醒一下,可是有些朋友的生日是农历的。
这下就不好办了,农历的算法还是比较复杂。直到前不久发现.net其实已经提供了中国农历年的类:ChineseLunisolarCalendar,于是复杂问题简单化了。
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
需要注意的是,农历有闰月。
同时提供了leapMonth来获得当年的闰月。
如果leapMonth=7,也就是说当年闰6月(有两个6月),getMonth()获得的月份大于等于7的,都应该减1。
今天的农历日子是:2017年6月19
学习更多vb.net知识,请参看
vb.net 教程 目录