Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Returns the number of weeks between June 3, 2006 and September 30, 2006

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