'*************************把两个字符串时间进行比较,求其中的间隔天数*****
Function CalculateTimeSpan(ByVal sFirstDate As String, ByVal sSecondDate As String) As String
Dim SDate As Date
Dim FDate As Date
If VBA.Len(VBA.Trim(sFirstDate)) = 0 Then
FDate = Date
Else
FDate = CDate(sFirstDate)
End If
SDate = CDate(sSecondDate)
CalculateTimeSpan = VBA.DateDiff("d", SDate, FDate)
End Function
-----开博第二篇