Time Formatting - Obtaining the Meridian

[MichaelJohnson168]

I am needing to extract the meridian (ex. AM or PM) from time.

Is there a way to do this? If so could someone please fill me in. Code
sample is below. I have managed to extract the hour and minute.
However I need to also extract the meridian. Thanks.


day_total_hours = Format((ShopOpensAt), "hh:nn")

hours = Hour(day_total_hours)

minutes = Minute(day_total_hours)

 

[Mike Fogleman]

Excel tracks time as a fraction of a day in decimal form. So if time less
than .5 then Meridian =AM, else Meridian = PM.

Mike F

 

[Chip Pearson]

Assuming you have the time in a variable named 'T', you can use something
like:

If Hour(T) >= 12 Then
Debug.Print "PM"
Else
Debug.Print "AM"
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[Rick Rothstein \(MVP - VB\)]

I am needing to extract the meridian (ex. AM or PM) from time.

Is there a way to do this? If so could someone please fill me in. Code
sample is below. I have managed to extract the hour and minute.
However I need to also extract the meridian. Thanks.

day_total_hours = Format((ShopOpensAt), "hh:nn")

hours = Hour(day_total_hours)

minutes = Minute(day_total_hours)

Meridian = Format(ShopOpensAt,"AMPM")

Rick