Working with Date using macro

[Babalola]

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Occurence Time [/TD]
[TD]Recovery Time[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][TABLE="width: 108"]
<tbody>[TR]
[TD="class: xl84, width: 108"]2/25/201816:24[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]2/25/201818:14[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/25/201813:54[/TD]
[TD]2/25/201815:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/25/201810:09[/TD]
[TD]2/25/201811:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/25/2018 7:24[/TD]
[TD]2/26/201816:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/25/2018 11:24[/TD]
[TD]2/26/201812:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/26/201816:24[/TD]
[TD]2/26/201816:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/26/201816:24[/TD]
[TD]2/26/201816:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2/26/201816:24[/TD]
[TD]2/26/201816:24[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


if i have such table and i need to delete issues that occur on a particular day and recovers on same day e.g ( issues that started on 2/25/2018 7:24 and recover on 2/25/201818:14. leaving issues that started on 2/25/201818:14 and recovers on 2/26/2018 and also issues that started on 2/26/2018 and recovers on 2/26/2018 with the use of macro
****** id="cke_pastebin" style="position: absolute; top: 0px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]2/26/201816:24[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]2/26/201816:24[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]2/25/201818:14[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]2/25/201818:14[/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]2/25/201818:14[/TD]
[/TR]
</tbody>[/TABLE]
</body>

 

[CalcSux78]

You'd need to identify your range you're looking to clean up. Then, loop from the bottom to the top identifying which rows to delete. In VBA, you can use the DateDiff function to determine the days between the and resolved times.

I'm a bit confused on why you'd leave issues from Feb 26 that are resolved on the same day.

If we only keep rows where the two dates fall on different calendar days:

Sub RemoveSome()
Dim rng As Range
Dim i&


Set rng = [A2:B9]
For i = rng.Rows.Count To 1 Step -1
    If DateDiff("d", rng(i, 1), rng(i, 2)) = 0 Then rng(i, 1).EntireRow.Delete
Next i


End Sub

 

[cerfani]

tell whoever creates this report to create dates and not strings... also the formats are inconsistent... if things will be inconsistent your macro will have to check what situation it is dealing with and then do something different...your example will have to parse from strings for most of em then two it can use as a date... hard to write code for sloppy reports

these are dates... the rest are strings...

2/25/2018 7:24
2/25/2018 11:24

 

[Babalola]

tell whoever creates this report to create dates and not strings... also the formats are inconsistent... if things will be inconsistent your macro will have to check what situation it is dealing with and then do something different...your example will have to parse from strings for most of em then two it can use as a date... hard to write code for sloppy reports

these are dates... the rest are strings...

2/25/2018 7:24
2/25/2018 11:24

maybe how I copy , the report contains date... actually the Feb is just a sample