| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net应用技巧 >> 技术文摘正文
最新推荐 更多内容
VB.Net实现公历与农历互相转化
VB.Net实现公历与农历互相转化
作者:未知    来源:乐博网收集     更新时间:2011-2-6

本文介绍了VB.Net实现公历与农历互相转化的原理和源代码,首先阴历以月为基本单位,一个月以新月出现的那一天为始直至下一个新月出现的前一天。
由于月亮公转的周期介于29到30天之间,阴历的一个月也就由新月出现时刻的早晚或是29天或是30天。
大月为30天,小月为29天。
与阳历不同的是,大小月在不同的年中不固定。
如春节的前一天常称为大年三十,但有不少年如2000年的阴历十二月只有29天。
由于十二个月的时间较阳历年即地球绕太阳公转一周的时间短11天左右.
为了使阴历年与阳历年保持相对稳定,每隔两三年就需要加入一个闰月。
大约每十九年要加入七个闰月。

而二十四节气则是由地球在绕太阳公转的轨道上的位置确定的。
以每年的冬至为始,每15度为一个节气。
是故二十四节气在阳历的每月中有大概固定的日期。
古时以二十四节气指导农耕,这就是阴历又称农历的原因。
其中阳历下半月的十二个节气又称为中气。
中气出现的时刻和闰月的确定有直接的关系。

阴历的计算有下列四条规则:

1.所有新月和节气出现的时刻的计算以东经120度即东八区标准时为准。
但计算1929年以前的阴历时应以北京即东经116度25分的当地时为准。

2.新月出现的一天为一个月的第一天。
如某个节气的出现时刻也在这一天,则不论该节气的出现时刻是否比新月晚,一律算落入新的一个月中。

3.每年的冬至总是落在这年的十一月中。
从一年的冬至的第二天起到下一年冬至这一天止的这段时间称为一岁。
如一岁中有十三个新月出现,则这一岁为闰岁,要加入一个闰月。

4.闰岁中第一个没有中气的月为闰月。
因为一岁中只有十二个中气,所以闰岁中至少有一个月没有中气,也存在有两个月没有中气的可能性。
但这种情况下只有第一个没有中气的月为闰月。
闰月的前一个月为几月则该闰月称为闰几月。


根据以上信息, 我们知道农历是根据天文观测进行指定的(也许可以在天文学的书上找到说明)。
为了简化转换计算, 很多程序人员设计了基于"时间段内查表"方法的例程.


更具体的说明和源码请参考下面这些资料:

在.net2.0 的版本中的 System.Globalization.ChineseLunisolarCalendar 是针对中国的日历类,公历与中国传统农历纪年之间的相互转换,利用它可以计算天干地支等有关农历的信息。

使用

Shared cCalendar As New ChineseLunisolarCalendar()
cCalendar.MaxSupportedDateTime 返回支持的最大日期,即2101-1-28
cCalendar.MinSupportedDateTime  返回支持的最小日期,即1901-2-19

''' 根据公历获取农历日期
''' datetime  公历日期

Public Shared Function GetChineseDateTime(datetime As DateTime) As String
Dim lyear As Integer = cCalendar.GetYear(datetime)
Dim lmonth As Integer = cCalendar.GetMonth(datetime)
Dim lday As Integer = cCalendar.GetDayOfMonth(datetime)

'获取闰月, 0 则表示没有闰月 更多.net教程 来自乐博网 vlob.cn
Dim leapMonth As Integer = cCalendar.GetLeapMonth(lyear)

Dim isleap As Boolean = False

If leapMonth > 0 Then
If leapMonth = lmonth Then
'闰月
isleap = True
lmonth -= 1
ElseIf lmonth > leapMonth Then
lmonth -= 1
End If
End If

Return String.Concat(GetLunisolarYear(lyear), "年", If(isleap, "闰", String.Empty), GetLunisolarMonth(lmonth), "月", GetLunisolarDay(lday))
End Function

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.NET时间日期数据处理及技巧(BoFish收集)
    NET2.0中的农历类
    .Net日期时间的处理技巧集合[乐博网小幺]
    C#在线转化VB.Net的方法
    VB.Net日期格式化的5种使用方法
    VB2008 MonthCalendar和DateTimePicker控件的使用方法
    VB.Net计算两个阴历日期相差天数的方法

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]