bcquality/microsoft/knowledge/style/dateformula-evaluate-needs-language-independent-literals.good.al

codeunit 50101 "Good Review Scheduling"
{
    procedure NextReviewDate(Interval: DateFormula; ReferenceDate: Date): Date
    begin
        if Format(Interval) = '' then
            Evaluate(Interval, '<1W>');

        exit(CalcDate(Interval, ReferenceDate));
    end;

    procedure NextReviewFromUserInput(UserFormulaText: Text; ReferenceDate: Date): Date
    var
        Interval: DateFormula;
    begin
        Evaluate(Interval, UserFormulaText);
        exit(NextReviewDate(Interval, ReferenceDate));
    end;
}