[RESOLVED] Check if DTPicker1 time value is incresed by 5 minutes from the current time

I have a time picker that sets reminders it opens to the current time. I want to make sure the time is increased by 5 minutes when the OK button is clicked
if DTPicker1.value < 5 minutes from now
msgbox "you must increase the time by at least 5 minutes"
Exit Sub
end if
it opens like this:


DTPicker1.CustomFormat = "hh:mm tt"
DTPicker1.Format = dtpCustom
DTPicker1.Value = Now
DTPicker1.Format = 2
it shows the time as AM/PM

have tried this

If DateDiff("n", Time, DTPicker1.Value) < 5 Then
MsgBox "You must increase the time by at least 5 minutes."
End If

and this:
Dim date1 As Date
date1 = CDate(DTPicker1.Value)
If DateDiff("n", date1, Now) < 5 Then
MsgBox ("You must increase the time by at least 5 minutes.")
End If

they do not work

how can this be written ?
Attachment 132841

Shouldn't it be "m" instead of "n" in DateDiff, to compare minutes?

Looks like you have the values reversed from what you want. If you want 5 minutes or more from now then you want

Code:

---

If DateDiff("n",Now,date1) < 5 Then

---

The way you have it would give you 5 minutes or more before now rather than after

If you want 5 minutes or more in either direction then you can use the ABS() function

Code:

---

If ABS(DateDiff("n",Now,date1)) < 5 Then

---

Quote:

---

Originally Posted by fafalone

Shouldn't it be "m" instead of "n" in DateDiff, to compare minutes?

---

Thanks , but need to check total time, if hours are increased then it wold be more than 5 minutes

Quote:

---

Originally Posted by fafalone

Shouldn't it be "m" instead of "n" in DateDiff, to compare minutes?

---

m is for Months n is used for minutes

a bit confusing but.....

anyway the values being in the wrong position is likely why he was having a problem

Quote:

---

Originally Posted by DataMiser

m is for Months n is used for minutes

a bit confusing but.....

anyway the values being in the wrong position is likely why he was having a problem

---

This works

If DateDiff("n", Time, TimeValue(DTPicker1.Value)) < 5 Then
MsgBox "You must increase the time by at least 5 minutes."
End If

That is pretty much what i showed in my post, you have dropped the date part but the key is the order in which they appear in the statement

Code:

---

If DateDiff("n", now, DTPicker1.Value) < 5 Then

---

Would give you the same result