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