2.也可以把两个日期直接相减：
a = Now - CDate("2014-1-1") '2014年1月1日到今天，共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1") '2014年1月1日到2014年3月1日，共这么多天。
vb的函数是强大的，闰年和平年它自己会处理，无需担心。
追问：
那需要什么控件，能详细说一下吗
回答：
不需要任何控件呢，是系统自带的函数呢，你写到代码里面试试就可以了。
你稍等，我给你写代码：
'窗体弄一个按钮Command1，加入以下代码，你试试看：
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = Now - CDate("2014-1-1")'2014年1月1日到今天，共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1")'2014年1月1日到2014年3月1日，共这么多天。
Print "2014年1月1日到今天，共" &a &"天。"
Print "2014年1月1日到2014年3月1日,共" &b &"天。"
End Sub
选择单元格区域中的一列日期或时间，或者确保活动单元格在包含日期或时间的表列中。选择单元格区域或表中的一列日期或时间。
在“开始”选项卡上的“编辑”组中，单击“排序和筛选”，然后执行下列操作之一：
若要按从早到晚的顺序对日期或时间排序，请单击“从最旧到最新排序”。
若要按从晚到早的顺序对日期或时间排序，请单击“从最新到最旧排序”。
问题：检查日期和时间是否存储为日期或时间 如果结果不是您所希望的，可能是因为该列中包含存储为文本（而不是日期或时间）的日期或时间。要使 Excel 正确地对日期和时间进行排序，该列中的所有日期和时间都必须存储为日期或时间系列数值。如果 Excel 无法将值识别为日期或时间值，就会将该日期或时间存储为文本。有关详细信息，请参阅将存储为文本的日期转换为日期。
注释 如果要按星期日期进行排序，请设置单元格格式以显示星期日期。如果要按星期日期进行排序，而不考虑日期，请使用 TEXT 函数将它们转换为文本。但是，TEXT 函数会返回一个文本值，因此排序操作将基于字母数字数据。有关详细信息，请参阅按星期日期显示日期。
