Hope that your users will always enter the date in the same format: 99/99/9999, otherwise you'll have to play with many function :-)
So considering that the format is kept the same, the month will always be the first two digits and easily be captured using the following:
-SET &MONTH = EDIT(&FROM_VALUE_DATE, '99');
Otherwise here some logic that can be applied to insure to have the month in two digits format :
-SET &DATELEN = ARGLEN(10, &FROM_VALUE_DATE, 'I3');
-SET &SLASHPOS = POSIT(&FROM_VALUE_DATE, &DATELEN, '/', 1, 'I3');
-SET &OUTLEN = &SLASHPOS - 1;
-SET &MTH = SUBSTR(&DATELEN, &FROM_VALUE_DATE, 1, &OUTLEN, &OUTLEN, 'A2');
-SET &MTHLEN = ARGLEN(2, &MTH, 'I2');
-SET &MTHFIX = IF &MTHLEN LT 2 THEN '0' || EDIT(&MTH, '9') ELSE &MTH;
TYPE &MTHFIX
WF 7.6.11 HF4 gen34, WF 7.7.03 gen 253,
Windows 64 bit
Excel, PDF, HTML