vb.net黄历源码 黄历数据如何生成

VB.NET的阳历与农历转换的算法根据经验, 这个算法非常复杂. 经过查找 , 终于得到一些资料, 在此愿与大家分享 。首先阴历以月为基本单位,一个月以新月出现的那一天为始直至下一个新月出现的前一天 。由于月亮公转的周期介于29到30天之间 , 阴历的一个月也就由新月出现时刻的早晚或是29天或是30天 。大月为30天,小月为29天 。与阳历不同的是,大小月在不同的年中不固定 。如春节的前一天常称为大年三十,但有不少年如2000年的阴历十二月只有29天 。由于十二个月的时间较阳历年即地球绕太阳公转一周的时间短11天左右. 为了使阴历年与阳历年保持相对稳定,每隔两三年就需要加入一个闰月 。大约每十九年要加入七个闰月 。而二十四节气则是由地球在绕太阳公转的轨道上的位置确定的 。以每年的冬至为始,每15度为一个节气 。是故二十四节气在阳历的每月中有大概固定的日期 。古时以二十四节气指导农耕,这就是阴历又称农历的原因 。其中阳历下半月的十二个节气又称为中气 。中气出现的时刻和闰月的确定有直接的关系 。阴历的计算有下列四条规则: 1.所有新月和节气出现的时刻的计算以东经120度即东八区标准时为准 。但计算1929年以前的阴历时应以北京即东经116度25分的当地时为准 。2.新月出现的一天为一个月的第一天 。如某个节气的出现时刻也在这一天,则不论该节气的出现时刻是否比新月晚,一律算落入新的一个月中 。3.每年的冬至总是落在这年的十一月中 。从一年的冬至的第二天起到下一年冬至这一天止的这段时间称为一岁 。如一岁中有十三个新月出现,则这一岁为闰岁,要加入一个闰月 。4.闰岁中第一个没有中气的月为闰月 。因为一岁中只有十二个中气,所以闰岁中至少有一个月没有中气 , 也存在有两个月没有中气的可能性 。但这种情况下只有第一个没有中气的月为闰月 。闰月的前一个月为几月则该闰月称为闰几月 。根据以上信息, 我们知道农历是根据天文观测进行指定的(也许可以在天文学的书上找到说明) 。为了简化转换计算, 很多程序人员设计了基于"时间段内查表"方法的例程. 更具体的说明和源码请参考下面这些资料:
vb.NET webbrowser 修改网页源码Dim c
Private Sub Form_Load()
URL = ""
c = 0
WebBrowser1.Navigate URL
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If c = 1 Then Exit Sub '这个是为了防止这个过程无限执行下去
c = c + 1
tmp = WebBrowser1.Document.body.innerhtml
tmp = Replace(tmp, "88753967", "好玩吗?")
WebBrowser1.Document.body.innerhtml = tmp
End Sub
如何用vb.net获得网页的源代码Dim url As String=" 网址"
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值vb.net黄历源码,该值指示是否与
Internet资源建立持久连接 。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
利用VB.NET实现导出DataTable数据到excel中,各位大侠帮帮忙,最好有源码 , 谢谢,江湖救急刚好写了个Helper类vb.net黄历源码,vb.net黄历源码你试验一下DataTable2Exce(这个方法代码如下vb.net黄历源码:
Imports System.IO
Imports System.Data

推荐阅读