Time conversions from 24hr to am/pm

Blaise · July 14th, 2003, 08:12 PM

Hi people,

A 'hopefully' simple question that I can't seem to find the solution to.

Does anyone know how to format a time that's in 24hr format top simple am or pm format?

eg... 13:00 = 1:00pm

TIA

Blaise.

rodmcleay · July 14th, 2003, 08:34 PM

Don't know if there are any inbuilt functions to do this, but I use this function below.
Can be changed to include seconds if required.

Code:

function ampmTime(InTime)
    dim OutHour, ampm
        if hour(InTime) < 12 then
            OutHour = hour(InTime)
            ampm = "PM"
        end if
        if hour(InTime) = 12 then
            OutHour = hour(InTime)
            ampm = "PM"
        end if
        if hour(InTime) > 12 then
            OutHour = hour(InTime) - 12
            ampm = "PM"
        end if
        ampmTime = OutHour & ":" & minute(Intime) & " " & ampm
end function

Blaise · July 14th, 2003, 09:38 PM

Thanks mate, I really appreciate it.

At first I didn't want to use a function in hope that there would be a VBScript alternative, but alas it seems not, I made a few changes to your function, see below.

Code:

function ampmTime(InTime)
 dim OutHour, ampm, minutes
 if hour(InTime) < 12 then
   OutHour = hour(InTime)
   ampm = "am"
 end if
 if hour(InTime) = 12 then
   OutHour = hour(InTime)
   ampm = "pm"
 end if
 if hour(InTime) > 12 then
   OutHour = hour(InTime) - 12
   ampm = "pm"
 end if
 minutes = minute(intime)
 IF LEN(minutes) < 2 THEN minutes = minutes & "0"
 IF LEN(OutHour) < 2 THEN OutHour = "0" & OutHour
 ampmTime = OutHour & ":" & minutes & ampm
end function