Query/400 Determines the Day of Week

Hey, Ted:

Here is another example of date and time formats in Query/400.

These are the result fields I use to make Query display the day of the week.

               Define Result Fields

Field       Expression                         Len   Dec
----------  ---------------------------------  ----  ----
Y           substr(digits(idate), 1, 4)

M           substr(digits(idate), 5, 2)

D           substr(digits(idate), 7, 2)

F_DATE      date(d||'.'||m||'.'||y)

ANYSUNDAY   date('01.01.1950')

DIF_DAYS    days(f_date) - days(anysunday)       9     0

NBR_WK      dif_days/7                           8     2

F_WEEK_DAY  microsecond('2001-01-01-01.01.01.
            '||substr(digits(nbr_wk), 1, 6))
             * 7
WEEK        'MoTuWeThFrSaSu'

DAYNBR      dif_days - f_week_day

WEEK_DAY    substr(week, ( dif_days -
            f_week_day - 1) *2 + 1 , 2)

--Harald

Thanks for the example, Harald. I admire your ingenuity.

In this example, IDATE is an eight-digit numeric field in YYYYMMDD format. For the benefit of the interested reader, here is an explanation of the result fields:

--Ted

Sponsored By PROFOUND LOGIC SOFTWARE

RPGsp users don't settle for less! Why settle for a tool that's just an application builder, or just a server, or just a designer, or just a green-screen converter? You need an integrated Web development tool that can do all of the above. And you need the best! RPGsp has what you need. Don't settle for less. Free trial and information at www.RPGsp.com