12 Hour Clock

[youknowwho4eva]

How do you make the hour return in 12 hour format instead of 24 hour format? I would search 12 Hour format but search doesn't allow words of less then 3 characters .

[Prab]

If you are talking about the @hour macro just subtract 12.

$hour = @HOUR
$string = "AM"
If $hour > 12 Then
    $hour -= 12
    $string = "PM"
EndIf
MsgBox(0,"", $hour & " " & $string)

[PsaltyDS]

If you are talking about the @hour macro just subtract 12.

$hour = @HOUR
$string = "AM"
If $hour > 12 Then
    $hour -= 12
    $string = "PM"
EndIf
MsgBox(0,"", $hour & " " & $string)

It's almost, but not quite that simple. In your script, 00 hours in the morning would stay 00, not 12 AM. Also 12 noon would stay AM vice PM. Try:

Global $iHour = @HOUR, $sAMPM = "AM"
If $iHour >= 12 Then $sAMPM = "PM"
If $iHour = 00 Then $iHour = 12
If $iHour > 12 Then $iHour -= 12

MsgBox(64, "12H Time", "It's " & $iHour & ":" & @MIN & " " & $sAMPM)

[Prab]

Oops, Forgot about that. Good catch.

[youknowwho4eva]

How did I not think of that? Thank you much sir. I guess I was looking to hard to find a one liner instead of thinking to subtract 12. Isn't midnight displayed as 00? (the range says 00 to 23)No one should be on my program at midnight, but just to be accurate I'd have to add the extra if $hour = 0 then $hour += 12.

Edit: Psatlyds beat me to it

Edited September 4, 2008 by youknowwho4eva