 |
|||||
|
As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only. Join the TIBCO Community
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community. | |||||
Focal Point 
Focal Point Forums WebFOCUS/FOCUS Forum on Focal Point [SOLVED] Convert Alphanumeric to 12-hour time
Focal Point Forums WebFOCUS/FOCUS Forum on Focal Point [SOLVED] Convert Alphanumeric to 12-hour time Read-Only TopicGo | Search | Notify | Tools |
| [SOLVED] Convert Alphanumeric to 12-hour time | Login/Join |
| Member |
How would one go about converting a 4-byte alphanumeric field to a 12-hour time? Something along these line: 1600 -> 04:00 pm Thanks!This message has been edited. Last edited by: Kerry, Bob Neubauer bob@databuilders.com | ||
|
| Expert |
I think you could use HINPUT to do this. Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Expert |
TABLE FILE CAR PRINT COUNTRY COMPUTE ATIM/A4 = '1600' ; COMPUTE TIME/HHIA = HINPUT(12,'00000000' | ATIM,8,'HHI') ; END | |||
|
| Platinum Member |
Write yourself a little function that you can call from an "include" whenever you want to convert the time. I wrote this one that I use all the time: DEFINE FUNCTION TIMEAMPM(TIMEIN/A6) -* get the time in a left-padded 6 character string and return character string in -* the form hh:mm am/pm. e.g. Pass '000630' and return '6:30 am'. -* TIMEIN = string field to parse in '00HHMM' military time format. -* get the hour and minutes as a string HRTEMP/A2 = EDIT(TIMEIN, '$$99'); MINUTE/A2 = EDIT(TIMEIN, '$$$$99'); -* convert the hour into an integer so you can do some math and comparisons HRTEMP1/I2 = ATODBL(HRTEMP, '02', 'I2'); -* if hr > 12 then (hr - 1) else hr HOUR/A2 = IF HRTEMP1 GT 12 THEN FPRINT(HRTEMP1 - 12, 'I2', 'A2') ELSE HRTEMP; -* if hr > 11 then 'pm' else 'am' AMPM/A2 = IF HRTEMP1 GT 11 THEN 'PM' ELSE 'AM'; -* formats into hh:mm pm/am. Note this is NOT in military time TIMEAMPM/A8 = HOUR | ':' | MINUTE | ' ' | AMPM; END -RUN You can tweak it for a 4 character input variable and adding a leading zero to the output if you desire. Norb prod:7.6.9, win2k3 mre, caster, bid, devstudio 7.6.9 | |||
|
| Platinum Member |
Holy Moly Waz!!!!  You smoked me! Although I prefer to do things the hard way I will be looking closely at your solution.  prod:7.6.9, win2k3 mre, caster, bid, devstudio 7.6.9 | |||
|
| Expert |
Ah the forgotten date-time functions....  Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Member |
Wow! Thank you Norb and Waz...I really appreciate the help. Bob Neubauer bob@databuilders.com | |||
|
| Expert |
And don't forget... Read The Functions Manual Always a great place to peruse. Eek I need to get a life. Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Platinum Member |
I've seen that acronym before but not defined in this way. Perhaps the excessive heat down under is starting to take it's toll and you can't recall the correct definition of RTFM. O.k I'll just STFU.  prod:7.6.9, win2k3 mre, caster, bid, devstudio 7.6.9 | |||
|
| Expert |
 Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Powered by Social Strata |
 | Please Wait. Your request is being processed... |
Read-Only TopicFocal Point Focal Point Forums WebFOCUS/FOCUS Forum on Focal Point [SOLVED] Convert Alphanumeric to 12-hour time
Focal Point Forums WebFOCUS/FOCUS Forum on Focal Point [SOLVED] Convert Alphanumeric to 12-hour timeCopyright © 1996-2020 Information Builders
| View $GS_USERNAME's Public Profile |
| Add $GS_USERNAME to my Ignore List |
| View Recent Posts by $GS_USERNAME |
| Notify me of New Posts by $GS_USERNAME |