VBA code to check Date Format

[SamarthSalunkhe]

Hi All,

I am using below code to check Date format in cell but, I am getting error as Overflow.

Can some one check confirm me where I am updating wrong code.

Dim UserEnteredDate As Date
Dim CurrentDate As Date

UserEnteredDate = Format(Mid(Sheet3.Cells(5, 7), 2, 2) & Mid(Sheet3.Cells(5, 7), 2, 2) & Right(Sheet3.Cells(5, 7), 4), "DDMMYYYY")
CurrentDate = Format(Now(), "DDMMYYYY")

 

[igold]

Try changing anything declared as an Integer to a Long. It will not hurt anything and most likely where your issue is.

 

[Joe4]

Note that you are declaring "UserEnteredDate" and "CurrentDate" as dates, but then in your calculations, you are using the FORMAT function.
The FORMAT function returns a Text/String value, not a Date or Number.

Why exactly are you trying to use the FORMAT function on these dates?
What are you ultimately trying to do with these two fields?