Insufficient Time Error Handling

I have a userform textbox ("wo_lts_time" in which the user is to enter a valid time. The event exit code is below:

Please Login or Register  to view this content.

I use this custom function to determine the appropriateness of the value entered by the user:

Please Login or Register  to view this content.

In my testing, I'm discovering that if a user enters gibberish ... "fdjfhdsgfdf" in this textbox, the function identifies an inappropriate date value entered and displays the error message. However, the code proceeds and errs in the line in red. "type mismatch".

Type mismatch indeed ... the line is looking for a timevalue (which can't happen with the text value submitted) to compare. I've already built in a check to detour the code when this procedure carries with it a blank value.

I am weak in my coding skills. Can someone suggest how I can identify and react appropriately to any value encountered that isn't a time value?

Jenn

Just as guess, but why don't you re-write your functions as so:

Please Login or Register  to view this content.

Then with:

Please Login or Register  to view this content.

You can add something like:

Please Login or Register  to view this content.

Or whatever you need.

Thank you kindly SHG for making the necessary repair with my code. I struggled for quite some time with this. I appreciate your support.
With this same code, when it errs with "Lights unnecessary..." , the wo_lts_time.SetFocus is intented to take the user back to that textbox to reenter another time. Do you have any suggestion as to why it's not?

Jenn

Hey StevenM, I acknowledge your suggestion, and extend my thanks to you as well for your contribution. Every suggestion, whether applied or not, is a valuable learning opportunity for me. Thanks again!

Jenn

I'm run into a problem with the arithmetic of the time.

Consider the final code revision you provided. As we step through the code and gather the values of the different variables.

sunset = 0.8500000000000
lghtson = 0.82959 (0.8500000000000(sunset) - 0.02041(30 minutes))
wo_lts_time = "7:54 pm" (lghtson)
varhold.range("A12") = .82959

From your code:
dtime = 0.829166666666667

An IF then statement compares dtime (0.829166666666667) to the value of varhold.range("A12") ... .82959. The h:mm am/pm value theoretically are equal ... 7:54PM.

However, with this code, the IF/THEN statement triggers the "Lights unnecessary before 30mins prior to sunset." error as dtime is less than 0.82959.

Despite the h:mm am/pm value being the same, it has two different numerical values causing undesireable results.

How best I overcome this?

Yeah! I think that did the trick. I didn't think you could do that ...
I think it works.

Please Login or Register  to view this content.

Thank you SHG!!!