Array problem

[AMS100]

The following Array is giving me an error - 'The array must be subscripted. For example Array '

NumberVar Array ST := [1,21,31];
NumberVar Array ND := [2,22];
NumberVar Array RD := [3,23];
NumberVar Array DD := Day({DATAEXAM.APPTSTART});
StringVar DateRem := ToText({DATAEXAM.APPTSTART}, "MMMM&quot+""+ ToText({DATAEXAM.APPTSTART}, "YYYY"

If DD in ST then ToText(DD,0) + "St" + DateRem else
If DD in ND then ToText (DD,0) + "Nd" + DateRem else
IF DD in RD then ToText (DD,0) + "Rd" + DateRem else
ToText (DD,0) + "Th" + DateRem;

This is my first attempt at an array and I don't know where to start. Basicly its meant to format the day of a date field as '1st', '2nd', '3rd' etc... So if anyone could explain why Im getting this error or any ideas on a better way formating the day it would be much appreciated. thanks

 

[Naith]

AMS,

Good stab. You're virtually 99% there. Only thing is that you're getting an error because your variable DD has been declared as an array, but really isn't one.

Try this:

NumberVar Array ST := [1,21,31];
NumberVar Array ND := [2,22];
NumberVar Array RD := [3,23];
NumberVar DD := Day({DATAEXAM.APPTSTART});
NumberVar YY := Year({DATAEXAM.APPTSTART});

StringVar DateRem := " "+ToText({DATAEXAM.APPTSTART}, "MMMM&quot+" "+ToText(YY,0);

If DD in ST then ToText(DD,0) + "St" + DateRem else
If DD in ND then ToText (DD,0) + "nd" + DateRem else
IF DD in RD then ToText (DD,0) + "rd" + DateRem else
ToText (DD,0) + "Th" + DateRem;

I've taken the liberty of assigning the year to another variable, because I think as you have it, you might get a literal string of 4 Ys.

Naith