VBA求两日期相差多少天

1.两个日期之间差多少天
两个日期间隔多少天，可以直接相减，也可以用datediff函数来计算，即：
Datediff("d",开始日期，结束日期)
DateDiff 函数示例
本示例使用 DateDiff 函数来显示某个日期与今日相差几天。
Dim TheDate As Date
Dim Msg
TheDate = InputBox("请输入一个日期")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg
输入日期格式为:2008-05-20
实例：
先把字符串格式的日期解析成日期类型，用mid方法 : mid(text,start_num,num_chars)
可以从字符串中取出子字符串,这里start_num是开始位置(最小值为1,不是0),num_chars是取出多少个字符串
例如F42单元格内容为20111203,那么解析成日期可以用=DATE(MID(F42,1,4),MID(F42,5,2),MID(F42,7,2))
通过这种方法得到了第一个日期,第二个终止日期同理.
2,两个日期之间算相差多少天可以用=DATEDIF(date1,date2,"d")来计算,这里date1和date2表示两个日期,"d"是表示要计算相差天数,如果要计算年则用y 月用m因此起始日期用F42,终止日期用F43来表示,那么相差天数为
=DATEDIF(DATE(MID(F42,1,4),MID(F42,5,2),MID(F42,7,2)),DATE(MID(G42,1,4),MID(G42,5,2),MID(G42,7,2)),"d")