Dynamics Community Forum Thread Details

How to: Use Function in Code-unit to amount and display on Page

I have 2 fields "Ending Date" (Date type) and "Required Arrival Day" (Integer type)

Now, I want to change "Required Arrival Day" to Date Type base on value of "Ending Date" and display on Page

I wrote a function below:

CreateRequiredArrivalDay("Required Arrival Day" : Integer;"Ending Date" : Date) RequiredArrivalDayReal : Date

//BEGIN
IF "Required Arrival Day" >= DATE2DMY("Ending Date",1) THEN
ActiveMonth := DMY2DATE(1,DATE2DMY("Ending Date",2),DATE2DMY("Ending Date",3))
ELSE
ActiveMonth := DMY2DATE(1,DATE2DMY(CALCDATE('1M',"Ending Date"),2),DATE2DMY(CALCDATE('1M',"Ending Date"),3));

CASE DATE2DMY(CALCDATE('CM',ActiveMonth),1) OF
28:
IF "Required Arrival Day" <= 28 THEN
RequiredArrivalDayReal := DMY2DATE("Required Arrival Day",DATE2DMY(ActiveMonth,2),DATE2DMY(ActiveMonth,3))
ELSE
RequiredArrivalDayReal := CALCDATE('CM',ActiveMonth);
29:
IF "Required Arrival Day" <= 29 THEN
RequiredArrivalDayReal := DMY2DATE("Required Arrival Day",DATE2DMY(ActiveMonth,2),DATE2DMY(ActiveMonth,3))
ELSE
RequiredArrivalDayReal := CALCDATE('CM',ActiveMonth);
30:
IF "Required Arrival Day" <= 30 THEN
RequiredArrivalDayReal := DMY2DATE("Required Arrival Day",DATE2DMY(ActiveMonth,2),DATE2DMY(ActiveMonth,3))
ELSE
RequiredArrivalDayReal := CALCDATE('CM',ActiveMonth);
31:
RequiredArrivalDayReal := CALCDATE('CM',ActiveMonth);
END;