Gary's Student,
Thanks very much! I'll try it.
--
Howard


"Gary's Student" wrote:

Try the following UDF:

Function time_it(simple_time As Integer)
Dim hr As Integer
Dim min As Integer
hr = Int(simple_time / 100)
min = simple_time - hr * 100
If hr < 6 Then
hr = hr + 12
End If
MsgBox (hr)
MsgBox (min)
time_it = TimeSerial(hr, min, 0)
End Function

Put the function in cells formatted as time.
time_it(800) will return 8:00 AM
time_it(1000) will return 10:00 AM
but
time_it(100) will return 1:00PM
--
Gary's Student


"Howard" wrote:

I'm working on a time card where employees enter time in, out for lunch, back
in and out for the day. I can do this in a time format and get the total for
the day. However, the manager thinks it's too cumbersome for employees to
type 8:00 AM, 1:00 PM, 2:00 PM, 5:00 PM, for example. Is there a way to do
this using numbers, other than military time, or not having to type AM or PM?

Thanks,
--
Howard