13518219792
如果有用到AddDate的，有三条建议：
专注于为中小企业提供成都网站建设、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业滨城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了近1000家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
不要用AddDate对月进行加减操作
不要用AddDate对月进行加减操作
不要用AddDate对月进行加减操作
有一个需求需要对传入的时间减去一个月，拿到上一个月的年月(如：2006-01)，再进行操作。
那么就： str := date.AddDate(0,-1,0).Format("2006-01") 很完美的样子。
2018-05-30 加一个月变成了2018-07-01。
看一下官方文档：
AddDate会将结果规范化，类似Date函数的做法。因此，举个例子，给时间点October 31添加一个月，会生成时间点December 1。（从时间点November 31规范化而来）
所以当你给month加 1，day 是不会变的。5-31变成 6-31，最后转化为 7-1。
所以大家在用任何官方、非官方的接口，都一定要仔细阅读接口文档呀，不然很容易出问题。
一定要慎用AddDate，尤其是对年和月直接进行加减操作的。
选择单元格区域中的一列日期或时间，或者确保活动单元格在包含日期或时间的表列中。
选择单元格区域或表中的一列日期或时间。
在“开始”选项卡上的“编辑”组中，单击“排序和筛选”，然后执行下列操作之一：
若要按从早到晚的顺序对日期或时间排序，请单击“从最旧到最新排序”。
若要按从晚到早的顺序对日期或时间排序，请单击“从最新到最旧排序”。
问题：检查日期和时间是否存储为日期或时间 如果结果不是您所希望的，可能是因为该列中包含存储为文本（而不是日期或时间）的日期或时间。要使 Excel 正确地对日期和时间进行排序，该列中的所有日期和时间都必须存储为日期或时间系列数值。如果 Excel 无法将值识别为日期或时间值，就会将该日期或时间存储为文本。有关详细信息，请参阅将存储为文本的日期转换为日期。
注释 如果要按星期日期进行排序，请设置单元格格式以显示星期日期。如果要按星期日期进行排序，而不考虑日期，请使用 TEXT 函数将它们转换为文本。但是，TEXT 函数会返回一个文本值，因此排序操作将基于字母数字数据。有关详细信息，请参阅按星期日期显示日期。
1.可以用DateDiff函数，返回值表示两个指定日期间的时间间隔。
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
