I just have a little question

In our system, for example today's date is 1140327 in a P8 field

I used the informations found of FocalPoint and created a calculation to get the day of the week

Here is the define I made

DEFINE FILE MSCALDAY
FindDay01/P8=CDAT32 + 19000000;
FindDay02/A8=EDIT(FindDay01);
FindDay03/I6YMD=DATECVT( FindDay02 , 'A8YYMD', 'YMD');
FindDay04/A4=DOWK(FindDay03, FindDay04);
END


I get the following result

CDAT32 FindDay01 FindDay02 FindDay03 FindDay04
1140327 20140327 20140327 14/03/27 FRI

Am I doing something wrong

Help would be appreciated

This message has been edited. Last edited by: YKK,

I think that the issue here is that you dropped the century from the DATECVT function, and it thinks its 1914.

quote:

FindDay03/I6YMD=DATECVT( FindDay02 , 'A8YYMD', 'YMD');

should be /I8YYMD = ...
What Waz said...

Raymond,

quote:

DEFINE FILE MSCALDAY
FindDay01/P8=CDAT32 + 19000000;
FindDay02/A8=EDIT(FindDay01);
FindDay03/I6YMD=DATECVT( FindDay02 , 'A8YYMD', 'YMD');
FindDay04/A4=DOWK(FindDay03, FindDay04);
END

Since your date has a leading 1, then something a bit simpler:

  
FindDay01/I8YYMD=CDAT32 + 19000000;
FindDay02/YYMD=FindDay01;
FindDay04/WT=FindDay02;

You can try this:

DEFINE FILE CAR
CC/I2 WITH COUNTRY = 1 + LAST CC;
P8DATE/P8=1140326 + CC;
IDATE/I8YYMD=P8DATE + 19000000;
FDATE/YYMD=IDATE;
WDAY/WT=FDATE;
END
TABLE FILE CAR
PRINT COUNTRY CC P8DATE FDATE WDAY
END

Thank you all

I changed field format as suggested by Waz
Worked perfect
Then I saw Daniel's simpler calculation and applied it

Again thank you all