SQL can handle character dates in the ISO, USA or EUR format very well, but
not very well with numeric dates.
But there was an enhancement in Release 7.2 in the scalar functions such as
DEC, INTEGER, so a Date, Time or Timestamp can be directly converted into a
numeric date, time, timestamp in the format YYYYMMDD, HHMMSS,
YYYYMMDDHHMMSS)
In this way you only need to convert your character date into a real date
and convert the result into a numeric value:
The following SQL code works on my 7.3 machine:
Dec(Date(CharDate), 8, 0)
Using VarChar_Format might be a little more complicated:
Dec(VarChar_Format(CharDate, 'YYYYMMDD'), 8, 0)
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxx> On Behalf Of Dan
Sent: Samstag, 5. Mai 2018 00:05
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: m/d/yyyy string to yyyymmdd decimal in SQL
My input date, from a spreadsheet that comes from the a client, is a string
using the format (m)m/(d)d/yyyy, (m)m represents that there could be one or
two digits and ditto for (d)d, and I need to convert it to a decimal
yyyymmdd.
The following does it, but it seems to me that there should be an easier
way, utilizing less than four functions to do the conversion. Is there?
select BI_DOSA,
Dec( Replace(
Cast( Date(TIMESTAMP_FORMAT( BI_DOSA, 'MM/DD/YYYY'))
as Char(10)),
'-', ''),8)
from CA8560BIP
BI_DOSA DEC
8/21/2017 20,170,821
8/21/2017 20,170,821
9/06/2017 20,170,906
9/06/2017 20,170,906
9/07/2017 20,170,907
1/19/2017 20,170,119
10/31/2017 20,171,031
10/5/2016 20,161,005
2/13/2018 20,180,213
1/05/2018 20,180,105
1/05/2018 20,180,105
3/01/2018 20,180,301
2/21/2018 20,180,221
2/26/2018 20,180,226
2/28/2018 20,180,228
8/10/2016 20,160,810
11/14/2016 20,161,114
3/23/2017 20,170,323
11/9/2016 20,161,109
- Dan
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
As an Amazon Associate we earn from qualifying purchases.