Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Military Time
Message
From
01/08/2007 15:55:04
Mike Yearwood
Toronto, Ontario, Canada
 
 
To
01/08/2007 15:37:55
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 8 SP1
Miscellaneous
Thread ID:
01245247
Message ID:
01245256
Views:
28
>How can I convert the following to non-military time? And yes, before the jokes start, the "13:45" is a value in an array. I can't just retype it to "1:45" instead. Thanks!
>
>
>(RIGHT( "0" + ALLTRIM( "13:45" ), 5 ))
>
Forest for the trees kinda thing? Maybe you should consider Miller time instead! :)

Start with this and add am/pm or what have you.
?Normaltime("13:45")

NORMALTIME.PRG
LPARAMETERS m.tcTime
LOCAL m.lnHours, m.lcHours, m.lcMinutes
lnColon = AT(":",m.tcTime)
m.lnHours = val(LEFT(m.tcTime,m.lnColon-1))
m.lcHours = right("0"+str(iif(m.lnHours>12,m.lnHours-12,m.lnHours)),2)
m.lcMinutes = SUBSTR(m.tcTime,m.lnColon)
RETURN m.lcHours + m.lcMinutes
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform