VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • 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版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/75041887

相关教程