Military time trouble

[darkbearpooh1]

needa macro or something to change the time format of hh:mm to 1-12then
1-12 again instead of 13:00 so it would go from 12:30 to 1:00 instead
of 13:00
any ideas? tia

 

[daddylonglegs]

Is this just a formatting issue?

If you show 13:00 as 01:00 how can you tell 01:00 from 13:00? Or do you
want to show AM and PM, if so just format cell to show hh:mm AM/PM

 

[darkbearpooh1]

trouble is it makes my columns too wide to put the am or pm i even tried
editing
other areas to scrap space but this is a file that has to be printed
and can't be cut off. i don't want to differentiate between am /pm well
it can but its just too big lol. i need that format without the am pm
showing up if possible and the military format is not what i really
want

 

[Bob Phillips]

Function GetTime(rng As Range, ci As Long, Start As Boolean)
Dim cell As Range
Dim i As Long
Dim j As Long
If Start Then
For i = 1 To rng.Columns.Count
If rng.Columns(i).Interior.ColorIndex = ci Then
j = IIf(i > 25, i - 24, i)
GetTime = TimeSerial(Int(j / 2), (j Mod 2) * 30, 0)
Exit For
End If
Next i
Else
For i = rng.Columns.Count To 1 Step -1
If rng.Columns(i).Interior.ColorIndex = ci Then
j = IIf(i > 25, i - 24, i)
GetTime = TimeSerial(Int(j / 2), (j Mod 2) * 30, 0)
Exit For
End If
Next i
End If
End Function



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"darkbearpooh1" <[email protected]>
wrote in message
news:[email protected]...

 

[darkbearpooh1]

works like a charm!!! Thanks a million

 

[darkbearpooh1]

umm sorry works perfect but i just noticed the finish time is exactly 30
minutes behind the proper time it should be can you help..

 

[darkbearpooh1]

figured it out, i am so stupid lol, ok i fixed it by adding a extra
column and starting the out time one cell later =) thank you !!!

 

[Bob Phillips]

All done when I was in the land of z's <vbg>

Bob

"darkbearpooh1" <[email protected]>
wrote in message
news:[email protected]...