Кнопка MS-Access использует fileModDate = f.DateLastModified, как сравнить fileModDate с сегодняшней датой

Question

В этой базе есть кнопки для каждого дня недели;Пользователь должен нажать на кнопку, относящуюся к текущему дню недели, и это выполняет некоторые основные функции.Мне нужно добавить непредвиденное обстоятельство, которое заставит код просмотреть дату последнего изменения файлов, на которые будет смотреть кнопка, и сравнить ее с сегодняшней датой.Если дата последнего изменения не является сегодняшней, то я не хочу, чтобы пользователь мог выполнять команды, расположенные за этой кнопкой, и был вынужден выполнить правильную кнопку, которая на самом деле относится к текущему дню недели.

Private Sub Command19_Click()

    Dim FSO As Object

    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String

    Dim fileModDate As String

    Dim Response2 As Integer

    'To have a second message box, do I need to set another parameter here? I.E Dim Response3 As Integer (?)

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("\\file_path\file_name.csv")

    fileModDate = f.DateLastModified

    Response2 = MsgBox(prompt:="Files are dated - " & fileModDate & ". Do you wish to Continue?", Buttons:=vbYesNo)

    If Response2 = vbNo Then

        Exit Sub

    Else

        'I assume I need to compare fileModDate to current date here. IF this is today's date then continue, IF NOT, then prompt user with message, "Button date does not match today's date". Do not allow user to continue until they have clicked a button for which the fileModDate = today's date.

    End If

    FromPath = "\\file_path"
    ToPath = "\\file_path"

    MsgBox "Files Copied"

End Sub

Я знаю, что этот код не будет выглядеть прямо в посте, но так как я впервые публикую здесь, я был бы признателен, если бы кто-то мог указать на мою ошибку.Кроме того, я искал на сайте ответы на этот вопрос и не нашел ответа, относящегося к этому конкретному примеру.

Answer 1

Это то, что вы хотите?

    If Format(F.DateLastModified, "dd/mm/yyyy") <> Format(Now, "dd/mm/yyyy") Then
        MsgBox ("Button date does not match today's date")
        Exit Sub
    End If