how to check if a date is old

[KhallP]

I'm creating a database of a library, I created a macro to check if the expiry date of the request that the user made has already passed, if this has happened the cell value should be "Expired Term" otherwise it should be "Pending" , but when the program executes the macro it always shows the value "Pending", can someone help me?

Public Sub Confirm_Data()

Dim c As Long, all_registers As Long

Application.ScreenUpdating = False

ActiveWorkbook.Sheets("Requisições").Activate

all_registers = Cells(Rows.Count, "B").End(xlUp).Row

For c = 2 To all_registers

    Select Case True
    
    Case Format(Now, "dd/mm/yyyy") < Cells(c, 8).Value
        Cells(c, 9).Value = "Prazo Expirado"
        
    Case Format(Now, "dd/mm/yyyy") >= Cells(c, 8).Value
        Cells(c, 9).Value = "Pendente"
        
    End Select
    
Next c

Application.ScreenUpdating = True
    
End Sub

 

[Joe4]

Get rid of the "FORMAT" function in your code!
The FORMAT function converts the entry to a text entry, and then your mathematical comparisons do not work.
You want to compare a valid date to a valid date (not to text).

As long as the values are entered as valid dates, you do not need to worry about the format to do the comparison. Excel sees dates as unformatted numbers anyway (specifically, dates in Excel are stored as the number of days since 1/0/1900).

So as long as the value on your worksheet is a valid date, in VBA you can compare it to either:
Now - current date AND time
Date - just the current date

 

[KhallP]

Get rid of the "FORMAT" function in your code!
The FORMAT function converts the entry to a text entry, and then your mathematical comparisons do not work.
You want to compare a valid date to a valid date (not to text).

As long as the values are entered as valid dates, you do not need to worry about the format to do the comparison. Excel sees dates as unformatted numbers anyway (specifically, dates in Excel are stored as the number of days since 1/0/1900).

So as long as the value on your worksheet is a valid date, in VBA you can compare it to either:
Now - current date AND time
Date - just the current date

thanks man!

 

[Joe4]

You are welcome.
Glad I was able to help!