给你推荐一个.自己去下载吧.
目前成都创新互联公司已为超过千家的企业提供了网站建设、域名、雅安服务器托管、网站托管、企业网站设计、左云网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
自己做更简单.在工程部件里面加载microsoft calendar control 9.0.然后工具箱就会有calendar控件.拖到form里面就OK了。一看就明白.
如果需要自己输入日期进行查询,就画三个文本框用于输入年月日,两个按扭,一个查询一个退出.
输入以下代码:
Private Sub Command1_Click()
If Text1.Text "" Then
nyear = CDbl(Text1.Text)
End If
If Text2.Text "" Then
nmonth = CDbl(Text2.Text)
End If
If Text3.Text "" Then
nday = CDbl(Text3.Text)
End If
Calendar1.Year = nyear
Calendar1.Month = nmonth
Calendar1.Day = nday
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
这个控件允许你选择日期和时间；同时，由于这个控件允许你限制输入内容，你可以忽略合法的日期格式。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年开始涉足技术领域。 查看本文国际来源
Public Class Form1
Dim 设置时间 As DateTime
Private Sub D1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles 日期时间选择.CloseUp
和.Text = 日期时间选择.Value
设置时间 = 日期时间选择.Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
日期时间选择.Value = Now
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Now.ToString = 和.Text Then
提醒显示.Text = "时间到了 你该去做些什么事了吧"
'Timer1.Enabled = False
Else
提醒显示.Text = "现在时间是：" Now
End If
End Sub
Private Sub 和_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 和.TextChanged
设置时间 = 和.Text
End Sub
End Class
先将日历控件Visible属性设置为False,放置到Textbox控件上方，调整好尺寸，点按Textbox是改变日历控件的Visible属性即可
