how to split this time format? 5:03:18 PM

[earp_]

I want to split this time format

5:03:00 PM

so after that I can update this statement

If .Value >= TimeSerial(9, 0, 0) And .Value < TimeSerial(9, 5, 0) Then

in something like

If .Value >= TimeSerial(myH1, myM1, 0) And .Value < TimeSerial(myH2, myM2, 0) Then

How can I split the time?

 

[Richard Schollar]

Hi

Why do you need to split it up? You can return each element (if that is what you want to do) by using the Hour(), Minute() and Second() functions eg:

lngSeconds = Seconds(TimeValue)

 

[earp_]

oh , that even better...thanks!

 

[earp_]

can i write

mySec = Second(Whorksheet(Sheet1).Range("J2")) ?

 

[Richard Schollar]

Yep

 

[earp_]

marvellous tks