Sub dateD()
MsgBox DateDiff("ww", "6/3/2006", "9/30/2006")
End Sub
'Using the Dir Function to Check Whether a File Exists
Sub Does_File_Exist()
Dim strTestFile As String, strNameToTest As String
strNameToTest = "c:\"
If strNameToTest = "" Then End
strTestFile = Dir(strNameToTest)
If Len(strTestFile) = 0 Then
Debug.Print "The file " & strNameToTest & " does not exist."
Else
Debug.Print "The file " & strNameToTest & " exists."
End If
End Sub