تطبيق الكود

ربما كان الخطا في الكود الذي أعطيتك سابقا هو عدم إضافة السطر التالي

Public theDate As Date

والان بعد التعديل يصبح الكود كالتالي

Public saved As Boolean
Public theDate As Date
Private Sub Command1_Click()
days = DateDiff("d", Date, theDate)
If saved = True And days = 0 Then
    MsgBox "you calculated the number of days before"
Else
    theDate = Date
    saved = True
End If
End Sub

ولتجربة الكود خلال فترة دقيقة واحدة استخدمي هذا الكود

Public saved As Boolean
Public theDate
Private Sub Command1_Click()
days = DateDiff("n", Time, theDate)
If saved = True And days = 0 Then
    MsgBox "you calculated the number of days before"
Else
    theDate = Time
    saved = True
End If
End Sub

وآسف للتأخير