VBA - date comparison is not working

[logstarter]

Hi,

I have written the following VBA code but it seems that it doesn't work because the code keeps creating the new row even the date is today. I would like to seek advice if anything wrong in my code.

Thanks so much!

Sub createDate()

    Dim lRow As Long
    z = Format(Now, "dd/mm/yyyy")
    lRow = Worksheets("Log").Cells(Rows.count, 1).End(xlUp).Row
    lRowValue = Worksheets("Booking Log").Cells(lRow, 1).Value
    If (lRowValue <> z) Then
        Worksheets("Log").Cells(lRow + 1, 1).Value = z
        Worksheets("Log").Cells(lRow + 1, 2).Value = 0
    End If
    
End Sub

 

[DanteAmor]

This converts the date into a text

Z = Format(Now, "dd/mm/yyyy")

then you should also convert the comparison date

If [COLOR=#0000ff]Format(lRowValue, "dd/mm/yyyy")[/COLOR] <> Z Then

 

[logstarter]

Thanks. I tried and debugged. I found another strange issue.

    If (lRowValue <> z) Then

the IRowValue is showing 04/03/2019 (which is the same as excel worksheet) and z is showing 03/04/2019, that's why that cannot be compared as equal. However, the IRowValue should be created by z as it's assigned by the code "Worksheets("Log").Cells(lRow + 1, 1).Value = z". Do you have any clue about that? Thanks!

Sub createDate()

    Dim lRow As Long
    z = Format(Now, "dd/mm/yyyy")
    lRow = Worksheets("Log").Cells(Rows.count, 1).End(xlUp).Row
    lRowValue = Format(Worksheets("Log").Cells(lRow, 1).Value, "dd/mm/yyyy")
    If (lRowValue <> z) Then
        Worksheets("Log").Cells(lRow + 1, 1).Value = z
        Worksheets("Log").Cells(lRow + 1, 2).Value = 0
    End If

End Sub

 

[DanteAmor]

If Format(lRowValue, "dd/mm/yyyy") <> Z Then

Worksheets("Log").Cells(lRow + 1, 1).Value = Cdate(z)

 

[logstarter]

If Format(lRowValue, "dd/mm/yyyy") <> Z Then

Worksheets("Log").Cells(lRow + 1, 1).Value = Cdate(z)

Thanks. This works well.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.

 

[JeffGrant]

This post just solved one of my issues. Thanks for the coding.