Convert Time$ to 12HR Time

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
Function PBMain() As Long
? Time12
End Function
 
Function Time12() As String
   Local temp$, h$, s$
   temp$ = Left$(Time$,5)
   h$ = Left$(temp$,2)
   s$ = Right$(temp$,2)
 
   Select Case Val(h$)
      Case 0 To 12  : Function = temp$ + " AM"
      Case 13 To 23 : Function = Trim$(Str$(Val(h$) - 12)) + ":" + s$ + " PM"
   End Select
End Function   

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm