Isolate The Date Portion For NOW

[Ark68]

I have this line of code in my project that is giving me a "Unable to get the Match property of the WorksheetFunction class" ...

dln = WorksheetFunction.Match(td, swb.Worksheets(2).Range("B:B"))

dln is defined as a variant (???)
td = NOW

The value I am getting for td is 5/7/2018 8:03:04 PM
The date data in workbook swb 2nd worksheet is formatted as ddd dd-mm, but is a true date value as indicated in the formula bar (5/7/2018).

I suspect the problem is that they can't match the two values becuase one has the time, the other doesn't so there isn't an exact match. If that is the case, how can I just isolate the date portion of NOW to use to find the match?

 

[MARK858]

Just use date rather than Now/td

dln = WorksheetFunction.Match(CLng(Date), swb.Worksheets(2).Range("B:B"))

Date in VBA is the equivalent of the Formula =TODAY() and so doesn't have a time (well strictly speaking a time of 00:00)

 

[Ark68]

Ahhh! Perfect.
Thank you for your help Mark858, it is very appreciated.

I had tried

dln = WorksheetFunction.Match(int(td), swb.Worksheets(2).Range("B:B"))

...
But that still left me with that error.

Great lesson taught and learned