Code works great until the last day of the month

[LoneWolf3574]

I created the following coding to prevent days from being unintentionally skipped. It has worked fine until after the first entry of the last day of the month is reached, as I discovered today, in other words, after the 2am entry is made, the 4am entry can't be made. I realize that I'm comparing the current date value to itself plus 1, what I can't figure out is how to make it not skip the rest of the day. I hope I explained it well enough, I've also included an attachment to help if at all possible.

If cboDate.Value > Format(DateAdd("d", 1, txtLDate.Value), "dd-mmm-yy") Then
    Me.cboDate.SetFocus
    MsgBox "Whoa there partner!!!" & vbLf & "Slow those horses down some!!!" & vbLf & _
    "The " & Format(DateAdd("d", 1, txtLDate.Value), "dd-mmm-yy") & " Thermals are missing" & vbLf & _
    "Enter them first cowboy.", vbExclamation, "Missing A Date"
  Exit Sub
End If

FixMe.xlsm

[romperstomper]

You would be able to use something like:

If CDate(cboDate.Value & " " & cboTime.Value) > CDate(txtLDate.Value & " " & txtLTime.Value) + TimeSerial(2, 0, 0) Then

except that your data logs show 30-Oct-13 00:00 as being after 30-Oct-13 22:00, whereas most people (and computers!) would regard 31-Oct-13 00:00 as being two hours after 30-Oct-13 22:00

[LoneWolf3574]

Unfortunately that doesn't work with what I've got romperstomper. Even altering it to 24 hours (instead of 2) gets my msgbox error and the following, you can still make the entry, but you can now skip dates, which I want to prevent. Any variation of our code doesn't appear to work as I intend.

If CDate(cboDate.Value & " " & cboTime.Value) > CDate(txtLDate.Value & " " & txtLTime.Value) + DateSerial(0, 0, 1) Then

The "time" system where I work was originally developed back in the 1970s and they've stuck with it on all documentation since then and so, unfortunately, it is what I must work with.

[LoneWolf3574]

I figured it out, I needed to use the DateValue function to achieve my goal.

If DateValue(cboDate.Value) > DateValue(txtLdate.Value) + 1 Then

It's amazing what difference HOW something is written when the comprehension of each is identical