display days of week ???

[x5452]

Hi, im new to progress, my second week and i have a problem

How do i display all the days of the current week under the headings
"Monday, Tuesday, Wednsday ect..." with the correct date shown
under each day.

Thankz.
X5452

 

[joey.jeremiah]

hello x,

is this what you're looking for ?

define var cWeekDays as char extent 7 no-undo

    init [ "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ].

message cWeekDays[ weekday( today ) ] view-as alert-box.

 

[praneesh]

try this and dispaly according to your need!

DEFINE VARIABLE v-i AS INTEGER.
DEFINE VARIABLE cWeekDays AS CHARACTER EXTENT 7 NO-UNDO INIT
[ "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ].

REPEAT v-i = 1 TO 7:
DISP cWeekDays[v-i] (DAY(TODAY) - WEEKDAY(TODAY) + v-i) WITH NO-LABEL 7 COL.
END.