Excel VBA Evaluate Data/Time stamp

[MCP2000]

Hello,

The solution to my problem may be elementary, but I am just not finding it. I am looking for records that show that process is automatically repeating. So, I am looking at data/time stamps, and I am trying to flag any record which matches a previous record within 2 seconds of its date/timestamp.

EXAMPLE:

For i = 2 To 25000
((variable2)) ((variable1 + 2 seconds))
If 7/18/2018 13:00:01 <= (7/18/2018 13:00:00 + 2 seconds) Then
Perform tasks to mark record
End If
Next

Can anyone tell me how to evaluate the timestamp this way?

Thank you in advance!

 

[SkipVought]

Hi,

For i = 2 To 25000
   If Abs(Cells(i, "A").Value - Cells(i + 1, "A").Value) < TimeSerial(0,0,2) Then...
Next

...assuming column A has time values.
Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]

 

[MCP2000]

Thank you, Skip! Very helpful!!

 

[SkipVought]

this can also be done in a Conditional Format, top of selection A2...
[tt]
=OR(ABS(A1-A2)<TIME(0,0,2),ABS(A2-A3)<TIME(0,0,2))
[/tt]

Skip,
[sub]
Just traded in my OLD subtlety...
for a NUance![/sub]