vb点虐 农历控件 vb添加日期控件

如何使用VB.NET DateTimePicker控件

Visual Studio .NET的DateTimePicker控件为用户提供一个选择日期/时间的简便方法。这个控件允许你选择日期和时间；同时，由于这个控件允许你限制输入内容，你可以忽略合法的日期格式。DateTimePicker控件类似于MonthView控件，后者允许你选择一个日期或日期范围，但不支持时间选择。在本文中，我将创建一个使用DateTimePicker控件的实例。实例在常用控件（Common Controls）下的工具箱(Toolbox)中找到DateTimePicker控件，并把它添加到Windows Forms中。设置以下属性：l Name：dtpDateSelectionl CustomFormat：mm/dd/yyyyl Format：短l MaxDate：12/首陆31/2008l MinDate：01/01/2007l ShowUpDown：假 在Form Load事件中添加以下代码： dtpDateSelection.Value = Now 创建以下事件： Private Sub dtpDateSelection_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpDateSelection.CloseUp MessageBox.Show(dtpDateSelection.Value) End Sub 结果在第一个例子中，ShowUpDown属性设为假，表示在用户点击控件凳悄时，控件的日历部分可见。然后用户从控件的日历部分选择日期。在DateTimePicker控件中选择一个日期后，你的屏幕看起来与图A类似。 现在，将ShowUpDown属性值改为真，再次运行代码。这次你不会看到控件的日历部分，你可以点击控件的上/下箭头来选择一个日期。其结枣芹渣果类似于图B。 注意，这个控件不允许你选择小于MinDate属性值或大于MaxDate属性值的日期。 更多信息你还可以使用许多其它属性和重要的方法，让DateTimePicker控件满足你的需求。MSDN提供关于如何使用DateTimePicker控件的其它细节。 Irina Medvinskaya自1996年开始涉足技术领域。她获得佩斯大学的MBA学位，现在任花旗集团的项目经理。

创新互联专业为企业提供宿迁网站建设、宿迁做网站、宿迁网站设计、宿迁网站制作等企业网站建设、网页设计与制作、宿迁企业网站模板建站服务，10多年宿迁做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。

如何应用VB.NET MonthCalendar控件

;   Visual Studio NET提供的MonthCalendar控件允许你选择日期和一组日期 这个控件允许用户方便地选择日期 它类似于让你选择一个特定日期的DataTimePicker控件 不过MonthCalendar控件还可以帮助你选择一个时间

使用MonthCalendar 控件

下面的例子说明如何使用MonthCalendar控弯州神件

在常用控件（Common Controls）下的工具箱（Toolbox）中找到MonthCalendar控件并将它添加到窗口表单（Window Form）中 设置以下迹判属性

·Name mcDateSelection

·TodayDate 空

·MaxSelectionCount

·Selection Range Start 空

·Selection Range End 空

在Form Load事件中添加以下代码

mcDateSelection TodayDate = Now

然后建立列表A中的事件 在这个例子中 我设置MaxSelectionCount属性为 这意味着你只能在MonthCalendar控件中选择一个 而不是一组日期 在MonthView控件中选择一个日期 屏幕即类似于图A

图A

列表A Private Sub mcDateSelection_DateSelected(ByVal sender As Object ByVal e As System Windows Forms DateRangeEventArgs) Handles mcDateSelection DateSelected        MessageBox Show( Calendar Today s Date: mcDateSelection TodayDate vbCrLf _                Calendar Selected Start Date: mcDateSelection SelectionStart() vbCrLf _                Calendar Selected End Date: mcDateSelection SelectionEnd())    End Sub     既然你只能选择一个月中的某个特定的日期 而不是一组日期 那么 Selected Start Date和Selected End Date的值相同

现在 将MaxSelectionCount属性设为 然后重新运行代码 这次 你就可以选择一组日期（在这个例子中最多为 天） 而且 一旦你选择一组日期后 你将看到如图B所示的结果

图B

控件埋亏的其它用法

你可以利用MonthCalendar控件的许多其它属性和方法 使其满足你的需要 MSDN提供使用MonthCalendar控件的更多细节

lishixinzhi/Article/program/net/201311/11787

VB.NET的阳历与农历转换的算法

根据神锋经验, 这个算法非常复杂. 经过查找，终于得到一些资料, 在此愿与大家分享。 首先阴历以月为基本单位，一个月以新月出现的那一天为始直至下一个新月出现的前一天。 由于月亮公转的周期介于29到30天之间，阴历的一个月也就由新月出现时刻的早晚或是29天或是30天。 大月为30天，小月为29天。 与阳历不同的是，大小月在不同的年中不固定。 如春节的前一天常称为大年三十，但有不少年如2000年的阴历十二月只有29天。 由于十二个月的时间较阳历年即地球绕太阳公转一周的时间短11天左右. 为了使阴历年与阳历年保持相对稳定，每隔两三年就需要加入一个闰月。 大约每十九年要加入七个闰月。 而二十四节气则是由地球在绕太阳公转的轨道上的位置确定的。 以每年的冬至为始，每15度为一个节气。 是故二十四节气在阳历的每月中有大概固定的日期。 古时以二十四节气指导农耕，这就是阴历又称农历的原因。 其中阳历下半月的十二个节气又称为中气。 中气出现的时刻和闰月的确定有直接的关系。 阴历的计算有下列四条规则： 1．所有新月和节气出现的时刻的计算以东经120度即东八区标准时为准。 但计算1929年以前的阴历时应以北京即东经116度25分的当地时为准。 2．新月出现的一天为一个月的第一天。 如某个节气的出现时刻也在这一天，则不论该节气的出现时刻是否比新月晚，一律算落入新的一个月中。 3．每年的冬至总是落在这年的十一月中。 从一年的冬至的第二天起到下一年冬至这一天止的这段时游银晌间称为一岁。 如一岁中有十三个新月出现，则这一岁为闰岁，要加入一个闰月。 4．闰岁中第一个没有中气的月为闰月。 因为一岁中只有十二个中气，所以闰岁中至少有一个月没有中气，也存在有两个月没有中气的可能性。 但这种情况下只有第一个没有中气的月为闰月。 闰月的前一个月为几月则该闰月称搏吵为闰几月。 根据以上信息, 我们知道农历是根据天文观测进行指定的（也许可以在天文学的书上找到说明）。 为了简化转换计算, 很多程序人员设计了基于"时间段内查表"方法的例程. 更具体的说明和源码请参考下面这些资料：