VBA------把两个字符串时间进行比较，求其中的间隔天数

'*************************把两个字符串时间进行比较，求其中的间隔天数*****

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

 

-----开博第二篇